' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]$$8HIL,նh, ,`, ,`, , C,:/8` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `LĦeff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  ՠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`ԪԪՂԂՂpx4@`Rax<@GHPaaSyԪՂЪ $$H$$$H$$prD""I8ժЪՂЀԪՊЀԪՂԪԪՂԂՂЀ@ԪՂЪ d$H$d$H$d<2D ""IժЪՂЀԪՊЀԪՂԪԪՂԂՂЀԪՂЪ@'C8C'#8C#cRa<4<7xժЪՂЀԪՊЀԪՂՀՊЀ@xЀЪժՂЀЀЂՀՊЀpXD@`abX0KbcxՀРՀРт!ЀРЀЀЀРԪԂЀР"***@(@*@*ШՂЪՂЀՊРՀ*A**A(P P AЀ!ЀРЀЀЀРԪՊ"***@(@*@*РՂЪԀЀՂРՀ*A**A(P P AԠЪРЀЀaЀЪРЀЀЀՂԪЀРՀժРՀԀЀՂР@A@ P AՠЪРЀЀ`'ЀРЀЀЀՊԪЀРՂժՂՂШĢ20:1:"*FIVE CARD CHARLIE*":ST(W,S2)5:e*T(W,2,S2)22T(W,2,S2)T(W,1,S2)ĺ" OR "T(W,2,S2):k4' - OPENING SCREEN'36099$'X110:X214:Y111:Y228/'8'X1:Y1:B'IY1Y2:" ";:X(16336):IL'IX1X2V'I:Y2:" ";:X(W,2,S2)21HN(W,3,S2)07200V20:1:35841,4:35840:"*BLACKJACK*":ST(W,S2)1:i WDROUND1ı"20:1:"TOTAL: "T(W,1,S2);:T(W,1,S2)21Ĺ35841,6:XX13:35840:XX:CASH(W)CASH(W)BET(W,S2):" *BUSTED*":ST(W,S2)1:+#HN(W,5,S2)0WDR PLAYER W&bT(W,1,S2)0:T(W,2,S2)00cACE0;lI15NvHN(W,I,S2)0q{XXDF(HN(W,I,S2)):XX10XX10T(W,1,S2)T(W,1,S2)XXT(W,2,S2)T(W,2,S2)XXACE0DF(HN(W,I,S2))1T(W,2,S2)T(W,2,S2)10:ACE1I20:1:36105TCASH(W)CASH(W)BET(W,S2):22:1:N$(W)", YOU WIN $"BET(W,S2):19000:P~390k - DEAL INITIAL CARDSDL1DL0:170J12I0NPHN(I,J,1)DPDPDP1DP53İ170:J2:INPIJDP15005 X - TOTAL FO0'N ST(D,1)0ST(W,S2)1İ4000:3300aX T(W,1,S2)T(W,2,S2)T(W,2,S2)22T(W,1,S2)T(W,2,S2)b ST(D,1)0ST(W,S2)0T(W,1,S2)T(D,1,1)İ4000:3300l 22:1:N$(W)", YOU LOSE $"BET(W,S2):CASH(W)CASH(W)BET(W,S2)v 19000 S2:W 390G ->??w- -3-M:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ--;.>.>.-u5rVw-->.>.>*-u7RMJ?)-n) nM13MI??MI-)3 >n-uNI  VI @@C?.- ??N -5?*m?7M13-u J)36Ms-N -3M13M13-u ---n?76--NJ--n?76NII)-6n)-uMM13M1??n n N )66-N I166s-N Mn7 n N 666--NMM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3?RI NIIVI 5)3M5.M-Nm >6-N))sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-N.)3M1?w *uIRR >RNIN---ޛ-- *NI.)s N J M13--n N -3M &7IIIN" 66N inR>i----nN> ? ? ?wqImmw M:N)N-)n mN 6R 6N5 6N --NN n:?w1VIJN7RI:((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPd +2<FWbisz#.9DOUgx&7EWhx $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?``` Q` Q``&` `` .``` 8``0` `L<``aai ``9`H8 h``` ````?aaaa(޽aa(`%ЀРЪՊЀР* @A@AЪЀР";:CK3(W):29000:" AND ";:CLP(W):29000:26950U+h"FOUR ";:CFR(W):28000:26950+i"A STRAIGHT FLUSH, ";:HSF(W):28000+Fi:+xi - PRINT CARD+iCD127022,27023,27024,27025,27026,27027,27028,27029,27030,27031,27040,27050,27060,i"TWO";0:269501*Xf"A PAIR OF ";:CLP(W):29000:26950s*f"TWO PAIR, ";:CLP(W):29000:" AND ";:CHP(W):29000:26950* g"THREE ";:CK3(W):29000:26950*g"A STRAIGHT, ";:HST(W):28000:26950*g"A FLUSH, ";:HFL(W):29000:269501+Lh"A FULL HOUSE, (SF(P)SF(D))WPg)^e(WP)VV2:32000::"YOU WON!"::VV22:32000:"WITH ";:26000:CASHCASHPOT:)heVV12:32000::"DEALER WINS!"::VV22:32000:"WITH ";:26000:)eB(W)26100,26200,26300,26400,26500,26600,26700,26800,26900*eHJK(W,1):2800RIVE"(dð19000&(nÉ:::(4)"PR#6",(xÀY12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$R'A$"N"A$"Y"40081b'A$"N"166m'50000'"ERROR #"E" AT LINE "E1:'24:7::"PRESS ANY KEY TO CONTINUE.";:A$'161'PÌ36099(Zâ12:2:"INSERT YOUR MASTER DISK INTO THE D1:&4vRR1GOOD$""5&>vRR1GOOD$(GOOD$,RR1)A&HvRRRR1U&IvV:HT(GOOD$)`&fv30170&}VV:1:X1139:" ";:X1:VV:1:&@ &A&J - STANDARD ERROR TRAPPING&T&U36099&^E(222)&hE1(218)(219)256&E255400907'KEY12822010%"V49168,0,%,VA$(KEY128)2%6V8%0u>%uR%uV:HT:GOOD$""[%uRR0d%uZZ$y%u(ZZ$)1330250%u(ZZ$)8RR030260%u((ZZ$)LA(ZZ$)HA)ZZ$","30170%vRRLN30170% vRRRR1:ZZ$;:GOOD$GOOD$ZZ$%v30170&*vVH(3):18770G$>IN$(1)N$(2):CASH(1)CASH(2):N$(2)N$(3):CASH(2)CASH(3)Z$RIINP1:I:460$8J24:7::"PRESS ANY KEY TO CONTINUE.";::V24:HT35:22000:$UX0:X$"!/-\!/-\"$U49168,0$UV:HT$VXX1:X9X1$V(X$,X,1); %VKEY(49152):PAYS OFF!"@#bHCASH(I)CASH(I)INS(I)2:CASH(I)CASH(I)BET(I,1)K#lH19000R#vHIX#Hw# INP1Č36099:36099:40081#INP2I2NP1:18770# INP2I1NP1:N$(1)N$(2):CASH(1)CASH(2):18770#!INP2#*II318770 $4II2N$(2)N$(3):CASH(2)CAS36102:"HOW MUCH? ";:V21:HT11:LN5:LA48:HA57:30000:INS(I)(GOOD$):INS(I)CASH(I)BET(I,1)18040"FBET(I,1)BET(I,1)INS(I)"FI"F"DHI1NP"NHINS(I)0CASH(I)CASH(I)BET(I,1):18550 #XH22:1:36105:22:1:N$(I)", YOUR INSURANCE BET >OWE(I)OWE(I)X:CASH(I)CASH(I)X?!>"THANKS FOR THE THE $"XE!>Q!PFI1NPc!ZF20:1:36105![F20:1:"YOU HAVE $"CASH(I)BET(I,1)" AVAILABLE."!dF21:1:N$(I)", WANT INSURANCE (Y/N)? ";:A$:A$"N"A$"Y"18020!nFA$"N"18100f"xF21:1:8:A$;5 /V3:5(WC1)8:(S$,DS(HN(W,WC,S2)),1);L /XX7:A$"10"XX6g /V5:XX(WC1)8:A$;m / >OWE(I)0CASH(I)200ı >2:1:"WELL, "N$(I)", I GUESS YOU": >"CAN AFFORD TO PAY ME BACK NOW...": >X100:OWE(I)100XOWE(I)"!6:2(WC1)8:"pooooon";*/SUP121009/IV1V5V&/I:3(WC1)8:"@@@@@";]0/Ic:/D/DF(HN(W,WC,S2))1A$"A":12160I/DF(HN(W,WC,S2))11A$(DF(HN(W,WC,S2))):12160N/F$"JKQ"X/A$(F$,DF(HN(W,WC,S2))10,1) /V1:3(WC1)HT19:30000:N$(I)GOOD$:GOOD$""10240>(RRRR(N$(I))NPV(I:I1RR:X(1):(36099:12:1:" PRESS CONTROL-C AT ANY TIME TO QUIT.":I12500:I(.V:2(WC1)8:"ijjjjjk";.IV1V5.I:2(WC1)8:"m l";.I/V); 'IC'24:8:"HOW MANY PLAYERS (1-3)? ";:V24:HT32:22000'NP(A$):NP1NP3āI110:J(16336):I:22010:10220'I1NP'36099'CASH(I)100:OWE(I)100((12:1:36102:"PLAYER #"I"'S NAME? ";:V12:HT19:LA32:HA90:LN10:V12:(16336)`'Ij'IY2Y11<t'X2:I:" ";:X(16336)C~'IS'IX2X11p'I:Y1:" ";:X(16336)w'I'X1X12'X2X22'Y1Y12'Y2Y22'X1010040'35841,4:35840:A$"BLACK JACK":'I1(A$)'12:15:(A$,I"THANKS FOR THE THE $"X!>*!PFI1NPOWE(I)0CASH(I)200ı >2:1:"WELL, "N$(I)", I GUESS YOU": >"CAN AFFORD TO PAY ME BACK NOW...": >X100:OWE(I)100XOWE(I) >OWE(I)OWE(I)X:CASH(I)CASH(I)X!>100/IV1V5/&/I:3(WC1)8:"@@@@@";60/I<:/aD/DF(HN(W,WC,S2))1A$"A":12160I/DF(HN(W,WC,S2))11A$(DF(HN(W,WC,S2))):12160N/F$"JKQ"X/A$(F$,DF(HN(W,WC,S2))10,1)/V1:3(WC1)8:A$; /V3:5(WC1)8:(S$,DS(HNHT19:30000:N$(I)GOOD$:GOOD$""10240/(Ix(36099:12:1:" PRESS CONTROL-C AT ANY TIME TO QUIT.":I12500:I~(.V:2(WC1)8:"ijjjjjk";.IV1V5.I:2(WC1)8:"m l";.I/V6:2(WC1)8:"pooooon";/SUP12); 'IC'24:8:"HOW MANY PLAYERS (1-3)? ";:V24:HT32:22000'NP(A$):NP1NP3āI110:J(16336):I:22010:10220'I1NP'36099'CASH(I)100:OWE(I)100((12:1:36102:"PLAYER #"I"'S NAME? ";:V12:HT19:LA32:HA90:LN10:V12:(16336)`'Ij'IY2Y11<t'X2:I:" ";:X(16336)C~'IS'IX2X11p'I:Y1:" ";:X(16336)w'I'X1X12'X2X22'Y1Y12'Y2Y22'X1010040'35841,4:35840:A$"BLACK JACK":'I1(A$)'12:15:(A$,IĢ20:1:"*FIVE CARD CHARLIE*":ST(W,S2)5:e*T(W,2,S2)22T(W,2,S2)T(W,1,S2)ĺ" OR "T(W,2,S2):k4' - OPENING SCREEN'36099$'X110:X214:Y111:Y228/'8'X1:Y1:B'IY1Y2:" ";:X(16336):IL'IX1X2V'I:Y2:" ";:X(W,2,S2)21HN(W,3,S2)07200V20:1:35841,4:35840:"*BLACKJACK*":ST(W,S2)1:i WDROUND1ı"20:1:"TOTAL: "T(W,1,S2);:T(W,1,S2)21Ĺ35841,6:XX13:35840:XX:CASH(W)CASH(W)BET(W,S2):" *BUSTED*":ST(W,S2)1:+#HN(W,5,S2)0WDR PLAYER W&bT(W,1,S2)0:T(W,2,S2)00cACE0;lI15NvHN(W,I,S2)0q{XXDF(HN(W,I,S2)):XX10XX10T(W,1,S2)T(W,1,S2)XXT(W,2,S2)T(W,2,S2)XXACE0DF(HN(W,I,S2))1T(W,2,S2)T(W,2,S2)10:ACE1I20:1:36105TCASH(W)CASH(W)BET(W,S2):22:1:N$(W)", YOU WIN $"BET(W,S2):19000:P~390k - DEAL INITIAL CARDSDL1DL0:170J12I0NPHN(I,J,1)DPDPDP1DP53İ170:J2:INPIJDP15005 X - TOTAL FO0'N ST(D,1)0ST(W,S2)1İ4000:3300aX T(W,1,S2)T(W,2,S2)T(W,2,S2)22T(W,1,S2)T(W,2,S2)b ST(D,1)0ST(W,S2)0T(W,1,S2)T(D,1,1)İ4000:3300l 22:1:N$(W)", YOU LOSE $"BET(W,S2):CASH(W)CASH(W)BET(W,S2)v 19000 S2:W 390G 0"ERROR #"E" AT LINE "E1:P024:7::"PRESS ANY KEY TO CONTINUE.";:A$Y0161S70;/}12:" ERROR IN READING DATA FROM THIS FILE.":40100K/E840080/12:" I/O ERROR - CHECK YOUR DISK DRIVE.":40100/E25540090/12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$/A$"N"A$"Y"40081/A$"N"ī1610 `` `@L LLAx>V鷩DP (E>D Z t+0x8x D- ܸDD#HX`8?E Vk *f???0xE   Hh D#-EEE8` D ܸx D - ܸx8`L (xÀAOW (Y/N)? ";:A$+'A$"N"A$"Y"40081;'A$"N"166F'50000e'"ERROR #"E" AT LINE "E1:'24:7::"PRESS ANY KEY TO CONTINUE.";:A$'161'PÌ36099'Zâ12:2:"INSERT YOUR MASTER DISK INTO THE DRIVE"'dð19000'nÉ:::(4)"PR#6"(GOOD$,RR1)&HvRRRR1.&IvV:HT(GOOD$)9&fv30170`&}VV:1:X1139:" ";:X1:VV:1:g&@ m&A&J - STANDARD ERROR TRAPPING&T&U36099&^E(222)&hE1(218)(219)256&E25540090'12:1:"DO YOU REALLY WANT TO QUIT N128) %6V%0u%u+%uV:HT:GOOD$""4%uRR0=%uZZ$R%u(ZZ$)1330250k%u(ZZ$)8RR030260%u((ZZ$)LA(ZZ$)HA)ZZ$","30170%vRRLN30170% vRRRR1:ZZ$;:GOOD$GOOD$ZZ$%v30170%*vV1:%4vRR1GOOD$""&>vRR1GOOD$H(2):N$(2)N$(3):CASH(2)CASH(3)3$RIINP1:I:460u$8J24:7::"PRESS ANY KEY TO CONTINUE.";::V24:HT35:22000:$UX0:X$"!/-\!/-\"$U49168,0$UV:HT$VXX1:X9X1$V(X$,X,1);$VKEY(49152):KEY12822010$"V49168,0%,VA$(KEY:CASH(I)CASH(I)BET(I,1)$#lH19000+#vHI1#HP# INP1Č36099:36099:40081j#INP2I2NP1:18770# INP2I1NP1:N$(1)N$(2):CASH(1)CASH(2):18770#!INP2#*II318770#4II2N$(2)N$(3):CASH(2)CASH(3):18770 $>IN$(1)N$(2):CASH(1)CAS48:HA57:30000:INS(I)(GOOD$):INS(I)CASH(I)BET(I,1)18040\"FBET(I,1)BET(I,1)INS(I)c"FIi"Fu"DHI1NP"NHINS(I)0CASH(I)CASH(I)BET(I,1):18550"XH22:1:36105:22:1:N$(I)", YOUR INSURANCE BET PAYS OFF!"#bHCASH(I)CASH(I)INS(I)224:6:"WANT TO TRY IT AGAIN (Y/N)? ";:A$:A$"Y"A$"N"11180Q+A$"Y"ė:o+::12:15:"LOADING..."+(4)"RUN MENU"+N"6. STRAIGHT"- 9:"7. THREE OF A KIND"D "9:"8. TWO PAIR"Y ,9:"9. A PAIR"q 69:"10. HIGH CARD"{ @1000 A12:15:"LOADING..." B(4)"RUN MENU" 24:7:"PRESS ANY KEY TO CONTINUE.";:A$:: A   (<@p!D   D `30    2`3DD@ЊР~      p!D   P@@"L    D x @ ժժժժժժժժժժժժժժժժժ   <"@ 88ժժժժժժժժժժժժժժժժժGBLUFFS,"? :"AND FOLDS IF IT THINKS IT'S IN TROUBLE.":1000F 5w "THE HIERARCHY OF WINNING HANDS IS THIS:": 9:"1. ROYAL FLUSH" 9:"2. STRAIGHT FLUSH" 9:"3. FOUR OF A KIND" 9:"4. FULL HOUSE" 9:"5. FLUSH" 9:ND WHEN ALL BETS ARE CALLED, A":R "WINNER IS THEN DECIDED. THE WINNER OF": "COURSE TAKES THE POT. YOU START OUT"::"WITH $50. THE HOUSE LIMIT ON ANY GIVEN"::"BET IS $20. BE CAREFUL OF THE COMPUTER,"::"IT IS SHREWD. IT OCCASIONALLY EN EITHER CALL OR RAISE HIM.":, y1000] "ONCE ALL BETS HAVE BEEN CALLED OR BOTH": "PLAYERS HAVE CHECKED,YOU MAY DISCARD UP": "TO THREE CARDS AND HAVE THEM REPLACED": "WITH NEW CARDS. BETTING PROCEEDS AS":! "BEFORE, A"HAVE THE FIRST BET. YOU CAN EITHER BET":^ P"IN WHICH CASE THE DEALER MUST CALL OR": Z"RAISE YOU. OTHERWISE, YOU CAN CHECK TO": d"THE DEALER. THE DEALER HAS THE OPTION": n"OF BETTING OR CHECKING. IF HE BETS YOU":" x"MUST TH 8"THIS IS THE CLASSIC GAME OF FIVE-CARD":i"DRAW, YOU AGAINST THE DEALER (THE":("COMPUTER). PLAY BEGINS BY EACH PLAYER":2"ANTEING $1.00. THE COMPUTER WILL THEN":<"DEAL OUT FIVE CARDS TO EACH OF YOU. YOU":- F  @Ԩ   Ԋ   b@"D    8@`!T   "@Ԩ   Ԋ   "<`!8   <"<P d      "@p88@   @p @   BPP D   x`3D   ING..." (4)"RUN MENU"M 24:7:"PRESS ANY KEY TO CONTINUE.";:A$::ABLACKJACK, YOU":B "WIN THE AMOUNT OF YOUR INSURANCE BET,":s "IF HE DOESN'T HAVE BLACKJACK, PLAY THEN": "CONTINUES AND YOU LOSE YOUR INSURANCE": "BET." ::"THAT ABOUT COVERS IT, GOOD LUCK!!!" 1000 12:15:"LOADFACE VALUE (I.E. TWO KINGS.)":+ e1000\ n"ONCE SPLIT, YOU ARE PLAYING TWO HANDS,":| x"AND YOUR BET IS DOUBLED." :"IF THE DEALER HAS AN ACE SHOWING AS HIS": "'UP' CARD YOU MAY MAKE AN INSURANCE": "BET. IF THE DEALER HAS "FLIPPED UP. YOU CAN AT THIS TIME, STAND":] <"(TAKE NO MORE CARDS), HIT (TAKE ANOTHER": F"CARD), DOUBLE (TAKE ONLY ONE MORE CARD": P"AND DOUBLE YOUR BET), OR SPLIT. YOU CAN": Z"ONLY SPLIT WHEN YOU HAVE TWO CARDS OF":! d"THE SAME N7 :2:"THIS IS THE STANDARD GAME OF BLACKJACK":h"FOR UP TO THREE PLAYERS AGAINST THE":"DEALER (THE COMPUTER). EACH PLAYER WILL":"RECEIVE TWO CARDS (DOWN). THE DEALER":("RECEIVES TWO CARDS, THE SECOND ONE IS":, 2    Bp!DD   p! @   8`3D U*U*U U*U*U U*U*U |@ 8       U*U*U U*U*U U*U*U " "@"LLԊ   <@"|@Ъ   @ 8   >      #( &`!TTԊ   DP`!$@Ъ~   x    <@p8   @p8   B *P dd    (D 8P (@ЊР                           ЀР@A@ բЪРЀЀЀРЀЀЀՊԪЀРՂԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀЀРЀЀ!ЊЀРժЀՂЪРՀ*ЀР@**@*A@ ЀРՀЀРЪՂРъՀ!ЊЀРժЀՂЪРՀՊЀР* @A@AЀРՀ@'РՂРтՀ!               ESS ANY KEY TO CONTINUE.";:A$:::::(4)"PR#6":S$"ERROR #"E" AT LINE "E1:h$B$"R"B$"B"ġq$117$B$"R"B$"B"ġ$35N(C$):709 #G:1:36102:W#:36099:E(222):E1(218)(219)256:E255767#12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$:A$"N"A$"Y"753#A$"N"ī354$36099:12:1:"INSERT YOUR MASTER DISK INTO THE DRIVE":24:7::"PRE";:"CDH:667:" HIGH":4"CDC:667:"S";:H"V:N:C$"":Q0^"D$:(D$)13723s"(D$)8Q0725"((D$)LA(D$)HA)D$","709"QLN709"QQ1:D$;:C$C$D$:709"V1:"Q1C$"""Q1C$(C$,Q1) #QQ1:G::B!CD1671,673,675,677,679,681,683,685,687,689,691,693,695P!"TWO";:`!"THREE";:o!"FOUR";:~!"FIVE";:!"SIX";:!"SEVEN";:!"EIGHT";:!"NINE";:!"TEN";:!"JACK";:!"QUEEN";:!"KING";:""ACF(W):699:665/ "THREE ";:CG(W):699:665U "A STRAIGHT, ";:HJ(W):697:665x "A FLUSH, ";:HH(W):697:665 "A FULL HOUSE, ";:CG(W):699:" AND ";:CC(W):699:665 "FOUR ";:CK(W):699:665 "A STRAIGHT FLUSH, ";:HI(W):697!:"YOU WON!"::G22:735:"WITH ";:645:KKL:lG12:735::"DEALER WINS!"::G22:735:"WITH ";:645:B(W)647,649,651,653,655,657,659,661,663HD(W,1):697:665"A PAIR OF ";:CC(W):699:665 "TWO PAIR, ";:CC(W):699:" AND ";:Ce(G(P)G(D))WPg6413i(J(P)J(D))WP<k641DmX5bo(H(P,X)H(D,X))WP:641{q(H(D,X)H(P,X))641s(X1)641uXX1:623w(G(P)G(D))WPy641{(K(P)K(D))WP}641(I(P)I(D))WP/(WP)G2:735:C(P)C(D)WP:641%MC(D)C(P)641-OX5KQ(D(P,X)D(D,X))WP:641dS(D(D,X)D(P,X))641qUX1641WXX1:593Y(F(P)F(D))WP:641[(F(D)F(P))641](C(P)C(D))WP:641_(C(D)C(P))641a(D(P,1)D(D,1))WPc6415:P;B(P)B(D)G2:735::"YOU WON!"::G22:735:"WITH ";:WP:645:KKL:=WD:B(D)577,587,601,613,617,621,631,635,639AX5C(D(P,X)D(D,X))D(P,1)D(P,X):WP:641E(D(D,X)D(P,X))D(D,1)D(D,5):641GX1641IXX1:579K";:J:519;CN1CF:TAABAE:0,TA:1,T:770:TA:CN:Z%X0:X$"!/-\!/-\":49168,0s)V:N:XX1:X9X1-(X$,X,1);:KE(49152):KE128553149168,0:A$(KE128):7B(D)B(P)G12:735::"DEALER WINS!"::G22:735:"WITH ";:WD:64)503,507,511,515*(A%(A(D,I))11)M13517O(A%(A(D,I))C(D))M1X517(A%(A(D,I))C(D))(A%(A(D,I))F(D))M1517(A%(A(D,I))G(D))M1(M1)(U3)A(D,I)0:UU1:523I:  J1421:J:(I1)81:" A(P,X)0461-:11:(X1)84:"^";:j23:1:"DISCARD #"X" (Y/N)? ";:A$:A$"Y"A$"N"47111:1:36102:A$"N"461A(P,X)0:J310:J:(X1)81:" ";:JI:G22:735:G23:735:U0:I15:M0:B(D)4519B(D:319::B(D)1G12:735:"THE DEALER ALSO CHECKS.":OR(5)B(D)2:G12:735:"THE DEALER BETS $"O:LLO:B$"B":319:245:433G22:735:"DISCARD (1-5)":I13G23:HH4:735:">>";:V23:N4:LN1:LA48:HA53:701:X(C$):X0I4:485"B"B$"R"445n(B10H1)R(5)1(B(D)1(B(D)2C(D)10))G12:735:"THE DEALER FOLDS.":KKL::35R(100)B(D)20B(D)1Ģ12:1:OR(5)B(D):"DEALER CALLS AND RAISES $"O;:LLBO:B$"R":245:433G12:735:"THE DEALER CALLS.":LLB8:K(W)X8X:S1:I14:(A%(E(I))A%(E(I1))1)S0[I:(S1)B(W)5:J(W)A%(E(5))F1:I15:B%(E(I))B%(E(1))F0I:(F1)(S1)B(W)9:I(W)A%(E(5)):431(F0)431B(W)6:I15:H(W,I)A%(E(I)):IB$"C"ıB$1:I:J1:X214:L(X)1399,379,381,391,397D{D(W,J)X:JJ1:399c}B(W)1B(W)2:C(W)X:399tB(W)2389B(W)3:F(W)X:(XC(W))F(W)C(W):C(W)X399B(W)7:C(W)X:399(B(W)1)B(W)4:395B(W)7G(W)X:399B(W)"K;:30:"POT : $"L:EY(0):B(W)1:C(W)0:F(W)0:J(W)0:G(W)0:K(W)0:I(W)0:I15:D(W,I)0:H(W,I)0:I:I214:L(I)0:I:J15:E(J)A(W,J):J:I15:J15:A%(E(I))A%(E(J))363eME(I):E(I)E(J):E(J)M,kJ:I:I15:L(A%(E(I)))L(A%(E(I)));:3033B0247!5B20269:7KKB:LLB:B$"R":l9A$"F"G23:735:"OK, YOU'RE OUT.";::5010;B$"N"G24:735:"CHECKING IS IMPROPER AT THIS TIME.";:A$"Q":251=G24:735:"CHECK TO DEALER.";:B$"X":B0:?G1:735:"YOU HAVE $CTUALLY, YOU CAN'T EVEN AFFORD TO CALL";:I12000:I::5000+KKO:LLO:K0G24:735:"BUDDY, YOU ARE BROKE.":I12000:I::5000/G22:735:"RAISE HOW MUCH? ";:V22:N17:LN10:LA48:HA57:701:B(C$):BKĢ24:1:"YOU DON'T HAVE THAT MUCH."ALL.";:A$"Q":251\OKG24:735:"YOU HAVEN'T THE CASH TO CALL.";:I12000:I::5000!KKO:LLO:319:B$"C":G24:735:"YOU CALL THE DEALER.";:%A$"R"313'B$"R"B$"B"G24:735:"RAISE WHAT?";:A$"Q":251=)KOG24:735:"AV22:N21:LN10:LA48:HA57:701:B(C$):319:B0247{ B20G24:735:"THE HOUSE LIMIT IS $20 PER BET OR RAISE";:247B0BK275:319::259LLB:KKB:B$"B":A$"C"293B$"R"B$"B"G24:735:"THERE IS NOTHING TO CX)CHECK :";:V22:N39:549lA$"C"A$"B"A$"R"A$"F"A$"X"CF1:AB75:AE75:T30:531:553:251}A$"B"283B$"N"259B$"R"B$"B"G24:735:"YOU MUST EITHER CALL OR RAISE.";:A$"Q":2516G22:735:"OK, WHAT'S YER BET?";:A%(A(W,I))10NN1KN:A$;:V2:(I1)84:(S$,B%(A(W,I)),1);:I::]V4:WDV15Y2368:XVV5:X:Y:"@@@@@";:X:Y:Y2368:XVV5:X:Y:" ";:X:Y:187B0:G24:735319:22:1:"(C)ALL (B)ET (R)AISE (F)OLD (11:M20ı 157! ST2173 V4:WDV15@ WD231l I15:V:(I1)82:A%(A(W,I))11203 A%(A(W,I))10195,197,199,201 A$"J":205 A$"Q":205 A$"K":205 A$"A":205 A$(A%(A(W,I)))A$;:V5:N(I1)86:50:35 36099:753: I15:A(P,I)0A(P,I)R:RR1a I:I15:A(D,I)0A(D,I)R:RR1 I:G12:735:"DEALER'S HAND":G2:735:"YOUR HAND":M3 Y1358:M:Y:"ijjjjjk";:IM1M7:I:Y:"m";:I:Y6:"l";:I:M7:Y:"pooooon";:Y:MMD:325:WP:325:H12:433:WD:SUP:179:5679 uK035 w36099:12:13:"YOU'RE BROKE!!":CF4:AB11:AE15:T2:531:A$"DO YOU WANT TO GET A NEW STAKE (Y/N)? ":I1(A$):15:1:(A$,I);:I:V15:N39:549 A$"Y"A$"N"İ553:131 A$"Y"KYR(26):ZR(26)26:MA%(Y):UB%(Y):A%(Y)A%(Z):B%(Y)B%(Z):A%(Z)M:B%(Z)U:J:R1- AI15:A(1,I)0:A(2,I)0:I:L2:36099:KK1:319:137:WP:SUP:179:WD:ST:179:B$"N":245:WD:325:H11:433:455:491:137:WP:SUP:179:WD:ST:179:B$"N":245:W6:12:2:"PRESS CONTROL-C AT ANY TIME TO QUIT." I12500:I:D1:P2:UP1:S$"scdh":K50:I14:J214:ZZ1:A%(Z)J:B%(Z)I:J:I #G24:735:4::"PRESS ANY KEY TO BEGIN NEW HAND.";::K0117 %V24:N36:549:36099:R36R065S )J120:;(4)"BRUN HI-GEN":(4)"BLOAD CARDFONT,A$9100":7370 16384:B(2),D(2,5),C(2),G(2),F(2),K(2),J(2),H(2,5),I(2),A(2,5),A%(52),B%(52),L(14),E(5):R(X)(((1)X)1):I770788:A:I,A:I:173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,2,3,9            (<@p!D   D `30z #??    ҠӠР$ŮŠ " ԠǠˠ" נҠ!ŮŠ"Š͠Ԡ ˠӠՠ ѠԠŠ"ΠӲ)ɭΠ ԮӠ  120<:IA:230,32:16300,0:16297,0:16302,0:16304,0iF"BLOAD QUIT TITLE,A$2000"qZA$d::10:10:"INSERT NEW DISK AND"::11:"PRESS CTRL-RESET"n110x60 TARGETA(I),X);X(A$(I))26201I3V19:680;VV2BIXX0:X$"!/-\!/-\"d19:33wXX1:X9X1(X$,X,1);KEY(49152):KEY128700N9X1N(X$,X,1);NKEY(49152):KEY12820203N)139:" ";:I:460H&A$(1)" THIS PROGRAM IS BROUGHT TO "o0A$(2)"YOU BY THE OUTBACK BBS AND":A$(3)" W1NPN S21SP(W)d ST(W,S2)13300} 10:1:36105:10:1 SP(W)1ĺ"HAND #"S2& WC150 HN(W,WC,S2)0V11:SUP:12000: WC; 7000D ST(D,1)1ST(W,S2)5İ4000:3301! HN(D,IH,1)DP:WCIH:12000+ 3020` T(D,1,1)T(D,2,1)T(D,2,1)22T(D,1,1)T(D,2,1)~ ST(D,1)23083,3084,3088 1:17:"DEALER BUSTED.";:3090 T(D,1,1)21Ģ1:17:"DEALER PAYS "T(D,1,1)1;:3090 1:17:"DEALER PAYS ON BLACKJA1SP(I)2)ST(I,1)1OK1$ I3 OK04990D ROUND2:IH2V 10:1:36105x S21:WD:V2:WC1:SUP:12000 7000:IH53081 I11500:I ST(D,1)0T(D,1,1)16(T(D,2,1)16T(D,2,1)22)3081 DPDP1:DP53DP1:DL1 IHIH"CAN'T SPLIT CARDS WITH DIFFERENT VALUES":610RHN(W,1,2)HN(W,2,1):HN(W,2,1)0oDPDP1:DP53DP1:DL1HN(W,2,2)DP:DPDP1:DP53DP1:DL1HN(W,2,1)DP BET(W,2)BET(W,1)SP(W)2:S2:530 S2:W OK0:I1NP (ST(I,2)H"İ22010:720A$"G"3000<DPDP1:DP53DP1:DL1HIHIH1sHN(W,IH,S2)DP:V11:WCIH:12000:7000ST(W,S2)5BET(W,S2)(BET(W,S2)1.5)ST(W,S2)1ST(W,S2)5710 190003000.DF(HN(W,1,1))DF(HN(W,2,1))Ģ23:1:DBL00A$"D"BET(W,S2)BET(W,S2)2:DBL1MDPDP1:DP53DP1:DL1_HN(W,3,S2)DPhIH3}V11:WC3:120007000ST(W,S2)1İ19000:3000DBL1İ19000:300022:1:"(G)OOD (H)IT: ";:V22:HT15:22000A$"G"A$"P:V11:WC1:12000"NWC2:120004X7000: TOTALlYST(W,S2)1İ19000:BET(W,S2)(BET(W,S2)1.5):3000b22:1:"(G)OOD (H)IT (D)OUBLE (S)PLIT";:V22:HT30:22000lA$"G"A$"H"A$"D"A$"S"İ22010:620vA$"G"3000wA$"S"1000WC2:SUP:12000- DF(HN(D,2,1))1İ18000?ROUND1:7000ST(D,1)1V2:WC1:WD:12000:1:17:"DEALER WINS!";:19000:18500:390W1NPS21SP(W)10:1:36105:10:1:N$(W)"'S TURN.";SP(W)2Ģ10:15:"HAND #"S2DSU"(YOU HAVE $"CASH(I)" AND YOU OWE ME $"OWE(I)")"|13:1:36102:">";:V13:HT3:LN5:LA48:HA57:30000:BET(I,1)(GOOD$)BET(I,1)CASH(I)BET(I,1)0469I5000360991:1:"DEALER'S HAND:";S21:WD:V2:WC1:SDN:12000475 36099:16000( CASH(I)0468K 12:1:N$(I)", YOU'RE BROKE!" 13:1:"DO YOU WANT TO BORROW MORE MONEY (Y/N)?";:A$:A$"N"A$"Y"464 A$"N"18700 CASH(I)100:OWE(I)OWE(I)100:461011:1:"OK "N$(I)", WHAT'S YER BET?":F(Z) DS(Y)DS(Z)! DF(Z)X1. DS(Z)X25 J> "DP1D ,c  - BEGIN PLAYING SEQUENCEo I0NP ST(I,1)0:ST(I,2)0 INS(I)0:SP(I)1:BET(I,1)0:BET(I,2)0 J15 HN(I,J,1)0:HN(I,J,2)0 J I I1NP:BET(I,1)01:X(4,2)1 J145" I14= X(I,1):7(I5):" ";_ X(I,1)10X(I,2)1X(I,2)1 X(I,1)7X(I,2)1X(I,2)1 X(I,1)X(I,1)X(I,2):X(I,1):7(I5):(S$,I,1); I YR(26) ZR(26)26 X1DF(Y) X2DS(Y) DF(Y)D:1:"m";:39:"l"; I- 24:2:I238: "o";:IG I1113f I:10::J1029:" ";:Jm I 12:16:"SHUFFLING"; 11:10:":";:29:":";:13:10:":";:29:":";: X(1,1)7:X(2,1)8:X(3,1)9:X(4,1)10:X(1,2)1:X(2,2)1:X(3,2))1)" <10000: OPENING STUFF* ZZ05 dI14A nJ113K xZZ1W DF(Z)Jc DS(Z)Ij Jq I 170:390 - SHUFFLING 36099:1:1:"i";:39:"k";:24:1:"p";:39:"n"; 1:2:I238 "j"; I I223 I/ (4)"BRUN HI-GEN"9(4)"BLOAD CARDFONT,A$9100"T(4)"BLOAD SG,A$8C00"`40000k16384 DF(52),DS(52),X(4,2),N$(3),HN(3,5,2),T(3,2,2),CASH(3),BET(3,2),ST(3,2),INS(3),SP(3),OWE(3) S$"scdh" D0:UP1:DN0 3R(X)(((1)X          ЀР@A@ բЪРЀЀЀРЀЀЀՊԪЀРՂԪЀՂРՀ*ЀР@**@*A@ ЀРՀЀЀРЀЀЊЀРժЀՂЪРՀ*ЀР@**@*A@ ЀРՀЀРЪՂРъՀЊЀРժЀՂЪРՀՊЀР* @A@AЀРՀ@'РՂРтՀ               CK :";2V22:HT39:22000u2A$"C"A$"B"A$"R"A$"F"A$"X"CF1:AB75:AE75:DN30:21000:22010:130032A$"B"131302B$"N"130102B$"R"B$"B"VV24:32000:"YOU MUST EITHER CALL OR RAISE.";:A$"Q":130032VV22:32000:"O0V4:WDV150Y2368+0XVV5?0X:Y:"@_@_@";F0XM1YS1a2Y2368n 2XVV52X:Y:" ";2X(2Y22120102 - GET PLAYER BET2B0:VV24:32000214000:22:1:"(C)ALL (B)ET (R)AISE (F)OLD (X)CHE00/A$"K":12200&&/A$"A":12200<D/A$(DF(HN(W,I)))o/A$;:V5:HT(I1)86:DF(HN(W,I))10HTHT1/HT:A$;:V2:(I1)84:(S$,DS(HN(W,I)),1);/I///B20VV24:32000:"THE HOUSE LIMIT IS $20 PER BET OR RAISE":13001"pooooon";z+Y+X1X111++X120ı6+11090J. - PRINT HANDZ.SDN12500l.V4:WDV15{.WD12800.I15.V:(I1)82.DF(HN(W,I))1112100.DF(HN(W,I))1012040,12050,12060,12070/A$"J":12200/A$"Q":122P,I)DP:DPDP1 +I!*+I15C4+HN(D,I)0HN(D,I)DP:DPDP1J>+IlA+VV12:32000:"DEALER'S HAND"B+VV2:32000:"YOUR HAND"H+X13R+Y1358S+X1:Y:"ijjjjjk";T+IX11X17U+I:Y:"m";\+I:Y6:"l";f+I p+X17:Y:'I:Y1:" ";:X(16336)!'I-'X1X129'X2X22E'Y1Y12Q'Y2Y22a'X1010040{':A$"FIVE CARD DRAW"'I1(A$)'12:13:(A$,I);'I'CF4:AB20:AE20:DN20:21000'* - DEAL CARDS +I15+HN(P,I)0HN(Y"CASH50:161&,' - OPENING SCREEN7'36099S$'X110:X214:Y111:Y228Y/'f8'X1:Y1:B'IY1Y2:" ";:X(16336):IL'IX1X2V'I:Y2:" ";:X(16336)`'Ij'IY2Y11t'X2:I:" ";:X(16336)~'I'IX2X11):A(1):::U+24:6:"WANT TO TRY IT AGAIN (Y/N)? ";:A$:A$"Y"A$"N"11180e+A$"Y"ė:+::12:15:"LOADING..."+(4)"RUN MENU"+ASE!":35841,14:35840A+W0Ĺ35841,10:35840:"YOU WIN $"W"!!"Q+CASHCASHWk+"YOU NOW HAVE $"CASH}+CASH011170+"YOU'RE BROKE! - HERE'S ANOTHER $50":CASH50+49168,0+W0Ģ24:3:"PRESS ANY KEY TO PULL THE HANDLE.";:A$:I1(A$S(3)1W14* 4+S(1)3S(2)3S(3)3W18I >+S(1)7S(2)7S(3)7W10h H+S(1)6S(2)6S(3)6W50 R+S(1)5S(2)5S(3)4W10 \+S(1)1S(2)1S(3)4W14 f+S(1)3S(2)3S(3)4W18 p+S(1)4S(2)4S(3)4W100z+:21:1:W0ĺ"YOU LO~ L' 5,190,117,5,202,117,4,220,115,1,192,126,1,204,126,4,220,127,3,195,138,3,207,138,4,220,139,4,183,151,4,209,151,4,234,151 *W1 +S(1)2W2 +S(1)2S(2)2W5 +S(1)2S(2)2S(3)2W15 +S(1)5S(2)5S(3)5W10 *+S(1)1S(2)1 'I133$ 'S,C,R:C(S):SC,R+ $'I1 .' 8' 2,10,113,5,5,130,5,17,130,5,29,130,1,7,137,1,19,137,1,31,137,3,9,150,3,21,150,3,33,150 B' 2,100,113,2,117,113,7,98,126,7,114,126,7,130,126,2,100,135,2,117,135,2,134,135,6,93,148,6,111,148,6,129,148ST(X)0X3:X:130 XH 11000:Z63:0:X13:IS(X):240:X:120a C(I):ICLM(I,X),64x 35841,11:35840: 0:ICLM(I,X),64  58,128,199,60,130,200,60,130,200,52,121,191,56,124,194,55,125,194,58,129,199  2,5,3,3,1,3,3MACHINE.SHAPE" o10000:11010I xI13:ST(I)I2:S(I)((1)71):Ib X13:ST(X)ST(X)1i Xx J1ST(3) P13:X13:PST(X)ST(X)1161 IS(X):240 S(X)S(X)1:S(X)8S(X)1 IS(X):220 X P J X13:(4)"BLOAD SG,A$8C00"'CASH1? CLM(7,3),C(7),S(3)aI17:X13:CLM(I,X):X:IuI17:C(I):I|(021<D$(4)FSH16384P232,SH(SH256)256:233,(SH256)Z:::dD$"BLOAD SLOT.SHAPES,A"SH n:D$"BLOAD      32000:"BUDDY, YOU ARE BROKE.":I12000:I::461|3VV22:32000:"RAISE HOW MUCH? ";:V22:HT17:LN10:LA48:HA57:300003B(GOOD$):BCASHĢ24:1:"YOU DON'T HAVE THAT MUCH.";:132303B0130013B20130333CASHCASHB:POTPOTB:B$"R"::32000:"YOU CALL THE DEALER.";:53A$"R"13260u3B$"R"B$"B"VV24:32000:"RAISE WHAT?";:A$"Q":130033CASHDBVV24:32000:"ACTUALLY, YOU CAN'T EVEN AFFORD TO CALL";:I12000:I::4613CASHCASHDB:POTPOTDB23CASH0VV24:ASHCASHB73B$"B"@3.J3A$"C"13200|O3B$"R"B$"B"VV24:32000:"THERE IS NOTHING TO CALL.";:A$"Q":13003T3DBCASHVV24:32000:"YOU HAVEN'T THE CASH TO CALL.";:I12000:I::461^3CASHCASHDB:POTPOTDB:14000"_3B$"C":VV24VV22:32000:"OK, WHAT'S YER BET?";L2V22:HT21:LN10:LA48:HA57:30000[2B(GOOD$)f214000u2B0130012B20VV24:32000:"THE HOUSE LIMIT IS $20 PER BET OR RAISE";:130012B0BCASH131002:14000::13010,3POTPOTB 63CSE (F)OLD (X)CHECK :";,2V22:HT39:220002A$"C"A$"B"A$"R"A$"F"A$"X"CF1:AB75:AE75:DN30:21000:22010:130032A$"B"131302B$"N"130102B$"R"B$"B"VV24:32000:"YOU MUST EITHER CALL OR RAISE.";:A$"Q":13003$2 RAISE":13001 0V4:WDV15.0Y2368;0XVV5O0X:Y:"@@@@@";V0X]1Yc1q2Y2368~ 2XVV52X:Y:" ";2X(2Y22120102 - GET PLAYER BET2B0:VV24:32000214000:22:1:"(C)ALL (B)ET (R)AI/A$"Q":12200!/A$"K":122003&/A$"A":12200JD/A$(DF%(HN(W,I)))~/A$;:V5:HT(I1)86:DF%(HN(W,I))10HTHT1/HT:A$;:V2:(I1)84:(S$,DS%(HN(W,I)),1);/I///B20VV24:32000:"THE HOUSE LIMIT IS $20 PER BET OR+X17:Y:"pooooon";z+Y)+X1X1116+X120ıA+11090U. - PRINT HANDe.SDN12500w.V4:WDV15.WD12800.I15.V:(I1)82.DF%(HN(W,I))1112100.DF%(HN(W,I))1012040,12050,12060,12070/A$"J":12200(P,I)0HN(P,I)DP:DPDP1! +I,*+I15N4+HN(D,I)0HN(D,I)DP:DPDP1U>+IwA+VV12:32000:"DEALER'S HAND"B+VV2:32000:"YOUR HAND"H+X13R+Y1358S+X1:Y:"ijjjjjk";T+IX11X17U+I:Y:"m";\+I:Y6:"l";f+Ip:CF4:AB11:AE15:DN2:21000M A$"DO YOU WANT TO GET A NEW STAKE (Y/N)? "\ I1(A$)q 15:1:(A$,I);x I V15:HT39:22000 A$"Y"A$"N"İ22010:530 A$"Y"CASH50:161 &36099:40081 * - DEAL CARDS +I15+HN7000: DISCARD* |18000: DEALER DISCARD5 11000I WP:SUP:12000] WD:SDN:12000h B$"N"s 13000 WD:15000 WP:15000 H12:16000 WD:SUP:12000 25000: WHO WON? CASH0161 36099:12:13:"YOU'RE BROKE!!" ,HN(1,I)0:HN(2,I)0 6I' 7POT22 836099I 9CASHCASH1:14000[ @11000: DEAL JWP:SUP:12000: PRINT HAND KWD:SDN:12000 OB$"N" T13000: GET PLAYER BET ^WD:15000: BESTHAND _H11 h16000: DEALER BETS r1BEGIN NEW HAND.";::CASH0461= V24:HT36:22000:36099Q DP36DP0290^ - MAINj J120w YR(26) ZR(26)26 X1DF%(Y) X2DS%(Y) DF%(Y)DF%(Z) DS%(Y)DS%(Z) DF%(Z)X1 DS%(Z)X2 J DP1 "I15,4,198,1,240,8,202,208,246,166,0,76,2,3,96j <12:2:"PRESS CONTROL-C AT ANY TIME TO QUIT.":I12500:I FD1:P2:UP1:S$"scdh":CASH50 dI14 nJ214 xZZ1 DF%(Z)J DS%(Z)I J I VV24:32000:4::"PRESS ANY KEY TO $(4)"BRUN HI-GEN"9(4)"BLOAD CARDFONT,A$9100"E40000P16384B(2),JK(2,5),LP(2),K3(2),HP(2),FR(2),ST(2),FL(2,5),SF(2),HN(2,5),DF%(52),DS%(52),DUP(14),PH(5)3R(X)(((1)X)1)4I770788:A:I,A:I* 5 173,48,192,136,208           (HN(D,I))LP(D))X11! G18700W |G(DF%(HN(D,I))LP(D))(DF%(HN(D,I))HP(D))X11b }G18700 G(DF%(HN(D,I))K3(D))X11 I(X11)(X23)HN(D,I)0:X2X21:18800 II I pIJ1421 zIJ:(I1)81:" "; IJ I18710!R )0BJ310.BJ:(X1)81:" ";5BJ<BIZBVV22:32000:VV23:32000`BwPF - DEALER DISCARDZFX2DROP0dFI15eFX1DRP0nFB(D)418710xFB(D)18100,18200,18300,18400F(DF%(HN(D,I))11)X11F18700 G(DF%BVV23:HH4:32000:">>";:V23:HT4:LN1:LA48:HA53:30000LBX(GOOD$)`BX0I4:17100uBHN(P,X)017030B:11:(X1)84:"^";:B23:1:"DISCARD #"X" (Y/N)? ";:A$:A$"Y"A$"N"17053B11:1:36102BA$"N"17030BHN(P,XALLS.":POTPOTB:14000:O>B(D)1VV12:32000:"THE DEALER ALSO CHECKS.":c>DBR(5)B(D)2>VV12:32000:"THE DEALER BETS $"DB>POTPOTDB:B$"B":14000:13000>16000hB - PLAYER DISCARDrBVV22:32000:"DISCARD (1-5)"|BI13=60l>(B10H1)R(5)1(B(D)1(B(D)2LP(D)10))VV12:32000:"THE DEALER FOLDS.":CASHCASHPOT::161>R(100)B(D)20B(D)1Ģ12:1:DBR(5)B(D):"DEALER CALLS AND RAISES $"DB;:POTPOTBDB:B$"R":13000:16000>VV12:32000:"THE DEALER CST(W)DF%(PH(5)) - DEALER BETS>B$"C"ı>B$"B"B$"R"160504;B(W)3:HP(W)X:(XLP(W))HP(W)LP(W):LP(W)X?;15500Y;B(W)7:LP(W)X:15500u<(B(W)1)B(W)4:15390"*:< <"<&"&>m>> @`@q@6>xq  GHHHHHHHHHHHH HHHHG  qx~~~~~~~~I*w*I>+@`~8??>>|~|`>>   ****T*T*T*T"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"A>>< (&20  *, **>> """""    """  "" """""" >> "U+U+U+U+wk]]A]]a]]a]]ac]}}}]ca]]]]]aA}}a}}AA}}a}}}C}}}M]C]]]A]]]cwwwwwc_____]c]muyum]}}}}}}A]IUU]]]]]YUM]]c]]]]]ca]]a}}}c]]]UmSa]]aum]c]}c_]cAwwwwww]]]]]]c]]]]]kw]]]UUI]]]kwk]]]]kwwwwA_ow{}AAyyyyyA}{wo_AOOOOOAwk]    SS ANY KEY TO CONTINUE.";:A$5,::::(4)"PR#6";,Z,"ERROR #"E" AT LINE "E1:,24:7::"PRESS ANY KEY TO CONTINUE.";:A$,161NG+T+U36099 +^E(222)9+hE1(218)(219)256K+E25540090+12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$+A$"N"A$"Y"40081+A$"N"ī161+36099:12:1:"INSERT YOUR MASTER DISK INTO THE DRIVE",24:7::"PRELA(ZZ$)HA)ZZ$","30170,*vRRLN30170N* vRRRR1:ZZ$;:GOOD$GOOD$ZZ$Y*v30170d**vV1:w*4vRR1GOOD$""*>vRR1GOOD$(GOOD$,RR1)*HvRRRR1*IvVV:HT(GOOD$)*fv30170*}VV:1:36102:*@ *A+J - STANDARD ERROR TRAPPIHT";:)i"NINE";:#)i"TEN";:2)i"JACK";:B)i"QUEEN";:Q)i"KING";:_)i"ACE";:z)`mCDH:27000:" HIGH":)HqCDC:27000:"S";:)0u)u)uV:HT:GOOD$"")uRR0)uZZ$)u(ZZ$)1330250)u(ZZ$)8RR030260*u((ZZ$)i"A STRAIGHT FLUSH, ";:HSF(W):28000/(Fi:D(xi - PRINT CARD(iCD127022,27023,27024,27025,27026,27027,27028,27029,27030,27031,27040,27050,27060(i"TWO";:(i"THREE";:(i"FOUR";:(i"FIVE";:(i"SIX";:(i"SEVEN";:)i"EIGND ";:CHP(W):29000:26950@' g"THREE ";:CK3(W):29000:26950k'g"A STRAIGHT, ";:HST(W):28000:26950'g"A FLUSH, ";:HFL(W):28000:26950'Lh"A FULL HOUSE, ";:CK3(W):29000:" AND ";:CLP(W):29000:26950'h"FOUR ";:CFR(W):29000:26950'(CASHCASHPOT:T&heVV12:32000::"DEALER WINS!"::VV22:32000:"WITH ";:26000:&eB(W)26100,26200,26300,26400,26500,26600,26700,26800,26900&eHJK(W,1):28000:26950&Xf"A PAIR OF ";:CLP(W):29000:26950'f"TWO PAIR, ";:CLP(W):29000:" A% d(FL(P,X)FL(D,X))WP:25950=%d(FL(D,X)FL(P,X))25950N%d(X1)25950_%(dXX1:25610v%dd(K3(P)K3(D))WP%nd25950%d(FR(P)FR(D))WP%d25950%,e(SF(P)SF(D))WP&^e(WP)VV2:32000::"YOU WON!"::VV22:32000:"WITH ";:26000:$bX125950$bXX1:25230<$b(HP(P)HP(D))WP:25950U$b(HP(D)HP(P))25950s$b(LP(P)LP(D))WP:25950$b(LP(D)LP(P))25950$b(JK(P,1)JK(D,1))WP$c25950$8c(K3(P)K3(D))WP$Bc25950$c(ST(P)ST(D))WP$c25950$dX5 bX56#b(JK(P,X)JK(D,X))JK(P,1)JK(P,X):WP:25950d# b(JK(D,X)JK(P,X))JK(D,1)JK(D,5):25950s#*bX125950#4bXX1:25110#pbLP(P)LP(D)WP:25950#zbLP(D)LP(P)25950#bX5#b(JK(P,X)JK(D,X))WP:25950#b(JK(D,X)JK(P,X))25950 ON?W"aB(D)B(P)VV12:32000::"DEALER WINS!"::VV22:32000:"WITH ";:WD:26000:"aB(P)B(D)VV2:32000::"YOU WON!"::VV22:32000:"WITH ";:WP:26000:CASHCASHPOT:"aWD"aB(D)25100,25200,25300,25400,25500,25600,25700,25800,25900# - FUNKY SOUNDS!RCN1CF)!RTAABAE3!&R0,TA=!0R1,DNF!:R770N!DRTAV!NRCN\!XRr!UX0:X$"!/-\!/-\"!U49168,0!UV:HT!VXX1:X9X1!V(X$,X,1);!VKEY(49152):KEY12822010!"V49168,0!,VA$(KEY128)!6V"a - WHO W^HH= ><> ,0 V4:WDV15KWD231VI15hV:(I1)82DF%(HN(W,I))11203DF%(HN(W,I))10195,197,199,201A$"J":205A$"Q":205A$"K":205A$"A":205A$(DF%(HN(W,I)))1HN(D,I)0HN(D,I)DP:DPDP1$IDVV12:735:"DEALER'S HAND"_VV2:735:"YOUR HAND"hX13vY1358X1:Y:"ijjjjjk";IX11X17I:Y:"m";I:Y6:"l";IX17:Y:"pooooon";YX1X111X120OU WANT TO GET A NEW STAKE (Y/N)? "2 {I1(A$)G }15:1:(A$,I);N Ib V15:HT39:549 A$"Y"A$"N"İ553:131 A$"Y"CASH50:35 36099:753 - DEAL CARDS I15 HN(P,I)0HN(P,I)DP:DPDP1 I I15491: DEALER DISCARD a1370 cWP:SUP:179B eWD:SDN:179M gB$"N"V i245c kWD:325p mWP:325~ oH12:433 qWD:SUP:179 s567: WHO WON? uCASH035 w36099:12:13:"YOU'RE BROKE!!":CF4:AB11:AE15:DN2:531# yA$"DO Y,I)0:HN(2,I)0 EI GPOT2+ I36099@ KCASHCASH1:319Q M137: DEALu OWP:SUP:179: PRINT HAND QWD:SDN:179 SB$"N" U245: GET PLAYER BET WWD:325: BESTHAND YH11 [433: DEALER BETS ]455: DISCARD _N NEW HAND.";::CASH01177 %V24:HT36:549:36099J 'DP36DP065W ) - MAINc +J120p -YR(26) /ZR(26)26 1X1DF%(Y) 3X2DS%(Y) 5DF%(Y)DF%(Z) 7DS%(Y)DS%(Z) 9DF%(Z)X1 ;DS%(Z)X2 =J ?DP1 AI15 CHN(1,198,1,240,8,202,208,246,166,0,76,2,3,96h 12:2:"PRESS CONTROL-C AT ANY TIME TO QUIT.":I12500:I D1:P2:UP1:S$"scdh":CASH50 I14 J214 ZZ1 DF%(Z)J DS%(Z)I J !I #VV24:735:4::"PRESS ANY KEY TO BEGI"(4)"BRUN HI-GEN"9(4)"BLOAD CARDFONT,A$9100"C737N16384 B(2),JK(2,5),LP(2),K3(2),HP(2),FR(2),ST(2),FL(2,5),SF(2),HN(2,5),DF%(52),DS%(52),DUP(14),PH(5) R(X)(((1)X)1) I770788:A:I,A:I(  173,48,192,136,208,4        )X3X:S1:I14:(A%(E(I))A%(E(I1))1)S0VI:(S1)B(W)5:J(W)A%(E(5))}F1:I15:B%(E(I))B%(E(1))F0I:(F1)(S1)B(W)9:I(W)A%(E(5)):431(F0)431B(W)6:I15:H(W,I)A%(E(I)):IB$"C"ı B$"B"J1:X214:L(X)1399,379,381,391,397?{D(W,J)X:JJ1:399^}B(W)1B(W)2:C(W)X:399oB(W)2389B(W)3:F(W)X:(XC(W))F(W)C(W):C(W)X399B(W)7:C(W)X:399(B(W)1)B(W)4:395B(W)7G(W)X:399B(W)8:K(W30:"POT : $"L:EY(0):B(W)1:C(W)0:F(W)0:J(W)0:G(W)0:K(W)0:I(W)0:I15:D(W,I)0:H(W,I)0:I:I214:L(I)0:I:J15:E(J)A(W,J):J:I15:J15:A%(E(I))A%(E(J))363eME(I):E(I)E(J):E(J)M'kJ:I:I15:L(A%(E(I)))L(A%(E(I)))1:I:3033B02475B2026977KKB:LLB:B$"R":g9A$"F"G23:735:"OK, YOU'RE OUT.";::35;B$"N"G24:735:"CHECKING IS IMPROPER AT THIS TIME.";:A$"Q":251=G24:735:"CHECK TO DEALER.";:B$"X":B0:?G1:735:"YOU HAVE $"K;:TUALLY, YOU CAN'T EVEN AFFORD TO CALL";:I12000:I::117+KKO:LLO:K0G24:735:"BUDDY, YOU ARE BROKE.":I12000:I::117/G22:735:"RAISE HOW MUCH? ";:V22:N17:LN10:LA48:HA57:701:B(C$):BKĢ24:1:"YOU DON'T HAVE THAT MUCH.";:ALL.";:A$"Q":251[OKG24:735:"YOU HAVEN'T THE CASH TO CALL.";:I12000:I::117!KKO:LLO:319:B$"C":G24:735:"YOU CALL THE DEALER.";:%A$"R"313'B$"R"B$"B"G24:735:"RAISE WHAT?";:A$"Q":251;)KOG24:735:"ACV22:N21:LN10:LA48:HA57:701:B(C$):319:B0247{ B20G24:735:"THE HOUSE LIMIT IS $20 PER BET OR RAISE";:247B0BK275:319::259LLB:KKB:B$"B":A$"C"293B$"R"B$"B"G24:735:"THERE IS NOTHING TO CX)CHECK :";:V22:N39:549lA$"C"A$"B"A$"R"A$"F"A$"X"CF1:AB75:AE75:T30:531:553:251}A$"B"283B$"N"259B$"R"B$"B"G24:735:"YOU MUST EITHER CALL OR RAISE.";:A$"Q":2516G22:735:"OK, WHAT'S YER BET?";:A%(A(W,I))10NN1KN:A$;:V2:(I1)84:(S$,B%(A(W,I)),1);:I::]V4:WDV15Y2368:XVV5:X:Y:"@@@@@";:X:Y:Y2368:XVV5:X:Y:" ";:X:Y:187B0:G24:735319:22:1:"(C)ALL (B)ET (R)AISE (F)OLD (11:M20ı 157! ST2173 V4:WDV15@ WD231l I15:V:(I1)82:A%(A(W,I))11203 A%(A(W,I))10195,197,199,201 A$"J":205 A$"Q":205 A$"K":205 A$"A":205 A$(A%(A(W,I)))A$;:V5:N(I1)86:50:35 36099:753: I15:A(P,I)0A(P,I)R:RR1a I:I15:A(D,I)0A(D,I)R:RR1 I:G12:735:"DEALER'S HAND":G2:735:"YOUR HAND":M3 Y1358:M:Y:"ijjjjjk";:IM1M7:I:Y:"m";:I:Y6:"l";:I:M7:Y:"pooooon";:Y:MMD:325:WP:325:H12:433:WD:SUP:179:5679 uK035 w36099:12:13:"YOU'RE BROKE!!":CF4:AB11:AE15:T2:531:A$"DO YOU WANT TO GET A NEW STAKE (Y/N)? ":I1(A$):15:1:(A$,I);:I:V15:N39:549 A$"Y"A$"N"İ553:131 A$"Y"KYR(26):ZR(26)26:MA%(Y):UB%(Y):A%(Y)A%(Z):B%(Y)B%(Z):A%(Z)M:B%(Z)U:J:R1- AI15:A(1,I)0:A(2,I)0:I:L2:36099:KK1:319:137:WP:SUP:179:WD:ST:179:B$"N":245:WD:325:H11:433:455:491:137:WP:SUP:179:WD:ST:179:B$"N":245:W6:12:2:"PRESS CONTROL-C AT ANY TIME TO QUIT." I12500:I:D1:P2:UP1:S$"scdh":K50:I14:J214:ZZ1:A%(Z)J:B%(Z)I:J:I #G24:735:4::"PRESS ANY KEY TO BEGIN NEW HAND.";::K0117 %V24:N36:549:36099:R36R065S )J120:O;(4)"BRUN HI-GEN":(4)"BLOAD CARDFONT,A$9100":7370 16384:B(2),D(2,5),C(2),G(2),F(2),K(2),J(2),H(2,5),I(2),A(2,5),A%(52),B%(52),L(14),E(5):R(X)(((1)X)1):I770788:A:I,A:I:173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,2,3,9               22010&"V49168,0%&,VA$(KEY128)+&6V<&a - WHO WON?&aB(D)B(P)VV12:32000::"DEALER WINS!"::VV22:32000:"WITH ";:WD:26000:&aB(P)B(D)VV2:32000::"YOU WON!"::VV22:32000:"WITH ";:WP:26000:CASHCASHPOT:&aWD5'aB(D)1 %zIJ:(I1)81:" ";'%IJ2%I18710G%R - FUNKY SOUNDST%RCN1CFb%RTAABAEl%&R0,TAv%0R1,DN%:R770%DRTA%NRCN%XR%UX0:X$"!/-\!/-\"%U49168,0%UV:HT%VXX1:X9X1%V(X$,X,1);&VKEY(49152):KEY128NY KEY TO CONTINUE.";:A$:::::(4)"PR#6":N$"ERROR #"E" AT LINE "E1:]$G18700$|G(DF(HN(D,I))LP(D))(DF(HN(D,I))HP(D))X11$}G18700$G(DF(HN(D,I))K3(D))X11$ I(X11)(X23)HN(D,I)0:X2X21:18800$II$ I%pIJ142C$):709#G:1:36102:R#:36099:E(222):E1(218)(219)256:E255767#12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$:A$"N"A$"Y"753#A$"N"ī35/$36099:12:1:"INSERT YOUR MASTER DISK INTO THE DRIVE":24:7::"PRESS A"CDH:667:" HIGH":/"CDC:667:"S";:C"V:N:C$"":Q0Y"D$:(D$)13723n"(D$)8Q0725"((D$)LA(D$)HA)D$","709"QLN709"QQ1:D$;:C$C$D$:709"V1:"Q1C$"""Q1C$(C$,Q1)#QQ1:G:N(=!CD1671,673,675,677,679,681,683,685,687,689,691,693,695K!"TWO";:[!"THREE";:j!"FOUR";:y!"FIVE";:!"SIX";:!"SEVEN";:!"EIGHT";:!"NINE";:!"TEN";:!"JACK";:!"QUEEN";:!"KING";:""ACE";::699:665* "THREE ";:CG(W):699:665P "A STRAIGHT, ";:HJ(W):697:665s "A FLUSH, ";:HH(W):697:665 "A FULL HOUSE, ";:CG(W):699:" AND ";:CC(W):699:665 "FOUR ";:CK(W):699:665 "A STRAIGHT FLUSH, ";:HI(W):697 :U WON!"::G22:735:"WITH ";:645:KKL:gG12:735::"DEALER WINS!"::G22:735:"WITH ";:645:B(W)647,649,651,653,655,657,659,661,663HD(W,1):697:665"A PAIR OF ";:CC(W):699:665 "TWO PAIR, ";:CC(W):699:" AND ";:CF(W)(G(P)G(D))WPg641.i(J(P)J(D))WP7k641?mX5]o(H(P,X)H(D,X))WP:641vq(H(D,X)H(P,X))641s(X1)641uXX1:623w(G(P)G(D))WPy641{(K(P)K(D))WP}641(I(P)I(D))WP*(WP)G2:735::"YOC(D)WP:641 MC(D)C(P)641(OX5FQ(D(P,X)D(D,X))WP:641_S(D(D,X)D(P,X))641lUX1641{WXX1:593Y(F(P)F(D))WP:641[(F(D)F(P))641](C(P)C(D))WP:641_(C(D)C(P))641a(D(P,1)D(D,1))WPc641e;B(P)B(D)G2:735::"YOU WON!"::G22:735:"WITH ";:WP:645:KKL:}=WD:B(D)577,587,601,613,617,621,631,635,639AX5C(D(P,X)D(D,X))D(P,1)D(P,X):WP:641E(D(D,X)D(P,X))D(D,1)D(D,5):641GX1641IXX1:579 KC(P):5196CN1CF:TAABAE:0,TA:1,T:770:TA:CN:U%X0:X$"!/-\!/-\":49168,0n)V:N:XX1:X9X1-(X$,X,1);:KE(49152):KE128553149168,0:A$(KE128):7B(D)B(P)G12:735::"DEALER WINS!"::G22:735:"WITH ";:WD:645:K,507,511,515%(A%(A(D,I))11)M1.517J(A%(A(D,I))C(D))M1S517(A%(A(D,I))C(D))(A%(A(D,I))F(D))M1517(A%(A(D,I))G(D))M1(M1)(U3)A(D,I)0:UU1:523I: J1421:J:(I1)81:" ";:J(P,X)0461(:11:(X1)84:"^";:e23:1:"DISCARD #"X" (Y/N)? ";:A$:A$"Y"A$"N"47111:1:36102:A$"N"461A(P,X)0:J310:J:(X1)81:" ";:JI:G22:735:G23:735:U0:I15:M0:B(D)4519 B(D)503:5B(D)1G12:735:"THE DEALER ALSO CHECKS.":OR(5)B(D)2:G12:735:"THE DEALER BETS $"O:LLO:B$"B":319:245:433G22:735:"DISCARD (1-5)":I13G23:HH4:735:">>";:V23:N4:LN1:LA48:HA53:701:X(C$):X0I4:485 AB$"R"445i(B10H1)R(5)1(B(D)1(B(D)2C(D)10))G12:735:"THE DEALER FOLDS.":KKL::35R(100)B(D)20B(D)1Ģ12:1:OR(5)B(D):"DEALER CALLS AND RAISES $"O;:LLBO:B$"R":245:433G12:735:"THE DEALER CALLS.":LLB:319TB:319:>B(D)1VV12:735:"THE DEALER ALSO CHECKS.":RDBR(5)B(D)2xVV12:735:"THE DEALER BETS $"DBPOTPOTDB:B$"B":319:245433 - PLAYER DISCARDVV22:735:"DISCARD (1-5)"I13VV23:HH4:735:">>";:V(B10H1)R(5)1(B(D)1(B(D)2LP(D)10))VV12:735:"THE DEALER FOLDS.":CASHCASHPOT::35R(100)B(D)20B(D)1Ģ12:1:DBR(5)B(D):"DEALER CALLS AND RAISES $"DB;:POTPOTBDB:B$"R":245:433 VV12:735:"THE DEALER CALLS.":POTPO5:ST(W)DF%(PH(5))F1%I15EDS%(PH(I))DS%(PH(1))F0LIz(F1)(S1)B(W)9:SF(W)DF%(PH(5)):431(F0)431B(W)6I15FL(W,I)DF%(PH(I))I - DEALER BETSB$"C"ıB$"B"B$"R"445eB(W)2389>B(W)3:HP(W)X:(XLP(W))HP(W)LP(W):LP(W)XG399_B(W)7:LP(W)X:399y(B(W)1)B(W)4:395B(W)7K3(W)X:399B(W)8:FR(W)XXS1I14(DF%(PH(I))DF%(PH(I1))1)S0I(S1)B(W)cDF%(PH(I))DF%(PH(J))363)eX1PH(I)9gPH(I)PH(J)FiPH(J)X1MkJTmI_oI15qDUP(DF%(PH(I)))DUP(DF%(PH(I)))1sIuJ1wX214yDUP(X)1399,379,381,391,397{JK(W,J)X:JJ1:399}B(W)1B(W)2:LP(W)X:399 "POT : $"POTC/E - WHAT'S MY BEST SHOT?AGY(0):B(W)1uILP(W)0:HP(W)0:ST(W)0:K3(W)0:FR(W)0:SF(W)0KI15MJK(W,I)0OFL(W,I)0QISI214UDUP(I)0WIYJ15[PH(J)HN(W,J)]J_I15aJ15NSERT YOUR MASTER DISK INTO THE DRIVE"V024:7::"PRESS ANY KEY TO CONTINUE.";:A$n0::::(4)"PR#6"t00"ERROR #"E" AT LINE "E1:024:7::"PRESS ANY KEY TO CONTINUE.";:A$0161SVV:1:36102:/@ /A;/J - STANDARD ERROR TRAPPINGA/TL/U36099Y/^E(222)r/hE1(218)(219)256/E25540090/12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$/A$"N"A$"Y"40081/A$"N"ī161&036099:12:1:"Iu(ZZ$)1330250+.u(ZZ$)8RR030260T.u((ZZ$)LA(ZZ$)HA)ZZ$","30170e.vRRLN30170. vRRRR1:ZZ$;:GOOD$GOOD$ZZ$.v30170.*vV1:.4vRR1GOOD$"".>vRR1GOOD$(GOOD$,RR1).HvRRRR1.IvVV:HT(GOOD$).fv30170/}:-i"FIVE";:-i"SIX";:/-i"SEVEN";:?-i"EIGHT";:N-i"NINE";:\-i"TEN";:k-i"JACK";:{-i"QUEEN";:-i"KING";:-i"ACE";:-`mCDH:27000:" HIGH":-HqCDC:27000:"S";:-0u-u-uV:HT:GOOD$""-uRR0-uZZ$.P(W):29000:269506,h"FOUR ";:CFR(W):28000:26950`,i"A STRAIGHT FLUSH, ";:HSF(W):28000h,Fi:},xi - PRINT CARD,iCD127022,27023,27024,27025,27026,27027,27028,27029,27030,27031,27040,27050,27060,i"TWO";:,i"THREE";:-i"FOUR";P(W):29000:26950T+f"TWO PAIR, ";:CLP(W):29000:" AND ";:CHP(W):29000:26950y+ g"THREE ";:CK3(W):29000:26950+g"A STRAIGHT, ";:HST(W):28000:26950+g"A FLUSH, ";:HFL(W):29000:26950,Lh"A FULL HOUSE, ";:CK3(W):29000:" AND ";:CLV2:32000::"YOU WON!"::VV22:32000:"WITH ";:26000:CASHCASHPOT:*heVV12:32000::"DEALER WINS!"::VV22:32000:"WITH ";:26000:*eB(W)26100,26200,26300,26400,26500,26600,26700,26800,26900*eHJK(W,1):28000:26950+Xf"A PAIR OF ";:CLP )Bc25950$)c(ST(P)ST(D))WP/)c259507)dX5Y) d(FL(P,X)FL(D,X))WP:25950v)d(FL(D,X)FL(P,X))25950)d(X1)25950)(dXX1:25610)dd(K3(P)K3(D))WP)nd25950)d(FR(P)FR(D))WP)d25950),e(SF(P)SF(D))WPH*^e(WP)VK(P,X)JK(D,X))WP:259507(b(JK(D,X)JK(P,X))25950F(bX125950W(bXX1:25230u(b(HP(P)HP(D))WP:25950(b(HP(D)HP(P))25950(b(LP(P)LP(D))WP:25950(b(LP(D)LP(P))25950(b(JK(P,1)JK(D,1))WP(c25950)8c(K3(P)K3(D))W25100,25200,25300,25400,25500,25600,25700,25800,25900=' bX5o'b(JK(P,X)JK(D,X))JK(P,1)JK(P,X):WP:25950' b(JK(D,X)JK(P,X))JK(D,1)JK(D,5):25950'*bX125950'4bXX1:25110'pbLP(P)LP(D)WP:25950'zbLP(D)LP(P)25950'bX5(b(J"SEVEN";:'"EIGHT";:*'"NINE";:8'"TEN";:G'"JACK";:W'"QUEEN";:f'"KING";:t'"ACE";:'CDH:667:" HIGH":'CDC:667:"S";:'''V:HT:GOOD$""'RR0'ZZ$'(ZZ$)13723'(ZZ$)8RR0725P(W):699:665.&"FOUR ";:CFR(W):699:665V&"A STRAIGHT FLUSH, ";:HSF(W):697^&:s& - PRINT CARD&CD1671,673,675,677,679,681,683,685,687,689,691,693,695&"TWO";:&"THREE";:&"FOUR";:&"FIVE";:&"SIX";: '5&%"A PAIR OF ";:CLP(W):699:665b%"TWO PAIR, ";:CLP(W):699:" AND ";:CHP(W):699:665%"THREE ";:CK3(W):699:665%"A STRAIGHT, ";:HST(W):697:665%"A FLUSH, ";:HFL(W):697:665&"A FULL HOUSE, ";:CK3(W):699:" AND ";:CLP)FR(D))WP$}641-$(SF(P)SF(D))WP|$(WP)VV2:735::"YOU WON!"::VV22:735:"WITH ";:645:CASHCASHPOT:$VV12:735::"DEALER WINS!"::VV22:735:"WITH ";:645:$B(W)647,649,651,653,655,657,659,661,663%HJK(W,1):697:66(LP(D)LP(P))641,#a(JK(P,1)JK(D,1))WP5#c641L#e(K3(P)K3(D))WPU#g641l#i(ST(P)ST(D))WPu#k641}#mX5#o(FL(P,X)FL(D,X))WP:641#q(FL(D,X)FL(P,X))641#s(X1)641#uXX1:623#w(K3(P)K3(D))WP#y641 ${(FR(1"GX1641"IXX1:5797"KLP(P)LP(D)WP:641L"MLP(D)LP(P)641T"OX5t"Q(JK(P,X)JK(D,X))WP:641"S(JK(D,X)JK(P,X))641"UX1641"WXX1:593"Y(HP(P)HP(D))WP:641"[(HP(D)HP(P))641"](LP(P)LP(D))WP:641#_TH ";:WD:645:g!;B(P)B(D)VV2:735::"YOU WON!"::VV22:735:"WITH ";:WP:645:CASHCASHPOT:o!=WD!?B(D)577,587,601,613,617,621,631,635,639!AX5!C(JK(P,X)JK(D,X))JK(P,1)JK(P,X):WP:641"E(JK(D,X)JK(P,X))JK(D,1)JK(D,5):64 770 TA !CN #3 %X0:X$"!/-\!/-\"@ '49168,0K )V:HT^ +XX1:X9X1n -(X$,X,1); /KEY(49152):KEY128553 149168,0 3A$(KEY128) 5 7 - WHO WON?!9B(D)B(P)VV12:735::"DEALER WINS!"::VV22:735:"WID))(DF%(HN(D,I))HP(D))X11'517G(DF%(HN(D,I))K3(D))X11q(X11)(X23)HN(D,I)0:X2X21:523xI~  J1421 J:(I1)81:" ";J519 - FUNKY SOUNDSCN1CFTAABAE0,TA1,DN ";JI/VV22:735:VV23:7355L - DEALER DISCARDYX2DROP0dI15pX1DRP0B(D)4519B(D)503,507,511,515(DF%(HN(D,I))11)X11517(DF%(HN(D,I))LP(D))X11517(DF%(HN(D,I))LP(23:HT4:LN1:LA48:HA53:701-X(GOOD$)?X0I4:485RHN(P,X)0461o:11:(X1)84:"^";:23:1:"DISCARD #"X" (Y/N)? ";:A$:A$"Y"A$"N"47111:1:36102A$"N"461HN(P,X)0J310J:(X1)81:" AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP2`(` `$ -$` J$$(`$%H B -% % h% "L'@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY](`% $`H $d$Ih`ʩJJJJJe) e$d슨H2hIHh`   ɠ`), L$d( X` 4 22 J$$(L LLL@st8 X;67 󩎅9L Hɠ') Jh%ɍ$!H hL) $!$L[% r%$L[$dHi$dh(Ԣ$d   SS ANY KEY TO CONTINUE.";:A$5*::::(4)"PR#6";*Z*"ERROR #"E" AT LINE "E1:o*B$"R"B$"B"ġx*117*B$"R"B$"B"ġ*3524:7::"PRESS ANY KEY TO CONTINUE.";:A$*35RAPPING ))36099%)E(222)>)E1(218)(219)256N)E255767)12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$)A$"N"A$"Y"753)A$"N"ī35)36099:12:1:"INSERT YOUR MASTER DISK INTO THE DRIVE"*24:7::"PRE&(((ZZ$)LA(ZZ$)HA)ZZ$","7095(RRLN709W(RRRR1:ZZ$;:GOOD$GOOD$ZZ$`(709k(V1:~(RR1GOOD$""(RR1GOOD$(GOOD$,RR1)(RRRR1(VV:HT(GOOD$)(709(VV:1:36102:( () - STANDARD ERROR T?.>7->7->7o--5-6->7>7??<'<'-$--.56?>'?$,-.5?'-a: 5Wv /13579.3o-.??.--??-6557?,<66>>..%%'6.> ->?7-->?7o--.???> ----ߛ666-,$?O<<'o,->?6 ,.,.,.,.$?.>75    Bp!DD   p! @   8`3D U*U*U U*U*U U*U*U |@ 8       U*U*U U*U*U U*U*U " "@"LLԊ   <@"|@Ъ   @ 8   >      #( &`!TTԊ   DP`!$~Ъ   x    <@p8   @p8   B *P dd    (D 8P (~ЊР@   !! ! ! ! ! !!!!!!!!!""" " " " " """""""""    2`3DD~ЊР      p!D   P@@"L    D x @ ժժժժժժժժժժժժժժժժժ   <"@ 88ժժժժժժժժժժժժժժժժժG@Ԩ   Ԋ   b@"D    8@`!T   "@Ԩ   Ԋ   "<`!8   <"<P d      "@p88@   @p @   BPP D   x`3D