pontoon N5:0:5::10 ,8;"STOP THE TAPE":n=110 :.1}L,10 :n:100d:9000(# 4:4:0: !bank=200:money=100d <f=0200:f:come here after one hand finnished Gf=10 21:f,0;" ":f Bvalue=0:ace=0:a$(4,13 ):across=0 tmoney0:10 ,10 ;"Hard Luck";12 ,10 ;"you lost!":f=0500:f:6700, ޒbank0:10 ,10 ;"Well Done";12 ,10 ;"you broke";14,10 ;"the Bank!":f=0500:f:6700, 7,15;" ";8,27;" ";6,27;" ":f=08:f,0;" ":f:0,175:119w,0:0,-71G:-119w,0:0,71G d=-3:person g1,1;"How much do ";2,1;"you wish to ";3,1;"gamble ? "  8000@ 15,8;" ";0,16;7;"You have ";0;"` ";0,29;money;7;2,16;"I have ";0;"` ";2,29;bank;7;5,16;"Your score is" person=value 0;5,30;" ";5,30;person:ace=10 7;6,27;"Or ";0;6,30;person+10 ;7 >ace10 7,17;" ";8,17;" "  2bet:bet=bet:bet<0bet>money2060  ,#1;"Press SPACE to stop" d=25  8000@:person=value !4person=11 ace=10 d=27000X (person>11 ace=0 )(ace=06,27;" " *0;5,30;" ";5,30;person:ace=10 7;6,27;"Or ";0;6,30;person+10 ;7 +person>212995 ,?f=0150:f:d=5person217000X 4f1,1;"Twist or ";2,1;"Stick ? ";3,1;"(T/S) " >i$=:i$=""2110> H0i$="S"i$="s"person+ace>12 5000 Ji$=" "6700, Mi$"T"i$"t"2110> d person>212995  7000X }1,1;"Hard luck ";2,1;"you Bust ! ";3,1;" ":f=0150:f .5,20:1,1;"I Win ! ";2,1;" ";3,1;" ":f=0250:f +bank=bank+bet:money=money-bet:200 ,value=0:ace=0:across=0 )person<12 person=person+10 e1,1;"Please wait,";2,1;"It's my ";3,1;"turn " Gf=10 21:f,0;" ":f G8000@:comp=value:f=080P:f:8000@:comp=value O7,16;7;"My score is ";0;7,30;comp Ucomp<12 ace=10 8,27;7;"Or ";0;comp+10 @f=0150:f:comp=11 ace=10 3000 /comp+acepersoncomp+ace<223000 Kd=35:f=0100d:f:comp+ace12 ace=0 ccomp+acepersoncomp+ace<22comp=comp+ace:ace=0:f=0150:f:3000 O7,16;7;"My score is ";0;7,30;comp =" "6700,  comp>216000p  Gcomp+acepersoncomp+ace<22f=0200:f:3000  Ucomp<12 ace=10 8,27;7;"Or ";0;comp+10  *comp12 8,27;" " f=0200:f 8000@:comp=value 7,16;7;"My score is ";0;7,30;comp:ace=10 comp<12 8,27;7;"Or ";0;comp+10 ccomp+acepersoncomp+ace<22comp=comp+ace:ace=0:f=0150:f:3000 d comp>216000p (O7,16;7;"My score is ";0;7,30;comp )*comp12 8,27;" " *Ucomp<12 ace=10 8,27;7;"Or ";0;comp+10 +*comp12 8,27;" " ,Ucomp<12 ace=10 8,27;7;"Or ";0;comp+10 -ccomp+acepersoncomp+ace<22comp=comp+ace:ace=0:f=0150:f:3000 PGf=10 21:f,0;" ":f Z`1,1;"Five card ";2,1;"trick ";3,1;"I win !" pGf=10 21:f,0;" ":f u1,1;"I have ";2,1;"Bust ! ";3,1;" ":f=0150:f:7000X z+bank=bank-bet:money=money+bet:200 ,""6700, 1d:10 ,11 ;"Do you wish":12 ,10 ;"to play again":14,14;"(Y/N)" 6l$=:l$=""67106 @l$="Y"l$="y"10 J5:0:5::l$="N"l$="n":10 ,8;"Run the tape":13 ,0;:"" Xf:.1}L,0:.6,15:1,1;"Well Done ";2,1;"You win ";3,1;" ":f=1200:f:6010z @ :print 0f=10 21:f,across;" ":f bacross*8,0:63?,0:0,95_:-63?,0:0,-95_ Vsuit=(*4)+1:card=(*13 )+1:a$(suit,card)" "8130 a$(suit,card)="O" screen !suit=1s$="":i=2 !suit=2s$="":i=2 !suit=3s$="":i=0 !suit=4s$="":i=0 card=1s$=s$+"A":ace=10 :a$(1,1)="O":a$(2,1)="O":a$(3,1)="O":a$(4,1)="O":8180 &card=10 s$=s$+"":8180 &card=11 s$=s$+"J":8180 &card=12 s$=s$+"Q":8180 &card=13 s$=s$+"K":8180  s$=s$+card n7;i;11 ,across+1;s$(2);12 ,across+1;s$(1):across=across+3  calculate card11 card=10 value=value+card  #2M0,108l,254,254,124|,124|,568,16 #