ZXTape! 0Created with Ramsoft MakeTZXDealer  : "" Dealer \2 3# # <@TT]^\\\]\]]]]]]\.X![!@P!! W K SR P 0:0:0:0:0:0:0:54999:23659k\,0:"":k=65149}:23659k\,2:"" J"Dealer"23552\,(23653e\+256*23654f\)-23552\: 20 Dealer \2\Cards 'K^'ÆõH4xH4!HKF ~w*x\Kv\)))))))) A "v\l&}50("F0('. 41& $#! *%2 /,-+")0 3)!,":G[*͵*#"+!@~w#|X8!@~w#|X8>:\(C(0000 >z2\!: 2\>z2\!+2\>x2\!'2\>x2\! >y2\>2\!:\G!6"!"{\:\2:\2͓!8"*~( 0ƀ#͟:<2:\2͓>::*͵*+"!!@  0 0 <@B<  0 0? @88x@8xB888D@88D88  p 0  <DDxDD~ DDB???f`?xpB"DD *xD"Dx"<B888x D8xBx88x@B"D"D *@D"DDB 0DD G^'Cards ad@K cd0000?00000 00``000300 00 ?0000?00` ?`` 0030 ? ?0000?00`? ?p` 0030? ?0 0 0`0 0?00000`00 0?0 003000 0???0`0 0?00000`00 0?`0 003000 0```0?0?```??000?00`? ?`000???? ?0??0??`?``00000` `0?00? 0  0???0000?00000 00``0?00300 00 0 0???????????BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO#FF# <@&&=S\\\=>C*K\\d\ H:!![!@@P!! $  K SR Pu  Pack of cards    Snap Pontoon Gambler   Written by Ian Upton July 83  4:0:0 0:0:0 :CARD=1 PACK=55112H PM=0:I$(30) 6LEN=255:DUR=5:SLD=1:RPT=1 $ME=0:YOU=0 .23658j\,8 8 3720 B""1090B L 4320 V23673y\,0 `"23673y\>23720 jZ$= t$Z$="M"Z$=((*3)+1) ~!Z$=""Z$<"1"Z$>"4"1120` %.1}L,30:.1}L,0 ""1170  4: K=55000 Z$="1"1230 Z$="2"2250 Z$="3"2940| D$="":M$="":P$="" ;I$=" *** Snap ***":PM=7:4210r $C=PACKPACK+25:M$=M$+¾C:C -C=PACK+26PACK+513:P$=P$+¾C:C  100d =I$="*** Difficulty level? 1-5 ***":PM=7:4210r  '4290:Z$<"1"Z$>"5"1290  ""1300  DIFF=Z$ (%.1}L,30:.1}L,0 2Z$="1"DIF=30 <Z$="2"DIF=20 FZ$="3"DIF=15 PZ$="4"DIF=10 ZZ$="5"DIF=1 d:2220:2190:#1;1,0;6;"Any key to snap. Space to stop.":0,0;"Difficulty level ";DIFF;" " n=I$="*** Press any key to start ***":PM=7:4210r x=""1400x ""1410 %.1}L,30:.1}L,0  4250 WRPT=5:DUR=1:LEN=128:SLD=3:4140,:1:1450 :2220:2190:#1;1,0;6;"Any key to snap. Space to stop.":0,0;"Difficulty level ";DIFF;" " "P$=524Z$="W":3900< "M$=524Z$="L":3900< "D$=524Z$="D":3900<  DIF>1DIF=DIF-.05|L P$=01610J Z$=P$(1)  D$=Z$+D$ P$=P$(2)  1770 N6;1;184,26+P$:6;1;568,0  1870N Z$="S"1990 "DIF ,#23556\=32 4110 6$23556\=2551610J @ 1830& J"P$=524Z$="W":3900< T"M$=524Z$="L":3900< ^"D$=524Z$="D":3900< hM$=01450 rZ$=M$(1) | D$=Z$+D$ M$=M$(2)  1770 M6;1;16,26+M$:6;1;568,0  1870N Z$="S"1990 DIF Z$="S"1610J #23556\=32 4110 $23556\=2551450  1830& CARD=D$(1) "23729\,11 +(*5) !23728\,2+(*5) 23681\,CARD K=55009  &w.1}L,60<:6:K=55006:4:DUR=40(:LEN=32 :SLD=2:RPT=1:4140, 0y:6:I$=" *** It's not a snap! ***":PM=6:1:4210r:0:21004:4140,:4 :M$=M$+D$:D$="" D:1445 NZ$="" XD$<2 bC1=D$(1) lC2=D$(2) vC1>39'C1=C1-39' C1>26C1=C1-26 C1>13 C1=C1-13 C2>39'C2=C2-39' C2>26C2=C2-26 C2>13 C2=C2-13 C1=C2Z$="S"  DIF #23556\=32 4110 $23556\=2552060  x.1}L,10 :1:K=55006:4:DUR=10 :LEN=255:SLD=3:RPT=1:4140, x:1:I$=" *** Player snap ***":PM=1:1:4210r:0:21004:4140,:4 P$=P$+D$:D$="" :1445  w.1}L,40(:2:K=55006:4:DUR=5:LEN=255:SLD=1:RPT=1:4140, y:2:I$=" *** Computer snap ***":PM=2:1:4210r:0:21004:4140,:4  M$=M$+D$:D$="" *:1445 4D$<2 >23728\,9 H23681\,D$(1) R23729\,6 \K=55009 f23681\,D$(2) p23729\,19 zK=55009  KC=1̱M$:6;16,25+C:6;568,0:C LC=1̱P$:6;184,25+C:6;568,0:C  19,0;"";20,0;" My pile ";21,0;"" 19,21;"";20,21;"Your pile";21,21;""  &M$="":P$="":PT=0:MT=0 TI$=" *** Pontoon ***":PM=7:4210r:C=1100d:C: M$=M$+¾PACK M$=M$+¾(PACK+1) P$=P$+¾(PACK+2) P$=P$+¾(PACK+3) }2930r :C=14:23681\,0:X,Y:23728\,X:23729\,Y:K=55009:5:C:502 1:#1;0,0;" ":21,0;" ":I$=" *** Players go ***":PM=1:2910^ :502 23681\,P$(1):23728\,12 :23729\,0:K=55009:23681\,P$(2):23729\,5:K=55009:502 $POINT=5 .OI$="*** Twist or Stick? T:S ***":PM=1:1:2910^ :0 8Z$=:Z$=""23608 BZ$"T"Z$"S"23608 L""2380L V%.1}L,30:.1}L,0 `D$=P$:2790 :PT=TT jPT14Z$="S"I$="You need more than 14 to stick":PM=6:2910^ :DUR=10 :LEN=128:RPT=1:SLD=2:4140,:2350. tZ$="S"PT>14PT<22I$=" *** You stick with "+PT+" ***":PM=1:2910^ :C=1100d:C:2480 ~pP$>5I$=" *** You stick with "+PT+" ***":PM=1:2910^ :C=1100d:C:2480 CRPT=1:SLD=3:DUR=20:LEN=255:4140, P$=P$+¾(PACK+POINT):23681\,(PACK+POINT):23729\,(23729\+5):K=55009:POINT=POINT+1:D$=P$:2790 :PT=TT PT>21I$="*** You are bust with "+PT+" ***":PM=1:2910^ :DUR=10 :SLD=1:LEN=255:RPT=1:4140,:2480 2350. 2:#1;0,0;" ":21,0;" ":I$=" *** Computers go ***":PM=2:2910^ :502 23681\,M$(1):23728\,0:23729\,0:K=55009:23681\,M$(2):23729\,5:K=55009:502 D$=M$:2790 :MT=TT ΝMT>21I$=" *** I am bust with "+MT+" ***":PM=2:2910^ :DUR=10 :SLD=1:LEN=255:RPT=1:4140,:2580 yMT>16MT20ƥ>.1}LI$=" *** I stick with "+MT+" ***":PM=2:2910^ :502:2580 bM$>5I$=" *** I stick with "+MT+" ***":PM=2:2910^ :502:2580 bMT=21I$=" *** I stick with "+MT+" ***":PM=2:2910^ :502:2580 CRPT=1:SLD=3:DUR=20:LEN=255:4140, eM$=M$+¾(PACK+POINT):23681\,(PACK+POINT):23729\,(23729\+5):K=55009 !POINT=POINT+1:2500 -PT>21MT>21Z$="D":2670n -PT>21MT21Z$="L":2670n (-PT21MT>21Z$="W":2670n 2EPT=21ƱP$=2MT=21ƱM$=2Z$="L":2670n MTZ$="W":2670n ZMT>PTZ$="L":2670n dMT=PTZ$="L":2670n n4:21,0;" ":#1;0,0;" " xZ$="W"I$=" *** Player wins ***":PM=1:1:1:2910^ :0:RPT=5:SLD=3:DUR=2:LEN=255:4140,:YOU=YOU+1 Z$="L"I$=" *** Computer wins ***":PM=2:2:1:2910^ :0:RPT=5:SLD=1:DUR=1:LEN=255:4140,:ME=ME+1 Z$="D"I$=" *** It's a draw ***":PM=6:6:1:2910^ :0:RPT=5:SLD=2:DUR=1:LEN=255:4140, C=1100d:C 4 =I$="*** Like another game? Y:N ***":PM=7:2910^ Z$=:=""2740 Z$"Y"Z$"N"2740 ""2760 KZ$="Y":K=55000:.1}L,30:.1}L,0:2250 1090B TT=0:ACE=0 C=1̱D$ K=D$(C) K>39'K=K-39' K>26K=K-26 K>13 K=K-13 "K=1ACE=1 ,K10 K=10 6 TT=TT+K @C J)ACE=1TT11 TT=TT+10 T ^y9 ,0;PM;9 ;1;""'"";I$;""'"" h rC0,0,0,5,12 ,0,12 ,5 |SI$=" *** Gambler ***":PM=7:4210r:C=1100d:C PB=0:MB=0:P$="":M$="":D$="":PT=10 :MT=10 :K=PACK+(*20):C=16:D$=D$+¾(K+C):C z23728\,9 :3690j:C=16:23681\,0:K:23729\,K:K=55009:C:3690j ^K:CARD=D$(1):D$=D$(2):23681\,CARD:23729\,1:K=55009 |1,1;"";2,1;"Me 000";3,1;"" 1,22;"";2,22;"You 000";3,22;"" yZ$=MT:1;2;7;2,9 -Z$;Z$:Z$=PT:1;1;7;2,30-Z$;Z$ —I$=" *** Player's bid ***":PM=1:1:1:4210r:0:SLD=3:LEN=128:DUR=5:RPT=5:4140, FI$="*** Higher or lower? H:L ***":PM=1:1:4210r '4290:Z$"H"Z$"L"3030 ""3040 %.1}L,30:.1}L,0 P$=Z$ P$="H"I$=" *** You bid higher ***":PM=1:4210r:SLD=3:LEN=255:DUR=10 :RPT=1:4140, P$="L"I$=" *** You bid lower ***":PM=1:4210r:SLD=1:LEN=255:DUR=5:RPT=1:4140, I$=" *** What's your bid? ***":PM=1:1:4210r:0:SLD=3:LEN=128:DUR=5:RPT=5:4140, W" Minimum bid 1  >";Z$:23658j\,8:Z$=""3100 &K=0:C=1̱Z$ 0 Z$(C)<"0"Z$(C)>"9"K=1 :C:K03100 D1Z$>PTŰZ$=01,0:3100 N%.1}L,30:.1}L,0 XPB=Z$:PT=PT-PB bUZ$=PT:1;1;7;2,27;"000";2,30-Z$;Z$ l>P$="H"19,1;1;" You bid ";PB;" higher " v=P$="L"19,1;1;" You bid ";PB;" lower " 4:4250:#1;0,0;" ":1:502 I$=" *** Computer's bid ***":PM=2:2:1:4210r:0:SLD=1:LEN=128:DUR=3:RPT=5:4140, CARD=23681\ #CARD>39'CARD=CARD-39' #CARD>26CARD=CARD-26 #CARD>13 CARD=CARD-13 CARD10 M$="L" CARD4M$="H" 8CARD<10 CARD>4M$="L":>.5M$="H" +CARD=1CARD=13 MB=MT-1 <CARD1CARD4MB=MT-(*(MT/4))-1 >CARD13 CARD10 MB=MT-(*(MT/4))-1 =CARD>4CARD<10 MB=MT-(*(MT/2))-1 MB=0MB=1 ]MT=MT-MB:Z$=MT:1;2;7;2,6;"000";2,9 -Z$;Z$ ;M$="L"21,1;2;" I bid ";MB;" lower " <M$="H"21,1;2;" I bid ";MB;" higher " *4:4250:#1;0,0;" ":C=1502:C 4I$=" *** Higher ***":PM=0:1:4210r:0:C=.30-.01z# =:0:C/2,30:7:6,12 ;" lower ":C/2,30:6,12 ;" Higher ":c:4:4250 >g19,0;" ";21,0;" " H<C1=23681\:23681\,D$(1):D$=D$(2) RK:23729\,K \K=55009 fC2=23681\ pC1>39'C1=C1-39' zC1>26C1=C1-26 C1>13 C1=C1-13 C2>39'C2=C2-39' C2>26C2=C2-26 C2>13 C2=C2-13 C1=C2Z$="D" C2>C1Z$="H" C2MTZ$="W" 8MT>PTZ$="L" BMT=PTZ$="D" LZ$="L"I$="** Computer wins with "+MT+" **":MP=2:1:4210r:0:SLD=1:RPT=1:DUR=10 :LEN=255:4140, VZ$="W"I$="*** Player wins with "+PT+" ***":MP=1:1:4210r:0:SLD=3:RPT=1:DUR=10 :LEN=255:4140, ` 3900< j51,6,11 ,16,21,26 t ~ 4:4::10 ,8;7;"Stephen Hartley";11 ,12 ;"Software";#1;1,0;6;"Press any key to continue" 23673y\,0 "23673y\>31090B  3860 6CARD=0CARD=(*524)+1:3780 CARD0CARD=0 X,Y %X250Y2503740 23728\,X:23729\,Y >CARD0CARD=CARD+1:CARD535CARD=1 23681\,CARD K=55009 ""1090B  15:3780 0,0,0,4,0,8,0,12 ,0,16,0,20,0,24,0,27 $7,27,13 ,27 (k13 ,24,13 ,20,13 ,16,13 ,12 ,13 ,8,13 ,4 2613 ,0,7,0,255,255 <C=1100d:C FZ$="D"4020 PZ$="W"3980 ZZ$="L"3940d d.PM=2:I$=" *** Computer wins ***" n(DUR=5:SLD=1:LEN=64@ xME=ME+1  4040 /PM=1:I$=" *** Player wins ***" )DUR=10 :SLD=3:LEN=64@ YOU=YOU+1  4040 .PM=6:I$=" *** It's a draw ***" )DUR=10 :SLD=2:LEN=64@ {0,0;" ":#1;1,0;PM;" ":PM N=1213 sN,0;PM;9 ;1;""'"";I$;""'"" RPT=1:4140, N C=1100d:C  1090B MI$=" *** Game stopped ***":PM=0:1:4210r:0 CSLD=1:LEN=255:DUR=10 :RPT=1:4140, " 1090B ,#SLD=155198,35# 6"SLD=255198,0 @#SLD=355198,43+ J55207,DUR T55206,LEN ^"C=1RPT:K=55003:C h rK5,0;PM;9 ;1;"" |36,0;PM;9 ;1;"";I$;"" K7,0;PM;9 ;1;""  55,0;" " 56,0;" " 57,0;" "  Z$= Z$=""4290  K=55012:0 NZ$=ME:10 ,2;4;1;"000";10 ,(5-Z$);Z$ QZ$=YOU:10 ,27;4;1;"000";10 ,(30-Z$);Z$ %.1}L,30:.1}L,0  &4:"Cards"55000,10200':"Cards"1 & &:0:"":"Cards"55000,10200':"Cards"16384@,(23653e\+256*23654f\)-16384@:k=65149}: 9970& Cards ad@K@ Dealer  : "" Dealer \2 3# # <@TT]^\\\]\]]]]]]\.X![!@P!! W K SR P 0:0:0:0:0:0:0:54999:23659k\,0:"":k=65149}:23659k\,2:"" J"Dealer"23552\,(23653e\+256*23654f\)-23552\: 20 Dealer \2\Cards 'K^'ÆõH4xH4!HKF ~w*x\Kv\)))))))) A "v\l&}50("F0('. 41& $#! *%2 /,-+")0 3)!,":G[*͵*#"+!@~w#|X8!@~w#|X8>:\(C(0000 >z2\!: 2\>z2\!+2\>x2\!'2\>x2\! >y2\>2\!:\G!6"!"{\:\2:\2͓!8"*~( 0ƀ#͟:<2:\2͓>::*͵*+"!!@  0 0 <@B<  0 0? @88x@8xB888D@88D88  p 0  <DDxDD~ DDB???f`?xpB"DD *xD"Dx"<B888x D8xBx88x@B"D"D *@D"DDB 0DD G^'Cards ad@Kcd0000?00000 00``000300 00 ?0000?00` ?`` 0030 ? ?0000?00`? ?p` 0030? ?0 0 0`0 0?00000`00 0?0 003000 0???0`0 0?00000`00 0?`0 003000 0```0?0?```??000?00`? ?`000???? ?0??0??`?``00000` `0?00? 0  0???0000?00000 00``0?00300 00 0 0???????????BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEGBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO#FF# <@&&=S\\\=>C*K\\d\ H:!![!@@P!! $  K SR Pu  Pack of cards    Snap Pontoon Gambler   Written by Ian Upton July 83  4:0:0 0:0:0 :CARD=1 PACK=55112H PM=0:I$(30) 6LEN=255:DUR=5:SLD=1:RPT=1 $ME=0:YOU=0 .23658j\,8 8 3720 B""1090B L 4320 V23673y\,0 `"23673y\>23720 jZ$= t$Z$="M"Z$=((*3)+1) ~!Z$=""Z$<"1"Z$>"4"1120` %.1}L,30:.1}L,0 ""1170  4: K=55000 Z$="1"1230 Z$="2"2250 Z$="3"2940| D$="":M$="":P$="" ;I$=" *** Snap ***":PM=7:4210r $C=PACKPACK+25:M$=M$+¾C:C -C=PACK+26PACK+513:P$=P$+¾C:C  100d =I$="*** Difficulty level? 1-5 ***":PM=7:4210r  '4290:Z$<"1"Z$>"5"1290  ""1300  DIFF=Z$ (%.1}L,30:.1}L,0 2Z$="1"DIF=30 <Z$="2"DIF=20 FZ$="3"DIF=15 PZ$="4"DIF=10 ZZ$="5"DIF=1 d:2220:2190:#1;1,0;6;"Any key to snap. Space to stop.":0,0;"Difficulty level ";DIFF;" " n=I$="*** Press any key to start ***":PM=7:4210r x=""1400x ""1410 %.1}L,30:.1}L,0  4250 WRPT=5:DUR=1:LEN=128:SLD=3:4140,:1:1450 :2220:2190:#1;1,0;6;"Any key to snap. Space to stop.":0,0;"Difficulty level ";DIFF;" " "P$=524Z$="W":3900< "M$=524Z$="L":3900< "D$=524Z$="D":3900<  DIF>1DIF=DIF-.05|L P$=01610J Z$=P$(1)  D$=Z$+D$ P$=P$(2)  1770 N6;1;184,26+P$:6;1;568,0  1870N Z$="S"1990 "DIF ,#23556\=32 4110 6$23556\=2551610J @ 1830& J"P$=524Z$="W":3900< T"M$=524Z$="L":3900< ^"D$=524Z$="D":3900< hM$=01450 rZ$=M$(1) | D$=Z$+D$ M$=M$(2)  1770 M6;1;16,26+M$:6;1;568,0  1870N Z$="S"1990 DIF Z$="S"1610J #23556\=32 4110 $23556\=2551450  1830& CARD=D$(1) "23729\,11 +(*5) !23728\,2+(*5) 23681\,CARD K=55009  &w.1}L,60<:6:K=55006:4:DUR=40(:LEN=32 :SLD=2:RPT=1:4140, 0y:6:I$=" *** It's not a snap! ***":PM=6:1:4210r:0:21004:4140,:4 :M$=M$+D$:D$="" D:1445 NZ$="" XD$<2 bC1=D$(1) lC2=D$(2) vC1>39'C1=C1-39' C1>26C1=C1-26 C1>13 C1=C1-13 C2>39'C2=C2-39' C2>26C2=C2-26 C2>13 C2=C2-13 C1=C2Z$="S"  DIF #23556\=32 4110 $23556\=2552060  x.1}L,10 :1:K=55006:4:DUR=10 :LEN=255:SLD=3:RPT=1:4140, x:1:I$=" *** Player snap ***":PM=1:1:4210r:0:21004:4140,:4 P$=P$+D$:D$="" :1445  w.1}L,40(:2:K=55006:4:DUR=5:LEN=255:SLD=1:RPT=1:4140, y:2:I$=" *** Computer snap ***":PM=2:1:4210r:0:21004:4140,:4  M$=M$+D$:D$="" *:1445 4D$<2 >23728\,9 H23681\,D$(1) R23729\,6 \K=55009 f23681\,D$(2) p23729\,19 zK=55009  KC=1̱M$:6;16,25+C:6;568,0:C LC=1̱P$:6;184,25+C:6;568,0:C  19,0;"";20,0;" My pile ";21,0;"" 19,21;"";20,21;"Your pile";21,21;""  &M$="":P$="":PT=0:MT=0 TI$=" *** Pontoon ***":PM=7:4210r:C=1100d:C: M$=M$+¾PACK M$=M$+¾(PACK+1) P$=P$+¾(PACK+2) P$=P$+¾(PACK+3) }2930r :C=14:23681\,0:X,Y:23728\,X:23729\,Y:K=55009:5:C:502 1:#1;0,0;" ":21,0;" ":I$=" *** Players go ***":PM=1:2910^ :502 23681\,P$(1):23728\,12 :23729\,0:K=55009:23681\,P$(2):23729\,5:K=55009:502 $POINT=5 .OI$="*** Twist or Stick? T:S ***":PM=1:1:2910^ :0 8Z$=:Z$=""23608 BZ$"T"Z$"S"23608 L""2380L V%.1}L,30:.1}L,0 `D$=P$:2790 :PT=TT jPT14Z$="S"I$="You need more than 14 to stick":PM=6:2910^ :DUR=10 :LEN=128:RPT=1:SLD=2:4140,:2350. tZ$="S"PT>14PT<22I$=" *** You stick with "+PT+" ***":PM=1:2910^ :C=1100d:C:2480 ~pP$>5I$=" *** You stick with "+PT+" ***":PM=1:2910^ :C=1100d:C:2480 CRPT=1:SLD=3:DUR=20:LEN=255:4140, P$=P$+¾(PACK+POINT):23681\,(PACK+POINT):23729\,(23729\+5):K=55009:POINT=POINT+1:D$=P$:2790 :PT=TT PT>21I$="*** You are bust with "+PT+" ***":PM=1:2910^ :DUR=10 :SLD=1:LEN=255:RPT=1:4140,:2480 2350. 2:#1;0,0;" ":21,0;" ":I$=" *** Computers go ***":PM=2:2910^ :502 23681\,M$(1):23728\,0:23729\,0:K=55009:23681\,M$(2):23729\,5:K=55009:502 D$=M$:2790 :MT=TT ΝMT>21I$=" *** I am bust with "+MT+" ***":PM=2:2910^ :DUR=10 :SLD=1:LEN=255:RPT=1:4140,:2580 yMT>16MT20ƥ>.1}LI$=" *** I stick with "+MT+" ***":PM=2:2910^ :502:2580 bM$>5I$=" *** I stick with "+MT+" ***":PM=2:2910^ :502:2580 bMT=21I$=" *** I stick with "+MT+" ***":PM=2:2910^ :502:2580 CRPT=1:SLD=3:DUR=20:LEN=255:4140, eM$=M$+¾(PACK+POINT):23681\,(PACK+POINT):23729\,(23729\+5):K=55009 !POINT=POINT+1:2500 -PT>21MT>21Z$="D":2670n -PT>21MT21Z$="L":2670n (-PT21MT>21Z$="W":2670n 2EPT=21ƱP$=2MT=21ƱM$=2Z$="L":2670n MTZ$="W":2670n ZMT>PTZ$="L":2670n dMT=PTZ$="L":2670n n4:21,0;" ":#1;0,0;" " xZ$="W"I$=" *** Player wins ***":PM=1:1:1:2910^ :0:RPT=5:SLD=3:DUR=2:LEN=255:4140,:YOU=YOU+1 Z$="L"I$=" *** Computer wins ***":PM=2:2:1:2910^ :0:RPT=5:SLD=1:DUR=1:LEN=255:4140,:ME=ME+1 Z$="D"I$=" *** It's a draw ***":PM=6:6:1:2910^ :0:RPT=5:SLD=2:DUR=1:LEN=255:4140, C=1100d:C 4 =I$="*** Like another game? Y:N ***":PM=7:2910^ Z$=:=""2740 Z$"Y"Z$"N"2740 ""2760 KZ$="Y":K=55000:.1}L,30:.1}L,0:2250 1090B TT=0:ACE=0 C=1̱D$ K=D$(C) K>39'K=K-39' K>26K=K-26 K>13 K=K-13 "K=1ACE=1 ,K10 K=10 6 TT=TT+K @C J)ACE=1TT11 TT=TT+10 T ^y9 ,0;PM;9 ;1;""'"";I$;""'"" h rC0,0,0,5,12 ,0,12 ,5 |SI$=" *** Gambler ***":PM=7:4210r:C=1100d:C PB=0:MB=0:P$="":M$="":D$="":PT=10 :MT=10 :K=PACK+(*20):C=16:D$=D$+¾(K+C):C z23728\,9 :3690j:C=16:23681\,0:K:23729\,K:K=55009:C:3690j ^K:CARD=D$(1):D$=D$(2):23681\,CARD:23729\,1:K=55009 |1,1;"";2,1;"Me 000";3,1;"" 1,22;"";2,22;"You 000";3,22;"" yZ$=MT:1;2;7;2,9 -Z$;Z$:Z$=PT:1;1;7;2,30-Z$;Z$ —I$=" *** Player's bid ***":PM=1:1:1:4210r:0:SLD=3:LEN=128:DUR=5:RPT=5:4140, FI$="*** Higher or lower? H:L ***":PM=1:1:4210r '4290:Z$"H"Z$"L"3030 ""3040 %.1}L,30:.1}L,0 P$=Z$ P$="H"I$=" *** You bid higher ***":PM=1:4210r:SLD=3:LEN=255:DUR=10 :RPT=1:4140, P$="L"I$=" *** You bid lower ***":PM=1:4210r:SLD=1:LEN=255:DUR=5:RPT=1:4140, I$=" *** What's your bid? ***":PM=1:1:4210r:0:SLD=3:LEN=128:DUR=5:RPT=5:4140, W" Minimum bid 1  >";Z$:23658j\,8:Z$=""3100 &K=0:C=1̱Z$ 0 Z$(C)<"0"Z$(C)>"9"K=1 :C:K03100 D1Z$>PTŰZ$=01,0:3100 N%.1}L,30:.1}L,0 XPB=Z$:PT=PT-PB bUZ$=PT:1;1;7;2,27;"000";2,30-Z$;Z$ l>P$="H"19,1;1;" You bid ";PB;" higher " v=P$="L"19,1;1;" You bid ";PB;" lower " 4:4250:#1;0,0;" ":1:502 I$=" *** Computer's bid ***":PM=2:2:1:4210r:0:SLD=1:LEN=128:DUR=3:RPT=5:4140, CARD=23681\ #CARD>39'CARD=CARD-39' #CARD>26CARD=CARD-26 #CARD>13 CARD=CARD-13 CARD10 M$="L" CARD4M$="H" 8CARD<10 CARD>4M$="L":>.5M$="H" +CARD=1CARD=13 MB=MT-1 <CARD1CARD4MB=MT-(*(MT/4))-1 >CARD13 CARD10 MB=MT-(*(MT/4))-1 =CARD>4CARD<10 MB=MT-(*(MT/2))-1 MB=0MB=1 ]MT=MT-MB:Z$=MT:1;2;7;2,6;"000";2,9 -Z$;Z$ ;M$="L"21,1;2;" I bid ";MB;" lower " <M$="H"21,1;2;" I bid ";MB;" higher " *4:4250:#1;0,0;" ":C=1502:C 4I$=" *** Higher ***":PM=0:1:4210r:0:C=.30-.01z# =:0:C/2,30:7:6,12 ;" lower ":C/2,30:6,12 ;" Higher ":c:4:4250 >g19,0;" ";21,0;" " H<C1=23681\:23681\,D$(1):D$=D$(2) RK:23729\,K \K=55009 fC2=23681\ pC1>39'C1=C1-39' zC1>26C1=C1-26 C1>13 C1=C1-13 C2>39'C2=C2-39' C2>26C2=C2-26 C2>13 C2=C2-13 C1=C2Z$="D" C2>C1Z$="H" C2MTZ$="W" 8MT>PTZ$="L" BMT=PTZ$="D" LZ$="L"I$="** Computer wins with "+MT+" **":MP=2:1:4210r:0:SLD=1:RPT=1:DUR=10 :LEN=255:4140, VZ$="W"I$="*** Player wins with "+PT+" ***":MP=1:1:4210r:0:SLD=3:RPT=1:DUR=10 :LEN=255:4140, ` 3900< j51,6,11 ,16,21,26 t ~ 4:4::10 ,8;7;"Stephen Hartley";11 ,12 ;"Software";#1;1,0;6;"Press any key to continue" 23673y\,0 "23673y\>31090B  3860 6CARD=0CARD=(*524)+1:3780 CARD0CARD=0 X,Y %X250Y2503740 23728\,X:23729\,Y >CARD0CARD=CARD+1:CARD535CARD=1 23681\,CARD K=55009 ""1090B  15:3780 0,0,0,4,0,8,0,12 ,0,16,0,20,0,24,0,27 $7,27,13 ,27 (k13 ,24,13 ,20,13 ,16,13 ,12 ,13 ,8,13 ,4 2613 ,0,7,0,255,255 <C=1100d:C FZ$="D"4020 PZ$="W"3980 ZZ$="L"3940d d.PM=2:I$=" *** Computer wins ***" n(DUR=5:SLD=1:LEN=64@ xME=ME+1  4040 /PM=1:I$=" *** Player wins ***" )DUR=10 :SLD=3:LEN=64@ YOU=YOU+1  4040 .PM=6:I$=" *** It's a draw ***" )DUR=10 :SLD=2:LEN=64@ {0,0;" ":#1;1,0;PM;" ":PM N=1213 sN,0;PM;9 ;1;""'"";I$;""'"" RPT=1:4140, N C=1100d:C  1090B MI$=" *** Game stopped ***":PM=0:1:4210r:0 CSLD=1:LEN=255:DUR=10 :RPT=1:4140, " 1090B ,#SLD=155198,35# 6"SLD=255198,0 @#SLD=355198,43+ J55207,DUR T55206,LEN ^"C=1RPT:K=55003:C h rK5,0;PM;9 ;1;"" |36,0;PM;9 ;1;"";I$;"" K7,0;PM;9 ;1;""  55,0;" " 56,0;" " 57,0;" "  Z$= Z$=""4290  K=55012:0 NZ$=ME:10 ,2;4;1;"000";10 ,(5-Z$);Z$ QZ$=YOU:10 ,27;4;1;"000";10 ,(30-Z$);Z$ %.1}L,30:.1}L,0  &4:"Cards"55000,10200':"Cards"1 & &:0:"":"Cards"55000,10200':"Cards"16384@,(23653e\+256*23654f\)-16384@:k=65149}: 9970& Cards ad@K@