/: STRE(52):XX~0:SC$(12):WR~0:210:360 338/XXX~0:12:1,12:40::"PONTOON.DAT",HH$%400:PM}75sBM~(PMw1.5):BM~100!:12:15,12:32:7:1,0 224,"FF00FF00FF00FF00" A$~((224),4)t(" ",2)/12:4,12:I~0r6:@0,I,A$;A$;A$;A$;A$:I%I~13r19:@0,I,A$;A$;A$;A$;A$:I^3,12:@0,8," ";NN$;" ":4,7:@0,9,"CARDS"o9):@0,10,"MONEY";o9):@0,11,"STAKE";o9)Z1,12:@15,8," BANK ":4,7:@15,9,"CARDS ":@15,10,"MONEY "%4,7:@8,10,PM:5,7:@23,10,BM#A~0:CN~0:6,0:7,78:8,6:13,8!6,1:@9,7,"SHUFFLING":334CARD~(52)t1 I~1rA CARD~STRE(I)28"I'$1,(126)t40,(42)t48,9,196:13,7 &A~At1:STRE(A)~CARD:A4528(0,12:@9,7,o9)*:8,0:9,0:10,0:CTR~1T,X$~" ":PT~0:PT1~0:BT~0:BT1~0:CN~1:0,12:@0,22,o30):7,7:@5,9,o9):@5,11,o9)3.@20,9,o9):B$~" ":C$~" '( ":D$~" && ":4,7j/BM1s@0,21,"BANK GETS 150 FROM ROULETTE GAME":I~1r30:BM~BMt5:2:@23,10,BM:I:12,12:@0,21,o32)(05,7:5,7:@23,10,BM:PMu50s31842@8,10,PM:4,12:I~0r6:@0,I,A$;A$;A$;A$;A$:I%4I~13r19:@0,I,A$;A$;A$;A$;A$:I067,78:6,0:10,0:12,0:14,0:CTRt10}45s128CN~1sXP~0:YP~0:94:CN~2sXP~6:YP~0:94 <298>CN~3s224:XP~12:YP~0@CN6s94:76BCN~4s224:XP~18:YP~0DCN6s94:76FCN~5s224:XP~24:YP~0HCN6s94 J224?KCN~6 z PT22 z QQ$~"T" { CN~6 z PT122 z QQ$~"T" s 4000LCN~6sXP~0:YP~13:94NCN~7sXP~6:YP~13:94:242PCN~11s274RCN~8sXP~12:YP~13:94:242TCN~11s274VCN~9sXP~18:YP~13:94:242XCN~11s274 ZCN~10sXP~24:YP~13:94:242\CN~11s296:2748^CN~CNt1:SUIT~STRE(CTR)y4:NBR~STRE(CTR)y13:CTR~CTRt1`NBR}9sNNN~10:NNN~NBRt1 bCN7sPT~PTtNNN:PT1~PT1tNNNdCN7 z NNN~1 sPT1~PT1t10fPT}21 z PT1}21 s 106.h5,1:PT}PT1s@5,9,PT1;"";PT:@9,9,PT jCN}6sBT~BTtNNN:BT1~BT1tNNNlCN}6 z NNN~1 sBT1~BT1t105n5,1:BT1}21 z BT22 s@20,9,o8):@24,9,BT:1140p5,1:BT}BT1s@20,9,BT1;"";BT:@24,9,BT[rSUIT~0s38,"0010387CFE7C3810":39,"0103070F0F070301":40,"80C0E0F0F0E0C080":6,15ltSUIT~0s60,"0103070F1F3F7F3F":61,"1F0F070301000000":62,"80C0E0F0F8FCFEFC":64,"F8F0E0C080000000"[vSUIT~1s38,"183C5AFFFF5A183C":39,"0103050F0F050103":40,"80C0A0F0F0A080C0":1,15lxSUIT~1s60,"0103070F1F3F7F7F":61,"7F7F7F3D19010307":62,"80C0E0F0F8FCFEFE":64,"FEFEFEBC9880C0E0"[zSUIT~2s38,"00183C7EFF5A183C":39,"000103070f0d0501":40,"0080c0e0f0b0a080":1,15l|SUIT~2s60,"0307070703193D7F":61,"7F7D3D1901010307":62,"C0E0E0E0C098BCFE":64,"FEFEBC988080C0E0"[~SUIT~3s38,"6CEEFEFE7C381000":39,"0000060e0f070301":40,"0000c0e0e0c08000":6,15lSUIT~3s60,"00183C3C7E7E7F7F":61,"3F3F1F0F07030100":62,"00183C3C7E7EFEFE":64,"FCFCF8F0E0C08000" 334NBR~0s158NBR~1s162NBR~2s166NBR~3s170NBR~4s174NBR~5s178NBR~6s182NBR~7s186NBR~8s190NBR~9s194NBR~10s198NBR~11s202NBR~12s206F@XP,YP,"A ":@XP,YPt1," ":@XP,YPt2," ":@XP,YPt3,"<>"9@XP,YPt4,"=@":@XP,YPt5," ":@XP,YPt6," A":G@XP,YP,"2 ":@XP,YPt1,B$:@XP,YPt2,C$:@XP,YPt3,B$:@XP,YPt4,C$$@XP,YPt5,B$:@XP,YPt6," 2":G@XP,YP,"3 ":@XP,YPt1,C$:@XP,YPt2,B$:@XP,YPt3,C$:@XP,YPt4,B$$@XP,YPt5,C$:@XP,YPt6," 3"::@XP,YP,"4 ":@XP,YPt1,B$:@XP,YPt2,D$:@XP,YPt3,B$1@XP,YPt4,D$:@XP,YPt5,B$:@XP,YPt6," 4":G@XP,YP,"5 ":@XP,YPt1,B$:@XP,YPt2,D$:@XP,YPt3,C$:@XP,YPt4,D$$@XP,YPt5,B$:@XP,YPt6," 5":T@XP,YP,"6 ":@XP,YPt1,B$:@XP,YPt2,D$:@XP,YPt3,D$:@XP,YPt4,D$:@XP,YPt5,B$@XP,YPt6," 6":G@XP,YP,"7 ":@XP,YPt1,D$:@XP,YPt2,B$:@XP,YPt3,D$:@XP,YPt4,C$$@XP,YPt5,D$:@XP,YPt6," 7":G@XP,YP,"8 ":@XP,YPt1,D$:@XP,YPt2,C$:@XP,YPt3,D$:@XP,YPt4,C$$@XP,YPt5,D$:@XP,YPt6," 8"::@XP,YP,"9 ":@XP,YPt1,D$:@XP,YPt2,D$:@XP,YPt3,C$1@XP,YPt4,D$:@XP,YPt5,D$:@XP,YPt6," 9"::@XP,YP,"* ":@XP,YPt1,D$:@XP,YPt2,D$:@XP,YPt3,D$1@XP,YPt4,D$:@XP,YPt5,D$:@XP,YPt6," *":F@XP,YP,"J ":@XP,YPt1,"+ ":@XP,YPt2,"+ ":@XP,YPt3,"+<>"9@XP,YPt4,"+=@":@XP,YPt5,"+ ":@XP,YPt6," J":F@XP,YP,"Q ":@XP,YPt1,"+ ":@XP,YPt2,"+ ":@XP,YPt3,"+<>"9@XP,YPt4,"+=@":@XP,YPt5,"+ ":@XP,YPt6," Q":F@XP,YP,"K ":@XP,YPt1,"+ ":@XP,YPt2,"+ ":@XP,YPt3,"+<>"9@XP,YPt4,"+=@":@XP,YPt5,"+ ":@XP,YPt6," K":f42,"8C9292929292928C":43,"0101010101010101":237,"A0A0A0A0A0A0A0A0":238,"0505050505050505"pCC$~" ":DD$~" CREDIT ":EE$~" ":DE$~" DEBIT ":239,"FF00FF0000000000":240,"0000000000FF00FF"D127,"0000000000000000":1,0:GA~0:146,"FFFFFFFFFFFFFFFF":2h196,"0103070F1F3F7F3F":197,"1F0F070301000000":198,"80C0E0F0F8FCFEFC":199,"F8F0E0C080000000"h200,"00183c3c7e7e7f7f":201,"3F3F1F0F07030100":202,"00183C3C7E7EFEFE":203,"FCFCF8F0E0C08000"h208,"0103070F1F3F7F7F":209,"7F7F7F3D19010307":210,"80C0E0F0F8FCFEFE":211,"FEFEFEBC9880C0E0"j248,"0307070703193D7F":249,"7F7D3D1901010307":250,"C0E0E0E0C098BCFE":251,"FEFEBC988080C0E0":-PT}21 z PT1}21sCN~6:@5,9," BUST ": CN~6sZ1,12:@0,22,"Twist or stick? T or S ":#0:1,0:QQ$~$(1):@0,22,o23):@0,21QQ$~"T"{QQ$~"t"sQQ$~"T":/QQ$~"S"{QQ$~"s"sQQ$~"S":CN~6:XP~0:YP~13: 228RPT1~21 z BT1~21s4,12:@0,22,"DRAW GAMBLE REFUNDED":CN~11:PM~PMtGA:296:WBT~PT z PT}16 z PT22s4,12:@0,22,"DRAW STAKE REFUNDED":CN~11:PM~PMtGA:296:XBT1~PT z PT}16 z PT22s4,12:@0,22,"DRAW STAKE REFUNDED":CN~11:PM~PMtGA:296:[BT1~PT1 z PT1}16 z PT122s4,12:@0,22,"DRAW STAKE REFUNDED":CN~11:PM~PMtGA:296:]BT1~21 z PT21 z PT121s6,12:@0,22,"BANK HAS PONTOON...YOU LOSE":294:CN~11:BM~BMtGAhBT}21 z BT1}21 z PT~21s1,12:@0,22,"YOU WIN DOUBLE STAKE":294:CN~11:PM~PMt(GAw3):BM~BMu(GAw2):iBT}21 z BT1}21 z PT1~21s1,12:@0,22,"YOU WIN DOUBLE STAKE":294:PM~PMt(GAw3):BM~BMu(GAw2):CN~11:aBT1~21 z PT}21 z PT1}21s6,12:@0,22,"BANK HAS PONTOON...YOU LOSE":CN~11:BM~BMtGA:296:SBT~21 z PT~21s4,12:@0,22,"NO WINNER STAKE REFUNDED":294:CN~11:PM~PMtGA: 6,12WBT1}PT z BT1}PT1 z BT121 s@0,22,"BANK WINS ... TRY AGAIN":296:CN~11:BM~BMtGA:]PT}21 z PT1}21s@0,22,"BANK WINS ANOTHER GO? Y or N":@25,21:CN~11:BM~BMtGA:X$~$(1):cBT}PT z BT}PT1 z BT22s@0,22,"BANK WINS ANOTHER GO Y or N":@25,21:BM~BMtGA:X$~$(1):CN~11:eBT}PT z PT1}21 z BT22 s@0,22,"BANK WINS ANOTHER GO? Y or N":@25,21:BM~BMtGA:CN~11:X$~$(1):fBT1}PT z PT1}21 z BT22 s@0,22,"BANK WINS ANOTHER GO? Y or N":@25,21:BM~BMtGA:CN~11:X$~$(1):& BTPT z BTPT1 z BT16 z CN10sY BT}21 z PT21s1,12:@0,22,"WELL DONE YOU WIN":294:PM~PMt(GAw2):BM~BMuGA:CN~11:OBT~PT AN BT}16s4,12:@0,22,"DRAW STAKE REFUNDED":PM~PMtGA:294:CN~11:CN11s:CN~11:X$~"Y"{X$~"y"44Q$~(PM):Q~(Q$)?X$~"N" z PM}0 s SC$(XX)~CC$tNN$t(" ",(11uQ))tQ$tDD$:344?X$~"n" z PM}0 s SC$(XX)~CC$tNN$t(" ",(11uQ))tQ$tDD$:344=PM0 z X$~"N"sSC$(XX)~CC$tNN$t(" ",(11uQ))tQ$tDE$:344=PM0 z X$~"n"sSC$(XX)~CC$tNN$t(" ",(11uQ))tQ$tDE$:344SPM~0 z X$~"N"sPM~1:Q$~(PM):Q~(Q$):SC$(XX)~CC$tNN$t(" ",(11uQ))tQ$tDD$:344S PM~0 z X$~"n"sPM~1:Q$~(PM):Q~(Q$):SC$(XX)~CC$tNN$t(" ",(11uQ))tQ$tDD$:344"X$~" "44A$@0,22,"Please press Y or N ":@15,22:X$~$(1):274&****DELAY***(I~1r1200:I:* GAMBLE , GM$.GM$~"PPP"s310:3000@1,22,GM$:@0,222GA$~$(1):GA~(GA$)41,7:@5,11,((207),GA)6PM~PMuGA:5,7:@8,10,PM:s8 How much do you wish to stake?,Gamble away 0]9,Come on try 9,How much do you want to lose?,Enter stake moneyc: Next card is an ACE,Your luck must change soon,Who dealt these cards?,Computers cannot cheatB< I said computers cannot cheat,You are not really trying,PPP">326:TT~(8):I~0rTT:BMM$:I @@0,22,BMM$:TT}5sPM~PMt250BTT}3 z TT6sPM~PMt400DTT4sPM~PMt100F310:296:tH FOR YOUR BIRTHDAY...`100,BANK ALLOWS YOUR `100 IOU,YOU SELL YOUR WATCH FOR `100,YOU GET `100 FOR YOUR AMSTRADqJ YOU GET `400 FOR YOUR CAR,YOU WIN `400 ON THE POOLS,YOU WIN `250 ON THE POOLS,SELL TELECOM SHARES FOR `2505L YOU INHERIT `250,POLICE CHARITY GIVES YOU `250#N7,71:6,16:10,19:12,7:13,7PR}4s::IT354: :SC$(1)~" PONTOON PLAYER TABLE "t(" ",120)4VI~2r12:AA$:BB$:SC$(I)~CC$tAA$tEE$tBB$tDD$:IX:"PONTOON.DAT",HH$,26Z:"PONTOON.DAT",HH$ \#HH$^P~1r12:#HH$;SC$(P):P `:#0: b310:4|dPLAYER1,00000100,PLAYER2,00000100,PLAYER3,00000100,PLAYER4,00000100,PLAYER5,00000100,PLAYER6,00000100,PLAYER7,00000100IfPLAYER8,00000100,PLAYER9,00000100,PLAYERa,00000100,PLAYERb,00000100%h12:1,12:40:@16,0,"PONTOON"j@9,2,"c BELL SOFTWARE"k1,12:57,171,4,,0Xl@13,4,"7 Common Close":@13,5,"Horsell":@13,6,"Woking":@13,7,"Surrey GU21 4DB"Rm@2,9,"Please send s.a.e. for full details of our range of software""n2:7,71:6,16:10,19:12,16 pI~1r90r1,(250),20,6,196t2,(250),80,6,200v3,(250),50,1,208x4,(250),110,1,248z13,Iy16:6,Iy10:12,IMD8!|I:6,16:10,19:12,16:13,7F~1,240,150,6,196:2,0,30,1,208:3,240,30,6,200:4,0,150,1,248]@6,20,"Thanks ";NN$;o24);"you are not yet on the table";o12)"enter name to be replaced"Z@22,20,"_________":@22,20:SS$~$(9):I~2r12:SS$~(SC$(I),7,9)sXX$~SC$(I):XX~I:GG~1IGG}1s:386 GG~0:$I~19r27:(XX$,I,1)~"-"sMN~It1"I:PM~u((XX$,MN,(27uMN))):&1000:I~1r12:#HH$;SC$(I):I::@0,5:I~1r12:(SC$(I),29,6)~"CREDIT"s1,12:6,12SC$(I):IfX$~"N"{X$~"n"s@6,20,"Press Z to end or P to play":@22,20:ZX$~$(1):ZX$~"Z" {ZX$~"z"s :::L4,15:@6,20,"HELLO,please enter your name":1,12:@10,22,"_________"G@10,22:NN$~$(9):I~2r12:NN$~(SC$(I),7,9)sXX$~SC$(I):XX~I:XXX~1S((NN$,1))~13s@6,20,"Use space bar not enter key ":@10,22,"_________":410:I:I~1r9:((NN$,I,1))}122 { ((NN$,I,1))32 sWR~1QI:WR~1s@6,20,"Incorrect key used re-enter ":@10,22,"_________":WR~0:410XXXX~1s@10,22,o9):@6,20,"Thanks ";NN$;o12):@6,21,"you have ";(XX$,19):296:296XXX}1s3862(XX$,29,6)~"CREDIT"sPM~((XX$,19,8)):396 ::f@0,22,"5 CARD TRICK YOU TAKE BANK":5,7:W~PMrPMt(BMu10)p5:PM~PMt5:BM~BMu5:@8,10,PM:@23,10,BM&7,126:8,15:I~20r230:0,I:I:WE6,31:7,71:8,16:9,16:10,16:12,100:13,0:12,12:@0,22,o27) CN~0:44)#: 0!+ "0@`I@X5