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\