% ** PONTOON * ANDY/JIM/GREG **R2730:52,55:54,55:56,55:2750:882:8xPA(52):AV(52):PA$(5,13):CC(3)(CX(4),CY(4),PC(3,5),BC(5),NO(4),PL(2),MO(2),P$(2)22400:A65298:A,(A)251:A1,((A1)3)56<XX(TI):1600FMO(1)100:MO(2)100:MC500GPCC(1)20:CC(2)33:CC(3)6:PL(1)1:PL(2)1:1120QZ1230ed:NP1PL(2)0nPL(1)0PL(2)02630xPL(1)0BE(1)0PL(2)0BE(2)016601660:CX(1)15:CX(2)28:CY(1)4:CY(2)4:BX2:BY41810Q1NPPL(Q)02101930$2450+QCCXBX:CYBY:Q1NC`1520:CYCY2:CXCX1:Qj2200QINP:PL(Q)0280CYCY(Q):CXCX(Q)CYCY2:CXCX1:2340:2450Q"CXBX1:CYBY2:1480,1520:20106 ** SCORE LOGIC **@Q3:NP23401JSC(1)21P$(1)"L":500aTSC(1)21SC(2)21P$(1)"L":P$(2)"L":500m^W1NChCXBX:CY(BY2)W2rPC(3,W)BC(W)|1760:1310BXBX1WBXCX:BYCYW1NCPC(3,W)BC(W):Q3:NO(3)NC:2450SC(3)161480:Չ500`BXBX1:BYBY2:PC(3,NC)BC(NC):Q3:CXBX:CYBY:WNC:1760:1310sNO(3)NC:2450NC5500:Չ450F((1)2)17:SC(3)F460Q1PL(Q)0640SC(Q)21P$(Q)"L":640SC(3)21P$(Q)"W":640NC5NO(Q)5P$(Q)"L":6408&NO(Q)5P$(Q)"W":640Q0NC5P$(Q)"L":640q:SC(3)SC(Q)P$(Q)"L":640DSC(3)21NC2P$(Q)"L":640NNO(Q)5NC5P$(Q)"W":640XSC(Q)21NO(Q)2P$(Q)"W":640bSC(Q)SC(3)P$(Q)"W":640lSC(Q)SC(3)P$(Q)"L":6409vSC(3)SC(Q)P$(Q)"L":640PNP2Q1Q2:510^NP1700{P$(1)"L"P$(2)"L"860P$(1)"W"P$(2)"W"820P$(1)"W"P$(2)"L"930P$(1)"L"P$(2)"W"980P$(1)"W"740P$(1)"L"780 ** PLAYER WIN **JMCMCBE(1):MO(1)MO(1)BE(1)2:2670:MC11030T25502550:X0:Y23:1080:"PLAYER WINS ";:2560:90 ** BANK WIN ** MCMCBE(1):2550:2700X0:Y23:1080:"BANK WINS ";:2560:MO(1)1PL(1)0 90* ** BOTH WIN **U4MO(1)MO(1)BE(1)2:MO(2)MO(2)BE(2)2:2670:MCMCBE(1)BE(2)d>MC11030rH2550:90R ** BOTH LOSE **\MCMCBE(1)BE(2):2550:2700:MO(1)1PL(1)0fMO(2)1PL(2)0pPL(1)0PL(2)1ME$"PLAYER 2 LOSES"&zPL(1)1PL(2)0ME$"PLAYER 1 LOSES"TPL(1)1PL(2)1ME$"BOTH PLAYERS LOSE"wX0:Y23:1080:ME$;:2560:90 ** PLAYER 1 WIN **MCMCBE(2):MO(1)MO(1)BE(1)2:MCMCBE(1):2670MO(2)1PL(2)0MC11030 2550:X0:Y23:1080:"PLAYER 1 WINS";:2560:909 ** PLAYER 2 WIN **oMCMCBE(1):MO(2)MO(2)BE(2)2:MCMCBE(2):2670MO(1)1PL(1)0MC110302550:X0:Y23:1080:"PLAYER 2 WINS";:2560:90 ** BANK BROKE **2550:X0:Y23:10801"WELL DONE,YOU BROKE THE BANK";:2670:2670:2560J:"PLAYER 1:"MO(1);f$NP2"PLAYER 2:"MO(2)z.2560:2560:608208,X:209,Y:828:BN14:T14:PA$(N,T)::LV ** GENERATE PACK **`SU14jCA113tPA$(SU,CA)(SU96)9~CA11CA1PA$(SU,CA)PA$(SU,CA)(32)(CA48)^CA1PA$(SU,CA)PA$(SU,CA)" A"CA11PA$(SU,CA)PA$(SU,CA)" J"CA10PA$(SU,CA)PA$(SU,CA)"10"CA12PA$(SU,CA)PA$(SU,CA)" Q"CA13PA$(SU,CA)PA$(SU,CA)" K":: ** SHUFFLE **2N152:PA(N)N:AV(N)1:>A130bN1((1)51)1:N2((1)51)1pCCPA(N1)PA(N1)PA(N2)PA(N2)CC : ** DRAW CARD **XCX1:YCY:1080(1,1:(111);2"";(112):CL1:SE0<YCY1:1080:(165);FFZ1$(PA$(SU,CA),1):Z1$(98)Z1$(100)CL3:SE2eP1,CL,SE:(PA$(SU,CA),2);Z(PA$(SU,CA),1);:1,1:" ";(167)dYCY2:1080:(165);:N3$" "nN3$;:(167)xYCY3:1080:(165);" ";1,CL,SE:(PA$(SU,CA),1);:1,1:" ";(167)9YCY4:1080:(165);N3$;(167)]YCY5:1080:828:(165);" ";1,CL,SE:(PA$(SU,CA),2);" ";:1,1:(167)YCY6:1080:(108);"";:(186)1,200,2:C((1)51)1AV(C)01480 AV(C)0:NCNC1:BC(NC)C:+  ** DRAW CARD BACK **J XCX1:YCY:1080:(111);` "";:(112)~ CB$(165)""(167) N15:YCYN:1080:CB$: YCY6:1080:(108); """;(186) ,1,300,2: 6 ** # OF PLAYERS ** @:4,2!JX16:Y8:1080:"PONTOON"G!TX12:Y14:1080:"1 OR 2 PLAYERS";NP]!^NP1NP21620u!hQ1NP:PL(Q)1::!r ** DEAL **!|Q1NP!C1((1)51)1!AV(C1)01670!AV(C1)0:PC(Q,1)C1:!PC(Q,1)C1!C1((1)51)1 "AV(C1)01710"AV(C1)0:BC(1)C1:"NO(1)1:NO(2)1:NC1:R" ** DECODE CARD **k"SIPC(Q,W):CT1:CD1"SXSI:SISI13:SI0CDCD1:1770"SUCD:CASX:BB(Q)CD:DD(Q)SX:"1770" ** SCREEN **"X0:Y2:1080:"BANK","PLAYER 1",#NP2"PLAYER 2"-#&X13:Y20:1080:"BET:"O#0NP2X26:Y20:1080:"BET:"}#:X0:Y21:1080:"\":X13:Y21:1080:"\"#DX26:Y21:1080:"\"#N208,0:209,20:828:"RESERVES"#X208,0:209,19:828:"TOTAL"#b208,13:209,19:828:"TOTAL"'$lNP2208,26:209,19:828:"TOTAL"-$vQ$ >>>>>>> DRAW HAND <<<<<<<<<<<g$CXCX(Q):CYCY(Q)v$W1NO(Q)$1760$1310$CYCY2:CXCX1:W$208,CC(Q)5:209,21:828:MO(Q)$$ * * * STICK * * *$Q1NP:PL(Q)02130%CX(Q)CX(Q)2:2550V%X0:Y23:1080:"PLAYER "Q"STICK TWIST QUIT BUY";%A$:A$"S"A$"T"A$"Q"A$"B"2050:2040%CXCX(Q):CYCY(Q)(2NO(Q))% A$"B"2580%A$"Q"% A$"S"SC(Q)152140:CXCX1:2130&*A$"T"2150:CXCX1:CX(Q)CX(Q)1 &42450P&>SC(Q)21XCC(Q):Y19:1080:"BUST":2130c&HNO(Q)52040l&RQ:&\2450:XCC(Q):Y19:1080:" ";:""SC(Q);:&fC((1)51)1&pAV(C)02150&zAV(C)0:NO(Q)NO(Q)1'PC(Q,NO(Q))C:WNO(Q):1760:1310:' ** PLACE BETS **C'208,1:209,21:828:MC;:Q1NPU'PL(Q)02310}'208,0:209,23:828:N138:" ";:'208,0:209,23:828:"PLAYER ";Q;" YOUR BET \ ";'BE(Q):BE(Q)12220'BE(Q)MO(Q)2220(208,CC(Q):209,20:828:BE(Q))(208,CC(Q):209,21:828:" "?(MO(Q)MO(Q)BE(Q)d(208,CC(Q)4:209,21:828:" "(208,CC(Q)5:209,21:828:MO(Q)( Q( ( >>>>> DEAL ANOTHER CARD <<<<<($ C((1)51)1(. AV(C)02340(8 PC(Q,NO(Q)1)C:AV(C)0 )B NO(Q)NO(Q)1%)L WNO(Q):1760:1310+)V O)` 2410:T023:A:14864T,A::n)j 16,56,124,254,124,56,16,0)t 56,56,254,254,254,16,56,0)~ 108,254,254,254,124,56,16,0) ** PLAYERS SCORE **) SC(Q)0:AC0:Z1NO(Q):WZ:1,1 * 1760:FC$(PA$(SU,CA),2)C* FC$" Q"FC$" J"FC$" K"FC$"10"SC(Q)SC(Q)10_* FC$" A"ACAC1:2500* SC(Q)SC(Q)((PA$(SU,CA),1))* Z:AC02520* XCC(Q):Y19:1080:" ":1080:SC(Q):* R1AC* SC(Q)1121SC(Q)SC(Q)1:SC(Q)SC(Q)11 + :2510.+ X0:Y23:1080:A138:" ";::@+ T13000::P+ ** BUY **f+ MO(Q)BE(Q)2100+ BE(Q)BE(Q)2:MO(Q)MO(Q)BE(Q)2:2150:XCC(Q):Y20:1080+( " ":1080:BE(Q):XX5:Y21:1080:" ":1080,2 MO(Q):CXCX1:CX(Q)CX(Q)1:2070,< ** END GAME **M,F 2550:X0:Y23:1080:"ALL PLAYER'S MONEY GONE"^,P S1005005u,Z 1,S,2::2560:60,d ** WIN SOUND **,n O30010010,x 1,O,10::, ** LOSE SOUND **, 1,200,20, 1,0,10, 2,500,40:- 2740:N08:A:828N,A::6- 24,166,209,164,208,32,240,255,96X- 2760:N030:A:882N,A::- 160,0,132,212,132,214,169,208,133,213,169,56,133,215,162,3- 177,212,145,214,200,208,249,230,213,230,215,202,16,242,96