Red Dog

Red dog, by Doug Zuckerman.  1996.  Email: dszucker@students.wisc.edu
                                                RLG28@aol.com

This is the most comprehensive acey deucy program available for the TI 82.
It implements a new 52 card deck for each new hand.

Limitations:
        No known limitations.

----begin documentation----
Red dog, by Doug Zuckerman.  1996.  Email: dszucker@students.wisc.edu
                                                RLG28@aol.com

This is the most comprehensive acey deucy program available for the TI 82.
It implements a new 52 card deck for each new hand.

Limitations:
        No known limitations.

----begin ascii----
\START82\
\COMMENT=Program file dated 10/08/96, 22:46
\NAME=REDDOG
\FILE=C:\WINLINK\REDDOG.82P
:Func:FullScreen
:FnOff :PlotsOff 
:AxesOff
:0\->\Xmin:94\->\Xmax
:0\->\Ymin:62\->\Ymax
:ClrDraw
:For(X,1,50)
:Text(15,X,"DOG")
:Text(15,X-1," "
:Text(15,87-X,"RED")
:End
:Text(22,46,"BY"
:Text(29,21,"DOUG ZUCKERMAN"
:Text(36,41,"1996")
:Pause 
:Lbl V
:ClrDraw:ClrHome
:Menu(" RED DOG ","CONTINUE LAST",0,"NEW GAME",6,"PAYOUT",8,"QUIT",\@\,\#\
"BLACKJACK",S,"POKER",7)
:Lbl 6
:1000\->\N
:Lbl 0:ClrHome
:ClrDraw
:If N=0:Then
:ClrHome
:Output(4,4,"OUTTA CASH!")
:Pause :Goto V
:End
:Disp "YOU HAVE",N,"DOLLARS.","HOW MUCH WOULD","YOU LIKE"
:Input "TO BET?",D
:If D>N:Goto 0
:If D\<=\0:Goto 0
:ClrList \L1\,\L2\,\L3\,\L4\,\L5\,\L6\
:For(X,2,14)
:X\->\\L1\(X-1)
:End
:For(X,2,14)
:X\->\\L1\(X+12)
:End
:For(X,2,14)
:X\->\\L1\(X+25)
:End
:For(X,2,14)
:X\->\\L1\(X+38)
:End
:0\->\\L3\(1)
:0\->\\L4\(1)
:0\->\O
:0\->\Y
:2\->\R:15\->\W
:Line(58,49,94,49)
:Line(58,41,58,49)
:Line(23,25,23,17)
:Line(23,17,76,17)
:Line(76,17,76,25)
:Line(23,25,76,25)
:Horizontal 41
:Horizontal 33
:Horizontal 17
:Horizontal 8
:Line(48,33,48,41)
:Line(71,8,71,0)
:Line(71,8,94,8)
:Line(94,0,94,8)
:Line(71,0,94,0)
:Line(34,32,34,25)
:Line(34,25,65,25)
:Line(65,25,65,32)
:Line(77,51,77,61)
:Line(78,51,78,61)
:Line(83,60,83,52)
:Line(84,53,84,59)
:Line(86,61,94,61)
:Line(86,51,93,51)
:Line(85,51,94,61)
:Line(86,51,93,61)
:Line(79,51,82,51)
:Line(79,61,82,61)
:Line(87,52,94,52)
:Line(85,60,93,60)
:For(L,1,2)
:Lbl 1
:int (rand*52)+1\->\Z
:If \L1\(Z)=0
:Goto 1
:If \L1\(Z)=14
:Text(2,Y+4,"A ")
:If \L1\(Z)=11
:Text(2,Y+4,"J ")
:If \L1\(Z)=12
:Text(2,Y+4,"Q ")
:If \L1\(Z)=13
:Text(2,Y+4,"K ")
:If (\L1\(Z)>1)(\L1\(Z)<11)
:Text(2,Y+4,\L1\(Z))
:If (Z>0)(Z<14)
:Then
:Line(Y+9,47,Y+9,48)
:Line(Y+10,46,Y+10,49)
:Line(Y+11,45,Y+11,48)
:Line(Y+12,46,Y+12,49)
:Line(Y+13,47,Y+13,48):End
:If (Z>13)(Z<27)
:Then
:Line(Y+9,47,Y+13,47)
:Line(Y+11,45,Y+11,49)
:Line(Y+10,46,Y+10,48)
:Line(Y+12,46,Y+12,48):End
:If (Z>26)(Z<40)
:Then
:Line(Y+11,45,Y+11,49)
:Line(Y+10,48,Y+12,48)
:Line(Y+9,47,Y+13,47)
:Line(Y+9,46,Y+13,46):End
:If (Z>39)(Z<53)
:Then
:Line(Y+9,46,Y+9,47)
:Line(Y+10,46,Y+10,49)
:Line(Y+11,45,Y+11,49)
:Line(Y+12,46,Y+12,49)
:Line(Y+13,46,Y+13,47):End
:Line(R,43,R,61)
:Line(W,43,W,61)
:Line(R,43,W,43)
:Line(R,43,W,61)
:Line(R,61,W,61)
:30+R\->\R:30+W\->\W
:\L1\(Z)\->\\L2\(L)
:Y+30\->\Y:0\->\\L1\(Z)
:If \L3\(1)=1
:Goto 2
:If \L4\(1)=1
:Goto 3
:End
:SortA(\L2\)
:(\L2\(2)-\L2\(1))-1\->\O
:If O=0:Then
:Text(14,73,"TIE"
:Text(55,73,"ENTER")
:Pause :Goto 0
:End
:If O=\(-)\1:Then
:Text(14,72,"PAIR")
:Y-45\->\Y:R-45\->\R
:W-45\->\W:1\->\\L4\(1)
:3\->\L
:Text(55,73,"ENTER")
:Pause 
:Goto 1:End
:If O\>=\1:Then
:Text(14,60,"SPREAD: ",O)
:Text(22,6,"1: RAISE BET")
:Text(22,53,"2: CONTINUE"):End
:Lbl H
:getKey\->\G
:If G=93:Then
:Y-45\->\Y:R-45\->\R
:W-45\->\W:1\->\\L3\(1)
:3\->\L:Goto 1
:End
:If G=92:Then
:Lbl C
:N-D\->\K
:If K=0:Goto H
:If K>D:D\->\P
:If K\<=\D:K\->\P
:ClrHome
:Disp "YOU CAN RAISE","YOUR BET","UP TO",P,"DOLLARS.","WHAT WILL"
:Input "IT BE?",E
:If E>P or E\<=\0
:Goto C
:E+D\->\D:Y-45\->\Y
:R-45\->\R:W-45\->\W
:1\->\\L3\(1):3\->\L
:Goto 1:End
:Goto H
:Lbl 2
:If \L2\(3)\<=\\L2\(1) or \L2\(3)\>=\\L2\(2)
:Then
:Text(30,36,"YOU LOSE")
:Text(55,73,"ENTER")
:N-D\->\N:Pause 
:Goto 0
:End
:If (\L2\(3)>\L2\(1))(\L2\(3)<\L2\(2))
:Text(30,36,"YOU WIN!")
:If O=1:5D+N\->\N
:If O=2:4D+N\->\N
:If O=3:2D+N\->\N
:If O\>=\4 and O\<=\11
:D+N\->\N
:Text(55,73,"ENTER")
:Pause :Goto 0
:Lbl 3
:If \L2\(3)\<>\\L2\(2)
:Then
:Text(14,70,"                  ")
:Text(14,73,"TIE")
:Text(55,73,"ENTER")
:Pause 
:Goto 0:End

:If \L2\(1)=\L2\(3)
:Then
:11D+N\->\N
:Text(30,36,"YOU WIN!")
:Text(38,25,"THREE OF A KIND")
:Text(55,73,"ENTER")
:For(X,1,94)
:Text(47,X,"ALL  RIGHT!")
:Text(47,X-1," ")
:End
:Pause :Goto 0
:End
:Lbl \@\:AxesOn:ZDecimal:ClrList \L1\,\L2\,\L3\,\L4\,\L5\,\L6\
:Stop
:Lbl 8
:ClrHome
:Disp "3 OF A KIND","PAYS","11 TO 1"
:Pause :ClrHome
:Disp "1 CARD SPREAD","PAYS","5 TO 1"
:Pause :ClrHome
:Disp "2 CARD SPREAD","PAYS","4 TO 1"
:Pause :ClrHome
:Disp "3 CARD SPREAD","PAYS","2 TO 1"
:Pause :ClrHome
:Disp "EVEN MONEY","FOR A SPREAD OF","4 THROUGH 11"
:Pause 
:Goto V
:Lbl S
:prgmBLACKJAC
:Lbl 7
:prgmPOKER
\STOP82\
This page hosted by Get your own Free Home Page