@%@ WRITTEN BY THOMAS E. GUENTNERD@ (TOMG33)J@l@ HOPE YOU ENJOY THIS GAME!!!r@@ ANY COMMENTS GOOD OR BAD WILL BE APPRECIATED :)))))))))))@@ THIS RUNS ON THE 128(40 COLS) ONLY@ @ %: 2,1A 1A 4,2:0,2:15cA( DK%(15),PV%(4),PS$(4),PN$(4),CV%(4),CS$(4),CN$(4),NV%(4),NS$(4),WV%(4)A2 WS$(4),BV%(4),BS$(4),DV%(4),QV%(4),HD$(9),P1$(9),P2$(14),SS$(3)A<XX0AF A0 3AP SS$(A)AZ AAd A0 9An HD$(A)Ax AB A0 9B P1$(A)B A*B A3 147B P2$(A)?B AUB "","","",""yB NP,PA,TP,TK,ST,FL,FH,FK,SF,RFB "HIGH.","A PAIR OF ","TWO PAIR,","THREE ","A STRAIGHT,","A FLUSH,"C "A FULL HOUSE,","FOUR ","A STRAIGHT FLUSH,","A ROYAL FLUSH."HC THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN,JACK,QUEEN,KING,ACE]CDC15:DX1: 1,1fC:&tC A1 5C 8180: BACK OF CARDC AC" A1 250: AC, 380C6DX1:S$SS$(XX)C@ A1 5CJ N$DT 8260: DISPLAY COMPUTERS CARD D^ ADhXXXX1)Dr XX3 XX0:D| A,K,Q,J,10DD 1,1XD A4 26 11aD A$qD 1,A,10,A${DTSTID TITS30 450: 440D AD "P L A Y","D R A W","P O K E R"D 1,6,12,"PRESS THE SPACE BAR TO PLAY"E 1,10,14,"PRESS E TO END GAME"#E A1 250-E PP$AE PP$" " 560mE PP$"E" "HOPE YOU HAD FUN!!":0:E PP$"" 1,4000,5E AE& 240E0PB2000:CB2000:MP0:BC0:BP0:FO$"F":PO$"F":PF$"F":OP$"F":PA$"F"F:"DO YOU NEED INSTRUCTIONS Y OR N?"FD I$DFN I$"Y" I$"N" 1,4000,5: 580ZFX I$"Y" 9310fFbFT$"T"FlPX1:PC15:DX1:DC15FvPBPB5:CBCB5:MPMP10FF 1,1F 1,0,0,"COMPUTER'S HAND BANKROLL $"F 1,0,9,"YOUR HAND BANKROLL $"G 1,0,18,"MONEY IN THE POT $";G 9080: DISPLAY BANKROLLOG FT$"T" 730}G"WE ANTE ANOTHER $5.00. I WILL REDEAL."G 740G"ANTE IS $5.00. I WILL DEAL."G"SHUFFLING."G 8710: SHUFFLE CARDSG Z0 4G 8850: GET A CARD H PV%(Z)CD:PS$(Z)S$:PN$(Z)N$BH 8430: DISPLAY PLAYERS CARDZH  8850: GET A CARD|H*CV%(Z)CD:CS$(Z)S$:CN$(Z)N$H4 8180: BACK OF CARDH> ZHH"PRESS O TO OPEN BETTING"HR" OR P TO PASS"H\ O$ If O$"O" O$"P" 1,4000,5: 860'Ip 10190: CLEAR TEXT ONLY;Iz O$"O" 2350II A0 4[IBV%(A)CV%(A)mIBS$(A)CS$(A)uI AI CB120 1050I"EXCUSE ME A MOMENT,"I"WHILE I LOOK AT MY CARDS."IPL$"F": 6290: DETERMINE HANDJSH$CH$:SHCH:SMCM:SLCLJ HH0 9/J CH$HD$(HH) 10308J HHOJ"PROGRAM ERROR":aJ HH1 1100{J HH1 CH10 1100J 10190: CLEAR TEXT ONLYJ$ CB20 3430J. PB20 3530J8"I ALSO PASS.": 5JBFT$"F": 620KL CB200 BC20: BC((0)21)20&KV BC40 BC40:K` BCCB BCCBbKj BC20 3830:COMPUTER CED FOLDxKtMPMPBC:CBCBBCK~ 9080: DISPLAY BANKROLLK 10190: CLEAR TEXT ONLYK"I'LL OPEN THE BETTING WITH ";K "$##.##";BC;K"."L"ENTER 0 (ZERO) TO FOLD, ";,L "$##.##";BC;=L" TO PLAY,"VL" OR MORE THAN ";kL "$##.##";BC;|L" TO RAISE"L 1310L"REMEMBER MY BET WAS ";L "$##.##";BC;L "."L 1,4000,5L"WHAT IS YOUR BET";BP M( 10190: CLEAR TEXT ONLY,M2 BP0 3660: PLAYER FOLDEDBM< BP(BP) 1380mMF"PUT THE CHANGE BACK IN YOUR POCKET!"MP"WE ONLY PLAY WITH PAPER MONEY HERE!!"MZ 1270Md BP0 1410Mn"YOU CAN'T BET AN AMOUNT LESS THAN ZERO."Mx 1270N BPBC 1510N BPBC 1450BN"IF YOU CAN'T COVER MY BET THEN FOLD."MN 1270dN BC40BP 1480N"YOUR RAISE IS OVER THE $40.00 LIMIT."N 1270N BPBC20 1510N"YOUR RAISE IS UNDER THE $20.00 MIMIMUM."N 1270O PBBP 1540)O"YOU CAN'T BET MORE THAN YOU HAVE!"4O 1270JOMPMPBP:PBPBBPhO 9080: DISPLAY BANKROLLO BPBC 1570: 1640O"BCBPBCO, BCCB 3820:COMPUTER CED FOLDO6MPMPBC:CBCBBCO@ 9080: DISPLAY BANKROLLOJ"I SEE YOUR ";PT "$##.##";BC;P^"."5Ph 4100: DRAW CARDS]Pr CB20 3830:COMPUTER CED FOLDxP|"EXCUSE ME A MOMENT,"P HH3 1680: 1700P"WHILE I THINK ABOUT HOW MUCH I WILL BET."P 1720P"WHILE I LOOK AT MY CARDS."QPL$"F": 6290: DETERMINE HAND5QPL$"T": 6290: DETERMINE HANDLQX1:X1((0)7)3tQ CB200 BC20: BC((0)21)20Q BC40 BC40Q BCCB BCCBQMPMPBC:CBCBBCQ 9080: DISPLAY BANKROLLQ 10190: CLEAR TEXT ONLYQ"I BET ";R "$##.##";BC;R"." BPBC20 2140UH"YOUR RAISE IS UNDER THE $20.00 MINIMUM."UR 1900%U\ PBBP 2170NUf"YOU CAN'T BET MORE THAN YOU HAVE!"YUp 1900oUzMPMPBP:PBPBBPU 9080: DISPLAY BANKROLLU BPBC 2200: 3380UBCBPBCU BCCB 3830:COMPUTER CED FOLDUMPMPBC:CBCBBCV 9080: DISPLAY BANKROLL8V XX1 CB200 "I CALL.": 3380LV"I SEE YOUR ";aV "$##.##";BC;yV" AND RAISE YOU ";VBC((0)21)20V BC40 BC40VMPMPBC:CBCBBCV 9080: DISPLAY BANKROLLV "$##.##";BCV XX1V$ 1830W. PLAYER OPENED BETTING)W8 A0 4;WB BV%(A)PV%(A)MWL BS$(A)PS$(A)UWV A`W` 2420oWj 1,4000,5Wt "WHAT IS YOUR BET";BPW~ 10190: CLEAR TEXT ONLYW BP(BP) 2480W "PUT THE CHANGE BACK IN YOUR POCKET!"X "WE ONLY PLAY WITH PAPER MONEY HERE!!" X 2410:X BP20 2490: 2510gX "THAT BET IS BELOW THE $20.00 MINIMUM."rX 2410X BP40 2520: 2550X "THAT BET IS OVER THE $40.00 LIMIT."X 2410X PB20 3530X BPPB 2560: 2580Y "YOU CAN'T BET WHAT YOU DON'T HAVE!"#Y 24109Y PBPBBP:MPMPBPWY 9080: DISPLAY BANKROLLuY( 10190: CLEAR TEXT ONLYY2 BCBPY< BCCB 3830:COMPUTER CED FOLDYF "EXCUSE ME A MOMENT,"YP "WHILE I LOOK AT MY CARDS."ZZ PL$"F": 6290: DETERMINE HANDZd HH0 9/Zn CH$HD$(HH) 27008Zx HHOZ "PROGRAM ERROR":jZ CB200 2710: 2730|Z HH1 2870Z HH1 CH10 2870: 2740Z HH1 2740: 2870Z 10190: CLEAR TEXT ONLYZ "I FOLD."Z O$"O" 2770: 3900'[ "NOW LET'S SEE IF YOU HAD OPENERS."3[ FO$"T"R[ 5460: CHECK FOR OPENERS^[ FO$"F"}[ CT$"T" CT$"F": 3680[ 10190: CLEAR TEXT ONLY[ "I HAVE TO WATCH OUT FOR THOSE CHEATERS."[ "GLAD TO SEE THERE ARE STILL HONEST"\" "PEOPLE IN THE WORLD."\, 39001\6 CBCBBC:MPMPBCO\@ 9080: DISPLAY BANKROLLm\J 10190: CLEAR TEXT ONLY\T "I SEE YOUR ";\^ "$##.##";BC;\h "."\r 4100: DRAW CARDS\| "NOW WE BET AGAIN."\ "ENTER YOUR BET"] "OR ENTER 0 (ZERO) TO FOLD."] 2990"] 1,4000,5=] "WHAT IS YOUR BET";BP[] 10190: CLEAR TEXT ONLYq] BP(BP) 3050] "PUT THE CHANGE BACK IN YOUR POCKET!"] "WE ONLY PLAY WITH PAPER MONEY HERE!!"] 2980] BP0 3060: 3080^ "YOU CAN'T BET AN AMOUNT LESS THAN ZERO."&^ 2980H^ BP0 3660: PLAYER FOLDEDb^ BP40 3100: 3120^ "YOUR BET IS OVER THE $40.00 LIMIT."^& 2980^0 BP20 3130: 3150^: "YOUR BET IS UNDER THE $20.00 MINIMUM."^D 2980_N BPPB 3160: 3180,_X "YOU CAN'T BET MORE THAN YOU HAVE!"7_b 2980M_l MPMPBP:PBPBBPk_v 9080: DISPLAY BANKROLL_ BCBP:X1:X1((0)7)3_ BCCB 3830:COMPUTER CED FOLD_ "EXCUSE ME A MOMENT,"_ HH3 3240: 3260` "WHILE I THINK ABOUT HOW MUCH I WILL BET."` 3350@` "WHILE I LOOK AT MY CARDS."d` PL$"F": 6290: DETERMINE HANDs` HH0 9` CH$HD$(HH) 3320` HH` "PROGRAM ERROR":` HH1 3350` HH1 CH10 3350` 2740a PL$"T": 6290: DETERMINE HAND%a 10190: CLEAR TEXT ONLY0a* 2220Ua4 8090: DISPLAY COMPUTERS CARDSpa> 5160: COMPARE HANDSaH O$"O" CT$"T" CT$"F": 3680aR 9080: DISPLAY BANKROLLa\ CB20 3430: 3520af A1 3000: Aap PBPBMP:MP0bz 9080: DISPLAY BANKROLL3b 10190: CLEAR TEXT ONLYab "I DON'T HAVE ENOUGH MONEY TO BET WITH!"b "YOU HAVE WON THIS GAME!"b "HOPE YOU HAD FUN!!"b A1 3000: Ab 240b PB20 3530: 3610b A1 3000: Ab CBCBMP:MP0c 9080: DISPLAY BANKROLL6c 10190: CLEAR TEXT ONLYfc "YOU DON'T HAVE ENOUGH MONEY TO BET WITH!"c "I HAVE WON! SO LONG SUCKER!"c A1 5000: Ac 240c"SHALL WE CONTINUE THIS GAME Y OR N?";c$ C$ d. C$"Y" C$"N" 1,4000,5: 3620 d8 C$"N" 3940*dB 610=dL:PLAYER FOLDS[dV 10190: CLEAR TEXT ONLYd` O$"P" "NOW I'LL SHOW YOU MY OPENERS.": 3790dj A0 4dt BV%(A)CV%(A) 3750d~ BS$(A)CS$(A) 3750d Ad HH3 3760 ePA$"T": 4740:PA$"F"3eCH$SH$:CHSH:CMSM:CLSL:PF$"T"Xe 8090: DISPLAY COMPUTERS CARDSePO$"T": 5170: DISPLAY COMPUTERS CARDS IN WORDSePO$"F":PF$"F"e"I WIN THE HAND BY DEFAULT."eCBCBMP:MP0e 9080: DISPLAY BANKROLLe 3520f COMPUTER FOLDS2f 10190: CLEAR TEXT ONLYMf "I'M FORCED TO FOLD."af O$"P" 3900f"NOW LET'S SEE IF YOU HAD OPENERS."f(FO$"T": 5460:FO$"F": CHECK PLAYER HAND FOR OPENERSf2 CT$"T" 3790f<"YOU WIN THE HAND BY DEFAULT."gFPBPBMP:MP0.gP 9080: DISPLAY BANKROLL9gZ 3420Lgd PLAYER QUITSjgn 10190: CLEAR TEXT ONLY}gx CBPB 4060g PBCB 4000g"BUT WE ARE EVEN!"g 4010g"BUT YOU ARE WINNING!!"g"ARE YOU SURE YOU WANT TO QUIT Y OR N?"h Q$4h Q$"Y" Q$"N" 1,4000,5: 4020Gh Q$"Y" 240Qh 610nh"YOU JUST WANT TO QUIT"h"BECAUSE I'M WINNING!!!!!"h A1 1500: Ah 240h:DRAW CARDSh"NOW WE DRAW."h 4140h" 1,4000,5i,"HOW MANY CARDS DO YOU WANT";CA1i6 CA0 CA3 4160: 4190Oi@ 10190: CLEAR TEXT ONLYxiJ"GIVE ME A NUMBER BETWEEN 0 AND 3!"iT 4130i^ (CA)CA 4200: 4240ih 10190: CLEAR TEXT ONLYir"WHAT DO YOU MEAN BY";CA;"?"j|"GIVE ME A WHOLE NUMBER." j 4130j CA0 46906j CA1 4260: 4360BjY0:Z0Mj 4290\j 1,4000,5xj"WHAT IS THE NUMBER";Xj (X)X 4320j X1 X5 4320: 4560j 10190: CLEAR TEXT ONLYj X;"IS AN INVALID NUMBER"k"I NEED A WHOLE NUMBER BETWEEN 1 AND 5" k 42809k CA2 4370: 4480AkZ0Lk 4400[k& 1,4000,5{k0"WHAT ARE THE NUMBERS";X,Yk: (X)X (Y)Y 4430kD X1 X5 Y1 Y5 4430: 4560kN 10190: CLEAR TEXT ONLYlX"I DON'T UNDERSTAND ONE OF YOUR NUMBERS."=lb"I NEED WHOLE NUMBERS BETWEEN 1 AND 5"Hll 4390Wlv 1,4000,5yl"WHAT ARE THE NUMBERS";X,Y,Zl (X)X (Y)Y (Z)Z 4510l X1 X5 Y1 Y5 Z1 Z5 4510: 4560l 10190: CLEAR TEXT ONLYm"I DON'T UNDERSTAND AT LEAST"5m"ONE OF YOUR NUMBERS."am"I NEED WHOLE NUMBERS BETWEEN 1 AND 5"lm 4470wm 5870m WW1 5m PC,PXm WWX WWY WWZ 8610:OVE PLAYERS CARDm WWm 5870m  WW1 5m PC,PXn  WWX WWY WWZ 4650: 46804n* 8850: GET A CARD_n4PV%(WW1)CD:PS$(WW1)S$:PN$(WW1)N$n> 8430: DISPLAY PLAYERS CARDnH WWnR 10190: CLEAR TEXT ONLYn\ 1,15nf HH3 4720: 4740np"I STAND PAT."nzn 5870 o PA$"T" HH2 5060"o PA$"T" 48804o HH1 4810Fo HH2 4980`o"I'LL TAKE 2 CARDS."ko 4820o"I'LL TAKE 3 CARDS."o WW0 4o DC,DXo CV%(WW)1 CV%(WW)14o CV%(WW)CH CV%(WW)2 8650:OVE COMPUTERS CARDSp WWp 5870p WW0 4)p DC,DXFp$ CV%(WW)1 CV%(WW)14sp. CV%(WW)CH CV%(WW)2 4920: 4950p8 8850: GET A CARDpBCV%(WW)CD:CS$(WW)S$:CN$(WW)N$pL PA$"F" 8180: BACK OF CARDpV CV%(WW)14 CV%(WW)1p` WWqjqt"I'LL TAKE 1 CARD."*q~ WW0 46q DC,DXSq CV%(WW)1 CV%(WW)14q CV%(WW)CH CV%(WW)CM CV%(WW)2 8650q THE ABOVE STMT REMOVE COMPUTERS CARDSq WWq 5870q WW0 4q DC,DXr CV%(WW)1 CV%(WW)14 PHCH 5450hyH CHPH 5410{yR PMCM 5450y\ CMPM 5410yf PLCL 5450yp CLPL 5410yz HH1 HH5 6020: 6050z"THE HANDS ARE TIE, THE POT GETS DIVIDED."(zCBCB(MP2):PBPB(MP2):MP0.zCzCY0:PY0:D$"F"WzPF$"F":CF$"F"jz A4 0 1z DV%(A)CH DV%(A)CM DV%(A)CL DV%(A)CY 6100z 6130z CF$"T" 6130zCYDV%(A)zCF$"T""{ QV%(A)PH QV%(A)PM QV%(A)PL QV%(A)PY 6150-{ 6180B{ PF$"T" 6180P{PYQV%(A)\{PF$"T"d{$ Aw{. PYCY 5450{8 CYPY 5410{B HH1 D$"T" 6020: D$"T": 6060{L HH9 6020{V PHCH 5450{` CHPH 5410|j HH6 HH7 6020|t PMCM 5450.|~ CMPM 54109| 6020]|NH$"NP":OH$NH$:NH0:NM0:NL0| PL$"T" 9890: 9830: SETUP CARDS| B0 4| NV%(B)1 NV%(B)14| B| 9690: SORT CARDS} 9950: SPLIT UP WILD CARDS FROM REGULAR CARDS"} W0 7550: 6430I} 6540: CREATE BEST POSSIBLE HAND^} PL$"T" 6410|}CH$OH$:CHOH:CMOM:CLOL} 6450} PH$OH$:PHOH:PMOM:PLOL} 6500} PL$"T" 6490}(CH$NH$:CHNH:CMNM:CLNL}2 A0 4~<DV%(A)NV%(A) ~F A~P/~ZPH$NH$:PHNH:PMNM:PLNL=~d A0 4O~nQV%(A)NV%(A)W~x A]~k~W11:W21{~ A0 R2~ WV%(A)WV%(A1) 6570: 6610~W1W11~ W1W2 6590: 6610~W2W1:W11~NC%WV%(A)~ A~ W21 6760X0:Y0:W3W4 WV%(X)NC% 6660: 6710:INV%(Y)NC%[W3W31:YY1h" W30,NC%99: MAKE NC%<>WV%(X)6 Y4 @NV%(Y)WV%(X)JXX1:YY1T Y5^ 7550: 6830h A0 R1rNV%(A)WV%(A)| A  BA 4!NV%(B)WV%(A1)) BF 7550: FIGURE OUT HANDj 10090: SAVE NH$ AFTER PASS 1 OP$"F" 6910 HH0 9 OH$HD$(HH) 6890 HHǀ"PROGRAM ERROR":ր HH1  HH1 OH10  W21 AC$"F"6 PL$"T" 9890: 9830: SETUP CARDSN 9690: SORT CARDSo& AC$"T" NV%(0)14: 96900 9950: SPLIT UP WILD CARDS FROM REGULAR CARDS:B0D A0 R1΁N A1R 7010X WV%(A)1WV%(A1) 7150b W0 7020: 7150lNV%(B1)WV%(A)1-vNV%(B)WV%(A)?NS$(B)WS$(A)SNS$(B1)WS$(0)cWW1:BB2{ W0 7080: 7180 A4 B0 7180 NV%(B1)1WV%(A1) 7100: 7180тNV%(B)NV%(B1)1NS$(B)WS$(0)BB1WW1 7070NV%(B)WV%(A)&NS$(B)WS$(A)0BB18  AU 7550: FIGURE OUT HANDr  NH$"FL" 7210: 7520* PL$"T" 9890: 9830: SETUP CARDS4 A0 4Ƀ> NV%(A)1 NV%(A)14уH AR 9690: SORT CARDS\ 9950: SPLIT UP WILD CARDS FROM REGULAR CARDS>f WV%(R1)14 7280: 7290ppWV%(R)14:WS$(R)WS$(R1):RR1:WW1:AC$"T"xzB4 AR1 0 1 A0 7330 WV%(A)1WV%(A1) 7470Մ W0 7340: 7470넬NV%(B1)WV%(A)1NV%(B)WV%(A)NS$(B)WS$(A)%NS$(B1)WS$(R1)5WW1:BB2M W0 7400: 7500d A0 B4 7500 NV%(B1)1WV%(A1) 7420: 7500NV%(B)NV%(B1)1NS$(B)WS$(R1)BB1˅WW1օ$ 7390.NV%(B)WV%(A)8NS$(B)WS$(A)BBB1 L A)V 7550: FIGURE OUT HANDM` 10090: SAVE NH$ AFTER PASS 2yj NV%(4)14 AC$"F" AC$"T": 6930t~ FIGURE OUT HAND 7610 NH14 NH14ن NH$"NP" NH$"FL" 7590: NHNV%(4):NMNV%(3):NLNV%(2) A0 3, NV%(A)NV%(A1) 77704 AB A0 3` NS$(A)NS$(A1) 7690h A NH$"ST" NH$"SF" NH$"SF" NH$"FL"  A0 3ˇ NV%(A)1NV%(A1) 7750Ӈ A( NH$"FL" NH$"SF" NH$"SF": NH$"ST"2NHNV%(4):< NH$"SF" NV%(4)14 NH$"RF":]F NV%(0)1 NV%(0)14:SO$"F"P SO$"F" 9690: 7610: ZNH$"PA":NHNV%(A)d A3 NMNV%(2):NLNV%(1): 7800ÈnшxNMNV%(4) A2 NLNV%(1): NLNV%(3) A0 79207 NV%(2)NV%(4) NV%(0)NV%(2) 7840: 7860XNH$"FH":NHNV%(2):NMNV%(0)^ NV%(0)NV%(2) NV%(3)NV%(4) NV%(0)NV%(3) 7870: 7890‰NH$"FH":NHNV%(0):NMNV%(3)ȉ NV%(3)NV%(4) 7900: 7930NH$"TP"NHNV%(3):NMNV%(0):NLNV%(2)* A1 8020P NV%(A2)NV%(A3) 7940: 7970]NH$"TP" A0 NLNV%(4): NLNV%(0)NMNV%(A):NHNV%(A2)" NV%(A)NV%(A3) 7980: 8020ʊ,NH$"FK"6 A1 NMNV%(0): NMNV%(4)@NHNV%(A)J!T NV%(A)NV%(A2) 8030: .^NH$"TK"Zh A0 NHNV%(0):NMNV%(4):NLNV%(3):hrNHNV%(2)v|NLNV%(0) A1 NMNV%(4): NMNV%(1)DX1:DC15 A0 4Ћ PF$"F" 8140 BV%(A)CV%(A) DXDX8: 8160 BS$(A)CS$(A) DXDX8: 81604S$CS$(A):N$CN$(A)X 8260: DISPLAY COMPUTERS CARD` Af 8530: DRAW DEALERS BOX 1,15 Y2 7 1,DX,Y,"" Ynj& DXDX8ь0 1,1׌: D Y2 7N 1,DX,Y," "X Yb 8330l 1,1v < 8530: DRAW DEALERS BOX` S$"" S$"" CO9: CO1k 1,CO{ 1,DX,2,N$ (N$)1 1,DX1,2,S$: 1,DX2,2,S$׍ (N$)1 1,DX4,7,N$: 1,DX3,7,N$썼 N$"2" 8400( 1,DX1,3,"W":1,DX2,4,"I":1,DX3,5,"L":1,DX4,6,"D": 1,DX5,7,S$F DXDX8L j 8570: DRAW PLAYERS BOXu 1,CO! 1,PX,11,N$ ! (N$)1 1,PX1,11,S$: 1,PX2,11,S$! (N$)1 1,PX4,16,N$: 1,PX3,16,N$ ! N$"2" 8500;*!1,PX1,12,"W":1,PX2,13,"I":1,PX3,14,"L":1,PX4,15,"D"N4! 1,PX5,16,S$Z>!PXPX8`H!kR! 1,15\! 1,DC,65,DC175,340f!DCDC205p!z! 1,15! 1,PC,430,PC175,705ˏ!PCPC205я!叢! 1,PX,11," "! 1,PX3,16," "! 0,PC,430,PC175,705!)! Y2 7?! 1,DX,Y," "G! Y`! 0,DC,65,DC175,340f!|! SHUFFING MODULE" A0 15"DK%(A)52" A$" A0 15."CD((1)52)ѐ8" B0 15B" CDDK%(B) 8750L" BV"DK%(A)CD`" Aj"YY0-t" 10190: CLEAR TEXT ONLY3~"K" GET A CARD MODULEZ"CDDK%(YY)f"YYYY1y" CD13 8990" CD26 8960" CD39 8930"S$"":CO1"CD(CD38)ޑ" 9020: ASSIGN CARD VALUE"S$"":CO1"CD(CD25)" 9020: ASSIGN CARD VALUE-#S$"":CO9= #CD(CD12)\# 9020: ASSIGN CARD VALUEl#S$"":CO9{(#CD(CD1)2# ASSIGN CARD VALUE<# CD1 N$"A":F# CD11 N$"J":גP# CD12 N$"Q":Z# CD13 N$"K":d#N$((CD),2,2)n#x# CB.01 CB00# PB.01 PB0:#BRCBE# 9200Z#A$BR$:AL:BRPBe# 9200z#B$BR$:BL:BRMP# 9200#1,1: 1,27,0,(A$,2,A1)" "̓# 1,21,9,(B$,2,B1)" "# 1,18,18,(BR$,2,L1)" "# #BR$(BR)".00"2# BR1 BR0 BR$" 0"(BR$,2,3)F$L2(BR$,".")1Y$T$(BR$,L2,2)o$L3(T$,".")L21"$ L3L21 L30,$L1L23:LL21ܔ6$ L13 LL1:L3L31:T$(BR$,1,L12)",":BR$T$(BR$,L11,L)@$ L30 J$(BR$,L3,1)"0"T$ ^$ 0h$""Fr$"THIS GAME IS PLAYED JUST LIKE A STANDARD"t|$"GAME OF DRAW POKER WITH TWO EXCEPTIONS"$"AS FOLLOWS:":$" 1) THE COMPUTER WILL ALWAYS DEAL":ꕚ$" 2) THERE IS NOT ANY CUT OF THE DECK"::$"A PAIR OF JACKS OR A BETTER (HIGHER)"@$"HAND ARE REQUIRED TO OPEN THE POT."\$"ALL DUECES ARE WILD."$:"YOU AND THE COMPUTER BOTH START OFF"$"WITH $2,000.00."$"ANTE IS $5.00."ߖ$"THE BET RANGE IS $20.00 TO $40.00"$"INCLUSIVE."2$::"PRESS THE SPACE BAR FOR THE REST OF THE INSTRUCTIONS."<$ I$^% I$" " 1,4000,5: 9470g%""%"WHEN IT COMES TIME TO DRAW CARDS THE"&%"COMPUTER WILL ASK YOU HOW MANY CARDS"З0%"YOU WANT.":%"YOU ENTER A NUMBER FROM 0 (ZERO) TO 3."-D%"THEN THE COMPUTER WILL ASK YOU WHAT THE"FN%"CARD NUMBERS ARE."vX%"YOU ENTER A NUMBER (OR NUMBERS SEPARATED"b%"BY COMMAS) FROM 1 TO 5."˜l%"THE LEFTMOST CARD IS NUMBER 1 AND THE"v%"RIGHTMOST CARD IS NUMBER 5."%"THE FIRST PLAYER (YOU OR THE COMPUTER)"B%"THAT ISN'T ABLE TO MAKE THE MINIMUM BET"P%"LOSES."{%:" G O O D L U C K"::%"PRESS THE LETTER 'S' TO START THE GAME."% I$֙% I$"S" 1,4000,5: 9650% 2,1:1%% SORT CARDS%SO$"T"% ZZ0 35% NV%(ZZ)NV%(ZZ1) 9800A&SO$"F"P &T%NV%(ZZ)f&NV%(ZZ)NV%(ZZ1)w &NV%(ZZ1)T%*&T$NS$(ZZ)4&NS$(ZZ)NS$(ZZ1)>&NS$(ZZ1)T$H& ZZ˚R& SO$"F" 9700њ\&f&:MOVE COMPUTERS CARDS TO NEW ARRAYp& A0 4z&NV%(A)CV%(A)+&NS$(A)CS$(A)3& A9&_&:MOVE PLAYERS CARDS TO NEW ARRAYm& A0 4&NV%(A)PV%(A)&NS$(A)PS$(A)& A&̛& SPLIT UP WILD CARDS FROM REGULAR CARDSڛ& A0 4&WV%(A)0& A'W0:R0 ' A0 4(' NV%(A)2 10020: 100402$'WW1>.' 10070P8'WV%(R)NV%(A)bB'WS$(R)NS$(A)lL'RR1tV' Az`'j' SAVE NH$ IN OH$t' A0 9~' NH$HD$(A) NA̜' OH$HD$(A) OAԜ' A朜' NO 10170' NO NHOH 10170'$'OH$NH$:OHNH:OMNM:OLNL*'M' CLEAR TEXT PORTION OF SCREENV'""e' A1 19k's' Ay(