' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-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õ`  \ 濭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- ( 0  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u`@*(U*(U*(Uppp D 2e{e{e{ DL @*U*U*U*U*U*U*U*U*U@*(U*(U*(Up`a``{@C@C`qa{@ACC8@*(U*(U*(Upy{sx{swgoOgpy{swgs~@*(U*(U*(U   @@'J@*(U*(U*(U  P P )J D @*(U*(U*(U@@@```>``)J@*U*U*U*U*U*U*U*U*U@*U*U*U*U*U*U*U*U*U@*(U*(U*(U@*(U*(U*(U```)J)J)J@*U*U*U*U*U*U*U*U*U@*(U*(U*(U``s`@oG`@gAAC@*(U*(U*(Upy{sx{swgoOgpy{swgs~@*(U*(U*(U((((D(xx)*(D@*(U*(U*(U>Gy@*(U*(U*(U@*U*U*U*U*U*U*U*U*U@*U*U*U*U*U*U*U*U*U@*U*U*U*U*U*U*U*U*U@*U*U*U*U*U*U*U*U*U@*(U*(U*(U@@@xxxGyGyGy@*U*U*U*U*U*U*U*U*U@*(U*(U*(U @?pqq@?`@GGgp?@?`cc`G@*(U*(U*(U@@@```>  'Jpy{sx{swgoOgpy{swgs~@*(U*(U*(U(((Dpp):           `NO`   * N   M ....- ` fy f 'gisgvg 'gpgH uuh̢pgsg$ uAsgLlfvgvgsgvgu8sgu8#- fiH uu]uh `}sgL>f`HH fhh`0OFFSET 0B0601 SUB 020103 TURNS 000000  2 MODULO RAN1 #$FF BSIZE #8 MODULO RAN2 RAN4 BSIZE  RAN2 RSIZE RAN3 RSIZE RAN4 PSR4    PSR4   PSR1 PSR2 PSR3 PSR4  RAN4 RAN5 PSR1 BSIZE MODULO RAN3  SF3 $00 SOUNDS SF2 $03 $01 $02 SF1  RESEED RNDL SEED1 RNDH SEED4 PSR3 SEED2 PSR2 SEED3 RESET #4 RE1 SEED1,Y PSR1,Y  RE1 PSR2 RE2 PSR2 RE2 RANDOM MODULO RAN1 ##2 ^5 SUB,X  <5 DUM2 DUM2 NOSPIN SPIN NOSPIN BEEP    #4 $03 $01 DUM3 $00 #1 $02 SOUNDS     DUM3  SOUNDS $C030 SF3 SF1 $01 SF2 SF1  TABLE+2,Y  SUB,X TABLE+2,Y  #35 >1 BEEP WHO,X  #1 #6 >2 #0 ^2 WHO,X DUM1   DUM1 COORDHI,X TABLE,Y COORDLO,X TABLE+1,Y #93 TABLE+2,Y   ^1 <3 $6003 #0 1 COORDHI,X TABLE,Y COORDLO,X TABLE+1,Y    <1 SPIN #2 ^3 OFFSET,X SUB,X >5 #1 >6 TABLE+2,Y #65 >5 SUB,X >5 ^6 TURNS,X STR >7 #0 TURNS,X SUB,X ^7 TURNS,X ^5 $317 WHO $318 STR $31C DUM2 $31D DUM3 $31E RNDL $4E RNDH $4F #$FF DUM3 RESEED #2 ^1 #8 RANDOM  #5 SUB,X #0 TURNS,X #6 RANDOM OFFSET,X DUM1 WHO,X   DUM6  $6600  $6600 TABLE $7500 SEED1 $300 SEED2 $301 SEED3 $302 SEED4 $303 PSR1 $304 PSR2 $305 PSR3 $306 PSR4 $307 BSIZE $308 RSIZE $309 MODULO $30A COORDHI $30B COORDLO $311 DUM1 (PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_(((((((((((((((((((((((((((((((ȱȱȱL,aȱaȱaȱȱLkaȱ'a@8 ]ab\a(`ȱ࿐a@8 abae (ж`@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[`EL`n%0^ `  aLo`)@L`ȱȱȱȱ ,aȱaȱaȱȱ kaiЎ @T`  U`I@  `  @ ` Ч ` @Ж ȄRU `ȱ   pp'p9pKp]poppp *U*U*U*U*U*U*U*U*U*U@P T*T*T*P @Gy)J)Je{):)*)j'Jx @@@@@``ppx|@ `@ ((( `x|~?|x``CONTINUE:";:49168,0:A$4:12:15:"LOADING...">650PD$"RUN MENU"CASH50:::12:3:"YOU'RE BROKE, WANT MORE CASH (Y/N)? ";A$:A$"Y"A$"N"710A$"Y"Ĺ16301,0:16297,0:16304,0:340620OU WIN $"W" ":CASHCASHW&b330`l::12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";}vA$:A$"Y"A$"N"630A$"N"Ĺ16301,0:16297,0:16304,0:340:12:"INSERT YOUR MASTER DISK INTO THE DRIVE."24:7:"PRESS ANY KEY TO 5S16S26S36W104S14S24S34W15MS12S22S32W50f&S10S20S31W100S15S25S31W14:S13S23S31W18DS11S21S31W100NW1āI120:X(16336)::"YOU LOSE $1 ":CASHCASH1:330X"YA$"Q"620 A$"H"S30/ A$"V"S50: 796,SL 16302,0:ANk 16300,0:16301,0:21:1 S1(794):S2(793):S3(792) W1 S14W2 S10S20S30W10 S15S25S35W14 S13S23S33W18S14S24WA1:( 6A785:I27:A,C(I,2):AA1:0 @SEH J16300,0:16301,0 T23:1:"ENTER SPIN STRENGTH:";:30:"CASH $"CASH" " ^"(S)OFT, (H)ARD, (V)ERY HARD, (Q)UIT: "; hA$:A$"S"A$"H"A$"V"A$"Q"360 rCASH0700 |A$"S"S10 3 I46i TAD(I),1:TAD(I)1,C(1,1):TAD(I)2,C(1,2):TAD(I)3,32:TAD(I)4,(I2)61:z TAD(10),0 I79 "TAD(I),1:TAD(I)1,C(1,1):TAD(I)2,C(1,2):TAD(I)3,92:TAD(I)4,(I5)61: ,A779:I27:A,C(I,1):AB B(A):AA1:C(I,2)B# IY TA,1:TA1,C(2,1):TA2,C(2,2):TA3,60:TA4,11 TAD(2),1:TAD(2)1,C(2,1):TAD(2)2,C(2,2):TAD(2)3,70:TAD(2)4,17 TAD(3),1:TAD(3)1,C(2,1):TAD(3)2,C(2,2):TAD(3)3,70:TAD(3)4,2 BANDSCR,A$2000". ZD$"BLOAD BANDSCR,A$4000"R d16302,0:16297,0:16304,0:a nX(28672)t xD(X)5(X1) C(8,2) MT6:ST8:SE24576:TA29952:AN26112 MT,0:MT1,117 ST,0:ST1,118 A28673 I1X B(A):AA1:C(I,1)@ ONE ARMED BANDIT IS A PRODUCT OF GREEN VALLEY PUBLISHINGe A DIVISION OF SHARE DATA, INC. COPYRIGHT (C) 1986, ALL RIGHTS RESERVED(D$(4):CASH502D$"BLOAD BSTABLE,A$7000"<D$"BLOAD GRAPHIX"FD$"BLOAD BANDAN" PD$"BLOAD  (:::12:15:"LOADING...":(4)"RUN MENU"4(S("ERROR #"E" AT LINE "E1:h($B$"R"B$"B"ġq(.19022)' E1(218)(219)256-' E2553610g' 12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$' A$"N"A$"Y"3540' A$"N"ī190' 36099:12:1:"INSERT YOUR MASTER DISK INTO THE DRIVE"' 24:7::"PRESS ANY KEY TO CONTINUE.";:A$.(ZZ$)8RR03430:&4 ((ZZ$)LA(ZZ$)HA)ZZ$","3350J&> RRLN3350h&H RRRR1:ZZ$;:GO$GO$ZZ$r&R 3350}&\ V1:&f RR1GO$""&p RR1GO$(GO$,RR1)&z RRRR1& VV:HT(GO$)& 3350& VV:1:36102:& & 36099' E(2"FIVE";:% "SIX";:(% "SEVEN";:8% "EIGHT";:G% "NINE";:U% "TEN";:d% "JACK";:t% "QUEEN";:% "KING";:% "ACE";:% CDH:3170:" HIGH":% CDC:3170:"S";:% V:HT:GO$""% RR0% ZZ$% (ZZ$)133420&* , ";:CK3(W):3320:" AND ";:CLP(W):3320:3160R$D "FOUR ";:CFR(W):3320:3160{$N "A STRAIGHT FLUSH, ";:HSF(W):3310$X :$b CD13180,3190,3200,3210,3220,3230,3240,3250,3260,3270,3280,3290,3300$l "TWO";:$v "THREE";:$ "FOUR";: % JK(W,1):3310:3160:# "A PAIR OF ";:CLP(W):3320:3160y# "TWO PAIR, ";:CLP(W):3320:" AND ";:CHP(W):3320:3160# "THREE ";:CK3(W):3320:3160#& "A STRAIGHT, ";:HST(W):3310:3160#0 "A FLUSH, ";:HFL(W,5):3310:31600$: "A FULL HOUSEFR(D))WP" 3040," (SF(P)SF(D))WP" (WP)Ģ2:1::"YOU WON! "::VV22:3480:"WITH ";:3060:CACAPO:" VV12:3480::"DEALER WINS!"::VV22:3480:"WITH ";:3060:" B(W)3070,3080,3090,3100,3110,3120,3130,3140,3150# H))3040"!@ (JK(P,1)JK(D,1))WP,!J 3040C!T (K3(P)K3(D))WPM!^ 3040d!h (ST(P)ST(D))WPn!r 3040v!| X5! (FL(P,X)FL(D,X))WP:3040! (FL(D,X)FL(P,X))3040! (X1)3040! XX1:2950! (K3(P)K3(D))WP! 3040 " (FR(P)X1:2730$ LP(P)LP(D)WP:3040: LP(D)LP(P)3040B X5c (JK(P,X)JK(D,X))WP:3040 (JK(D,X)JK(P,X))3040  X13040  XX1:2800  (HP(P)HP(D))WP:3040 " (HP(D)HP(P))3040 , (LP(P)LP(D))WP:3040!6 (LP(D)LP(P:"YOU WON! "::VV22:3480:"WITH ";:WP:3060:CACAPO:N WD B(D)2720,2770,2840,2900,2920,2940,2990,3010,3030 X5 (JK(P,X)JK(D,X))JK(P,1)JK(P,X):WP:3040 (JK(D,X)JK(P,X))JK(D,1)JK(D,5):3040 X13040 X 2530 X0:X$"!/-\!/-\"*( 49168,052 V:HTH< XX1:X9X1XF (X$,X,1);uP KE(49152):KE1282610Z 49168,0d A$(KE128)n x B(D)B(P)VV12:3480::"DEALER WINS!"::VV22:3480:"WITH ";:WD:3060:F B(P)B(D)Ģ2:1: 2520( (DF%(HN(D,I))LP(D))X112 2520h (DF%(HN(D,I))LP(D))(DF%(HN(D,I))HP(D))X11r 2520 (DF%(HN(D,I))K3(D))X11 (X11)(X23)HN(D,I)0:X2X21:2550 I  J1421 J:(I1)81:" "; J"N"2300 11:1:36102- A$"N"2250; HN(P,X)0G$ J310f. J:(X1)81:" ";m8 JtB IL VV22:3480:VV23:3480V ` X20j I15t X10~ B(D)42530 B(D)2450,2470,2490,2510 (DF%(HN(D,I))11)X1150:121021303VV22:3480:"DISCARD (1-5)">I13{VV23:HH4:3480:">>";:V23:HT4:LN1:LA48:HA53:3330X(GO$)X0I4:2370HN(P,X)02250:11:(X1)84:"^";: 23:1:"DISCARD #"X" (Y/N)? ";:A$:A$"Y"A$B(D):"DEALER CALLS AND RAISES $"DB;:POPOBDB:B$"R":1210:2130xzVV12:3480:"THE DEALER CALLS.":POPOB:1550:B(D)1VV12:3480:"THE DEALER ALSO CHECKS.":DBR(5)B(D)2VV12:3480:"THE DEALER BETS $"DBPOPODB:B$"B":15(F0)2120 B(W)6#*I15:4FL(W,I)DF%(PH(I))A>IGHURB$"C"ıo\B$"B"B$"R"2180f(B10H1)R(5)1(B(D)1(B(D)2LP(D)10))VV12:3480:"THE DEALER FOLDS.":CACAPO::190CpR(100)B(D)20B(D)1Ģ12:1:DBR(5)(W)7K3(W)X:1960*B(W)8:FR(W)X1X9S1DI14j(DF%(PH(I))DF%(PH(I1))1)S0qI(S1)B(W)5:ST(W)DF%(PH(5))F1I15DS%(PH(I))DS%(PH(1))F0I (F1)(S1)B(W)9:SF(W)DF%(PH(5)):2120 I &J10X214=:DU(X)11960,1860,1870,1920,1950WDJK(W,J)X:JJ1:1960xNB(W)1B(W)2:LP(W)X:1960XB(W)21910bB(W)3:HP(W)X:(XLP(W))HP(W)LP(W):LP(W)Xl1960vB(W)7:LP(W)X:1960(B(W)1)B(W)4:1940B(W,I)0hFL(W,I)0rI(|I2144DU(I)0;IFJ15XPH(J)HN(W,J)_JjI15uJ15DF%(PH(I))DF%(PH(J))1780X1PH(I)PH(I)PH(J)PH(J)X1JII15DU(DF%(PH(I)))DU(DF%(PH(I)))112406VV24:3480:"CHECK TO DEALER.";:B$"X":B0:SVV1:3480:ZCA:Z0Z0g"YOU HAVE $"Z;|"30:"POT : $"PO,CA0Ė22:"YOU'RE LIGHT: $"(CA)6@Y(0):B(W)1JLP(W)0:HP(W)0:ST(W)0:K3(W)0:FR(W)0:SF(W)0TI15^JKN10:LA48:HA57:3330#B(GO$)DB0CACADB:POPODB:1220fB20CACADB:POPODB:1330CACAB:POPOB:B$"R":A$"F"VV23:3480:"OK, YOU'RE OUT.";::3620B$"N"VV24:3480:"CHECKING IS IMPROPER AT THIS TIME.";:A$"Q":CALL.";:A$"Q":12400CACADB:POPODB:1550bB$"C":VV24:3480:"YOU CALL THE DEALER.";:tA$"R"1520B$"R"B$"B"VV24:3480:"RAISE WHAT?";:A$"Q":1240CACADB:POPODB:1550VV22:3480:"RAISE HOW MUCH? ";:V22:HT17:LB(GO$)1550#(B01220k2B20VV24:3480:"THE HOUSE LIMIT IS $20 PER BET OR RAISE";:1220y<B01360F:1550::1280PPOPOBZCACABdB$"B"nxA$"C"1440B$"R"B$"B"VV24:3480:"THERE IS NOTHING TO 2590=A$"C"A$"B"A$"R"A$"F"A$"X"İ2610:1240OA$"B"1400`B$"N"1280B$"R"B$"B"VV24:3480:"YOU MUST EITHER CALL OR RAISE.";:A$"Q":1240VV22:3480:"OK, WHAT'S YER BET?"; V22:HT21:LN10:LA48:HA57:3330 :8V4:WDV15"BY2368/LXVV5CVX:Y:"@@@@@";J`XQjYYt:g~Y2368tXVV5X:Y:" ";XY940B0:VV24:34801550:22:1:"(C)ALL (B)ET (R)AISE (F)OLD (X)CHECK :";V22:HT39:020*DF%(HN(W,I))10980,990,1000,1010;A$"J":1030LA$"Q":1030]A$"K":1030nA$"A":1030A$(DF%(HN(W,I)))A$;:V5:HT(I1)86:DF%(HN(W,I))10HTHT1HT:A$;:V2:(I1)84:(S$,DS%(HN(W,I)),1);I$.358 X1:Y:"ijjjjjk";-*IX11X17=4I:Y:"m";O>I:Y6:"l";VHIoRX17:Y:"pooooon";v\YfX1X111pX120ĝ:z790SDN1080V4:WDV151150I15V:(I1)82DF%(HN(W,I))111 A$"Y"A$"N"İ2610:6706 A$"Y"CA50:190G 36099:3540R I15t HN(P,I)0HN(P,I)DP:DPDP1{ I I15 HN(D,I)0HN(D,I)DP:DPDP1 I VV12:3480:"DEALER'S HAND" VV2:3480:"YOUR HAND" X13:Y1B$"N" 1210 &WD:1600, 0WP:1600; :H12:2130M DWD:SUP:900\ N2680:190j XCA0190 b36099:12:13:"YOU'RE BROKE!!" lA$"DO YOU WANT TO GET A NEW STAKE (Y/N)? " vI1(A$) 15:1:(A$,I); I V15:HT39:2590 JDP1 TI15* ^HN(1,I)0:HN(2,I)01 hI: rPO2E |36099W CACA1:1550` 700r WP:SUP:900 WD:SDN:900 B$"N" 1210 WD:1600 H11 2130 2230 2400 700 WP:SUP:900 WD:SDN:900 4:3480:4::"PRESS ANY KEY TO BEGIN NEW HAND.";:O V24:HT36:2590:36099^ CA0600r DP36DP0340~ J120 YR(26) ZR(26)26 X1DF%(Y) X2DS%(Y) DF%(Y)DF%(Z) "DS%(Y)DS%(Z) ,DF%(Z)X1 6DS%(Z)X2 @J2),FR(2),ST(2),FL(2,5),SF(2),HN(2,5),DF%(52),DS%(52),DU(14),PH(5)Z ZR(X)(((1)X)1) d12:2:"PRESS CONTROL-C AT ANY TIME TO QUIT." nD1:P2:UP1:S$"scdh":CA50 xI14 J214 ZZ1 DF%(Z)J DS%(Z)I J I3 VV2r ; DRAW POKER IS A PRODUCT OF GREEN VALLEY PUBLISHINGa A DIVISION OF SHARE DATA ,INC. COPYRIGHT (C) 1986, ALL RIGHTS RESERVED((4)"BRUN HI-GEN"2(4)"BLOAD CARDFONT,A$9100"<3490F16384A PB(2),JK(2,5),LP(2),K3(2),HP(           "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$:: BLUFFS,"? :"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":- FING..." (4)"RUN MENU"M 24:7:"PRESS ANY KEY TO CONTINUE.";:A$::BLACKJACK, 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 CCD~EwGmKnMwKnNnMmNlPoQpQlSoTp:w<n7s8{9;;77823/.----))))*w-x*'&%%&&xu3r3q2p1r.s,x*w,w.z//257688988v8v<|=|8|/|&u)u*#16>6!#138@BDJE>@D|G|BuEuLuaubzfz`ajm^[RQWYahlua{fx`fhiii}`dee_`a\]]WWTTTSIHGwwyyNNHPQQPQRRQONNMK~J|J{L}M~NOOPRTTWXYZ[[]^]^^`_~^~_{^}`{`x^w^x`v_u`r]qYqWoUqSqQpPoNsMuMwKvJwI{I|GGEDDFIIIKK`_acefhhfdc=2>??A@?=;986765446777|8{9x:w8t8r7q4s4v5v4==??==AA>=A,,+++*+*)=76444>>??AE@FEFFFDDGGEIJKIIHGGGGIIkOOOOOMooqqqqqqsswwvuuuv%%((&&)*''**()++((++%%**&-34433477558855886699679977::88::88<<99<;==;;==;;>><<>><<??bbb_dgilkkkkjjjjjiiiiiihgggggffffeeeeeedeeeffghhiiijjjklkghiikklh]^^^]]^]]hhhhhh]]:;;:'&&&-[[X)WXXXWWWRYYXXYZY\]```____^^^^^^^]]]\\\\\[[[[[[[ZZZZ[[\]]^^^``__^^^^\\\[[[[[^^_]]]bbbb_eebbbbe.,47:=?<95?BBBCDDDCDGFGGFFE????GNNIILLLIINNHHHHP2444IINNQQR RVWXYYWVQRRQQWWWWWWXYYYXWWYXXYWWWXXX_[_]b[b\%(!!#w'o-m1l4m6q;v=v?yBsEoGmKlNlPlTnXp^r`ucygzhzfzf}gjlmmljhea[ZYWWUPNMIGGFDCCB><;9865421/%%')(&%%&(*++*((*++*(&%%,,..12224422.iGsGsGuGtGtGtKtKwKwGwKyGzKz_0f._0_0_0f2c1c0c0c/_5f5_5_7_7_7`8c8d8f7f6f6f5f:_:_<_<_<_<f=_?_AfA_E_E_D_C`CaDaDbEcEdEeEfEfDeCdC_GfG_J_J_K _J_J`IbIcIdIfJfLdM`M_L_L_OfO_OfR_R_W _V`UcUdUfVfXdY`Y_X_[_[f[[gSgGcGcKcGdPdLeSePfWfNeXfGhGhGhGfGfGfJpJpJp HpGpGoGlIjJjKiSiZl[l[lZpXpVpQpQpQrQqVqXp[p[p[lWjSiLiGoGoGoJpHpHpGpGoHjSiXjXjYlZlZpZpYpWpGlGlIkJjKjYqYqYq[pKjKjHkGlGoGkHkHkIkIjJjJkKjKUTTT WTSTRTRTTTSTQSQTPSORMPLPLPOROSGVGXGXHXLXL[I[GZG\H[Y[[\[ZY[L[LXYX[Y[WYWHWGVGWGXHW[WZWZXZ[Z[Y[G[G[G[G\Z\[]ZZZZ[Z[YG^G`H_Y_[`[^Y^H^G^G^H_H_[_[`[^Z^Z`G^G_GbGbGdGdTgGgGhGcGcGbGbGcHcHcZc[b[dJcJcAZA[@[Z>Z=Z>G>KAK?[@ ZAYBVCRDOCLBOCQCSCUCWBYB[A[BXCWCUDTDGEGDGFGFGDHE[E[IXIZIZFGFGEGKGMGMILZLGKGKGKGMHLHK[K[M[KQLHLHMHMGLGLGMQLZLGSGSJSJSGRGPHOLOOQQSVTXSZR[QYOVNSOSPUQVPIO KPLPOSQTTUVUZT[RZTZSXTXTKDM;LCLCLDM:L:L:MG-G- G.I.G0G1H3K4O4S3T1T/R.R.Q.I.G-G,H-I-Z-[,[/[/Z.Q.H.H-H-[-G2G2 G3H4I4L4O4P4S2Q3P3O4N4I4I3J4G/G,G5G5G7G6G6W6Z7[8[9[:[:Y;W;G;G:G<G6 V6X7Y7Z8[8[8[7Z7Y6X6W7G7G7G8G>GAGBHBIBJBKALBMBPCSCUBWBY:3<3=4@4A4@4C4C4;3C4C4C5C4A4@4@4>4=4=4;4:4:3737343=3=126283848D8D;B;C:D737382=2?3>4>D>D@DABAC@D=3=3>2G4G3F2F2F2CBCDCDGBGCGCD3D3DCD8D8F6F9F2I2K2K4J;L3N2N2M2N2O2I2I4J;L:L8K3J3I4J4J4J9L;LDLD887962 2!?$2$2#2&2#2 3 4!D!D D!D"7!D$=$A$@$>#?#?#;#;#>$=#9"5!3!2*2*2,2*D-2/2.202+@-CCA2GE155>AA928+4+3+>,?,D-D-C-C-C-D,D,A,A-B-;,9,D/D0D1D0D023D5D4D4D47242627383C?@@B? >=97422323>? >==<;:7655433??C32 2 23C C234CDDB@A@CAB11154222CC338869222432 234ABCDDABC@DC33CC33811111111 " 0*>1L-E-E e e ep z19 : ;<?BEGIMM OPN!M#K&I(G(B'?$= ;;99@2 2 5 4 2258>ACDC A > = = = = = A CA@>8464333 3 2 2  3 4 A C D DB??DCBCCDDD            Pc4Ucecf?@ >  f@ PV?@ ?  fJ Y TO CONTINUE.";:A$(v 161(( 36099]( 12:2:"INSERT YOUR MASTER DISK INTO THE DRIVE"g( 2770}( :::(4)"PR#6"( ERROR TRAPPING' ' 36099-' E(222)F'& E1(218)(219)256W'0 E2553170': 12:1:"DO YOU REALLY WANT TO QUIT NOW (Y/N)? ";:A$'D A$"N"A$"Y"3130'N A$"N"220'X 3200'b "ERROR #"E" AT LINE "E1:(l 24:7::"PRESS ANY KEA(ZZ$)HA)ZZ$","2910)& RRLN2910K& RRRR1:ZZ$;:GOOD$GOOD$ZZ$U& 2910`& V1:s& RR1GOOD$""& RR1GOOD$(GOOD$,RR1)& RRRR1& V:HT(GOOD$)& 2910& VV:1:X1139:" ";:X1:VV:1:& & ' - STANDARD% X0:X$"!/-\!/-\"!% 49168,0,% V:HT?% XX1:X9X1O% (X$,X,1);n% KEY(49152):KEY1282800{% 49168,0%" A$(KEY128)%, %6 %@ %J V:HT:GOOD$""%T RR0%^ ZZ$%h (ZZ$)132980%r (ZZ$)8RR02990&| ((ZZ$)L2I1NP1:N$(1)N$(2):CASH(1)CASH(2):27605$ NP2C$ I32760n$ I2N$(2)N$(3):CASH(2)CASH(3):2760$ N$(1)N$(2):CASH(1)CASH(2):N$(2)N$(3):CASH(2)CASH(3)$ INP1:I:650$ 24:7::"PRESS ANY KEY TO CONTINUE.";::V24:HT35:2780:I1NP3#F INS(I)0CASH(I)CASH(I)BET(I,1):2670s#P 22:1:36105:22:1:N$(I)", YOUR INSURANCE BET PAYS OFF!"#Z CASH(I)CASH(I)INS(I)2:CASH(I)CASH(I)BET(I,1)#d 2770#n I#x # NP1Č36099:36099:3130# NP2I2NP1:2760,$ NPLABLE."N" 21:1:N$(I)", WANT INSURANCE (Y/N)? ";:A$:A$"N"A$"Y"2560_" A$"N"2600" 21:1:36102:"HOW MUCH? ";:V21:HT11:LN5:LA48:HA57:2870:INS(I)(GOOD$):INS(I)CASH(I)BET(I,1)2580" BET(I,1)BET(I,1)INS(I)"( I"2 #< 1:"WELL, "N$(I)", I GUESS YOU":K! "CAN AFFORD TO PAY ME BACK NOW...":j! X100:OWE(I)100XOWE(I)! OWE(I)OWE(I)X:CASH(I)CASH(I)X! "THANKS FOR THE THE $"X! ! I1NP! 20:1:36105" 20:1:"YOU HAVE $"CASH(I)BET(I,1)" AVAI(W,WC,S2))11A$(DF(HN(W,WC,S2))):24106 V F$"JKQ"X ` A$(F$,DF(HN(W,WC,S2))10,1)r j V1:3(WC1)8:A$; t V3:5(WC1)8:(S$,DS(HN(W,WC,S2)),1); ~ XX7:A$"10"XX6 V5:XX(WC1)8:A$; : OWE(I)0CASH(I)200ı!! 2:12500:I1:V:2(WC1)8:"ijjjjjk";@IV1V5_I:2(WC1)8:"m l";fI V6:2(WC1)8:"pooooon"; SUP2370 IV1V5$ I:3(WC1)8:"@@@@@";. I8 :B DF(HN(W,WC,S2))1A$"A":2410) L DF(HN6099CASH(I)100:OWE(I)10012:1:36102:"PLAYER #"I"'S NAME? ";:V12:HT19:LA32:HA90:LN10:V12:HT19:2870:N$(I)GOOD$:GOOD$""2220RRRR(N$(I))NPI:I1RR:X(1): 36099:12:1:" PRESS CONTROL-C AT ANY TIME TO QUIT.":I 4Y1Y12>Y2Y22'HX101970MR35841,4:35840:A$"BLACK JACK":\\I1(A$)rf12:15:(A$,I);ypIz24:8:"HOW MANY PLAYERS (1-3)? ";:V24:HT32:2780NP(A$):NP1NP3āI110:J(16336):I:2800:2180I1NP3X110:X214:Y111:Y228 -X1:Y1:OIY1Y2:" ";:X(16336):I\IX1X2yI:Y2:" ";:X(16336)IIY2Y11X2:I:" ";:X(16336)IIX2X11 I:Y1:" ";:X(16336)I X1X12*X2X221,S2)21Ĺ35841,6:XX13:35840:XX:CASH(W)CASH(W)BET(W,S2):" *BUSTED*":ST(W,S2)1:lHN(W,5,S2)0WDĢ20:1:"*FIVE CARD CHARLIE*":ST(W,S2)5:vT(W,2,S2)22T(W,2,S2)T(W,1,S2)ĺ" OR "T(W,2,S2): - OPENING SCREEN36099T(W,2,S2)T(W,2,S2)XXQ&ACE0DF(HN(W,I,S2))1T(W,2,S2)T(W,2,S2)10:ACE1X0Ij:20:1:36105DT(W,2,S2)21HN(W,3,S2)01880N20:1:35841,4:35840:"*BLACKJACK*":ST(W,S2)1:XWDROUND1ıYb20:1:"TOTAL: "T(W,1,S2);:T(W,I0NPHN(I,J,1)DP$DPDP1=DP53İ230:J2:INPDIKJZDP11660`{ - TOTAL FOR PLAYER WT(W,1,S2)0:T(W,2,S2)0ACE0I15HN(W,I,S2)0XXDF(HN(W,I,S2)):XX10XX10T(W,1,S2)T(W,1,S2)XX)İ1620:1600P,22:1:N$(W)", YOU LOSE $"BET(W,S2):CASH(W)CASH(W)BET(W,S2)Z62770e@S2:WnJ570TCASH(W)CASH(W)BET(W,S2):22:1:N$(W)", YOU WIN $"BET(W,S2):2770:^570h - DEAL INITIAL CARDSrDL1DL0:230|J12"HAND #"S2WC15;HN(W,WC,S2)0V11:SUP:2270CWCM1750tST(D,1)1ST(W,S2)5İ1620:1600ST(D,1)0ST(W,S2)1İ1620:1600T(W,1,S2)T(W,2,S2)T(W,2,S2)22T(W,1,S2)T(W,2,S2) "ST(D,1)0ST(W,S2)0T(W,1,S2)T(D,1,1DEALER BUSTED.";:1450PT(D,1,1)21Ģ1:17:"DEALER PAYS "T(D,1,1)1;:1450x1:17:"DEALER PAYS ON BLACKJACK";14501:17:"DEALER HAS BLACKJACK";W1NPS21SP(W)ST(W,S2)1160010:1:36105:10:1 SP(W)180(I11500:IN2ST(D,1)0T(D,1,1)16(T(D,2,1)16T(D,2,1)22)1380k<DPDP1:DP53DP1:DL1wFIHIH1PHN(D,IH,1)DP:WCIH:2270Z1310dT(D,1,1)T(D,2,1)T(D,2,1)22T(D,1,1)T(D,2,1)nST(D,1)21400,1410,1440x1:17:"DP53DP1:DL1 HN(W,2,1)DP6BET(W,2)BET(W,1)KSP(W)2:S2:850VS2:WgOK0:I1NP(ST(I,2)1SP(I)2)ST(I,1)1OK1IOK01630ROUND2:IH2 10:1:36105S21:WD:V2:WC1:SUP:22701750:IH513S2)(BET(W,S2)1.5)7jST(W,S2)1ST(W,S2)51060At2770K~1230DF(HN(W,1,1))DF(HN(W,2,1))Ģ23:1:"CAN'T SPLIT CARDS WITH DIFFERENT VALUES":930HN(W,1,2)HN(W,2,1):HN(W,2,1)0DPDP1:DP53DP1:DL1HN(W,2,2)DP:DPDP1:0ST(W,S2)1İ2770:12305DBL1İ2770:1230d$22:1:"(G)OOD (H)IT: ";:V22:HT15:2780.A$"G"A$"H"İ2800:10708A$"G"1230BDPDP1:DP53DP1:DL1LIHIH1VHN(W,IH,S2)DP:V11:WCIH:2270:1750`ST(W,S2)5BET(W,)IT (D)OUBLE (S)PLIT";:V22:HT30:2780WA$"G"A$"H"A$"D"A$"S"İ2800:940hA$"G"1230yA$"S"1160DBL0A$"D"BET(W,S2)BET(W,S2)2:DBL1DPDP1:DP53DP1:DL1HN(W,3,S2)DPIH3V11:WC3:227017570:2620:570HW1NP)RS21SP(W)B\10:1:36105:10:1WfN$(W)"'S TURN."xpSP(W)2Ģ10:15:"HAND #"S2zSUP:V11:WC1:2270WC2:22701750: TOTALST(W,S2)1İ2770:BET(W,S2)(BET(W,S2)1.5):1230'22:1:"(G)OOD (H$)'BET(I,1)CASH(I)BET(I,1)0730.I81640C36099` 1:1:"DEALER'S HAND:";S21:WD:V2:WC1:SDN:2270 WC2:SUP:2270*DF(HN(D,2,1))1İ25304ROUND1:1750 >ST(D,1)1V2:WC1:WD:2270:1:17:"DEALER WINS!";:27Y (Y/N)?";:A$:A$"N"A$"Y"6904A$"N"2690[CASH(I)100:OWE(I)OWE(I)100:66011:1:"OK "N$(I)", WHAT'S YER BET?":"(YOU HAVE $"CASH(I)" AND YOU OWE ME $"OWE(I)")"13:1:36102:">";:V13:HT3:LN5:LA48:HA57:2870:BET(I,1)(GOODI,1)0:ST(I,2)0; XINS(I)0:SP(I)1:BET(I,1)0:BET(I,2)0F bJ15b lHN(I,J,1)0:HN(I,J,2)0i vJp I I1NP:BET(I,1)0750 36099:2460 CASH(I)0720 12:1:N$(I)", YOU'RE BROKE!"#13:1:"DO YOU WANT TO BORROW MORE MONEX(I,2)1? X(I,1)X(I,1)X(I,2):X(I,1):7(I5):(S$,I,1);F IS YR(26)c ZR(26)26p X1DF(Y)} X2DS(Y) DF(Y)DF(Z) DS(Y)DS(Z) DF(Z)X1 DS(Z)X2 J &DP1 0 : - BEGIN PLAYING SEQUENCE DI0NP NST(16:"SHUFFLING";F r11: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: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)1230:570 - SHUFFLINGS 36099:1:1:"i";:39:"k";:24:1:"p";:39:"n";e 1:2:I238o "j";v I I223 "I:1:"m";:39:"l"; ,I 624:2:I238 @"o";:I JI1113 TI:10::J1029:" ";:J ^I h12:),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)c dS$"scdh"u nD0:UP1:DN0 xR(X)(((1)X)1) 1930: OPENING STUFF Z0 I14 J113 ZZ1 DF(Z)J DS(Z)I J I 9 BLACKJACK IS A PRODUCT OF GREEN VALLEY PUBLISHING^ A DIVISION OF SHARE DATA, INC. COPYRIGHT (C) 1986, ALL RIGHTS RESERVED((4)"BRUN HI-GEN"2(4)"BLOAD CARDFONT,A$9100"<(4)"BLOAD SG,A$8C00"F3050P16384U ZDF(52                     ^HH= ><> ,0 "*:< <"<&"&>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]     BG`qx84<@H@HHH@`IH$"I B@H p|")yI ""*>P y)yIBbDps""qDDqI$B@ "" !$$ $$$DTDD>p!""*>*>IH> y $yy $$$`'BDD" $" eGDT|Irc!HHD """> I8 $"b "BH"""r|$HHHODD@#D ( xAH$pI$""`"TD|>">PBBD$BpD$Rr@C"B " $DGH$"DBI2D""&@HIHHH@IH$"I OIH DL") I ""*"P ) IBD0"")e8?<>>i>?i?hhL&'!%&' W()* :LΏ"  "# $ $! JB ! J ɿLa $!! J L`"# `  `()L)0L((%)& )&  L ` `  ` &)%0`  &)%0) &)%0` ,L()* ! ,) Lߎ LĎLĎ%    `)+L-+         Š塐> $ 8娅  f  Ҍ  e  L $ 8娅   e Ҍ P`QT X` ,MɀIEA)* ) LP  W W` W  W`  W ) W`8  8``Jj垅埅`eeş䞐 8垅埅8` Y  -   Wm   :--иLL' LL LL LL``  ` WTR`L΋LҋLLLLL6 38Dcq} L L\ Li L}L LL  LL   L  LL  4LL NLL ., - LAST UPDATE 11/05/85 - VERSION 3.5 A))1940,950,950,960,9603D$"EXEC "NM$(M(A)):LD$"RUN "NM$(M(A)):fD$"BRUN "NM$(M(A)):p:100fTA1,C(1,1):TA2,C(1,2):IV(A)V(A1)1BpTA3,I:SE3HzAA1:TA3,(TA3)7:TA1,C(2,1):TA2,C(2,2):SE3:800X141āI110:X(16336)::800::54,240:55,253:56,27:57,253:100212:15:"LOADING..."FT(M(:IV(A)V(A1)!TA3,I:SE3' fAA1:TA3,(TA3)7:TA1,C(2,1):TA2,C(2,2):SE3:800 X(16384):X128800*49168,04X149850>AMMāI110:X(16336)::800H760RX136910\A1āI110:X(16336)::8003:TA29952:AN26112(MT,0:MT1,117<ST,0:ST1,118OA25425:I1XeC(I,1)(A):AA1{C(I,2)(A):AA1ITA5,0TA,1:TA1,C(2,1):TA2,C(2,2):TA3,V(1)7:TA4,1SESE3:A1:800TA1,C(1,1):TA2,C(1,2)M((NM$(I),1))192:M(M)I:M$(M)(NM$(I),(NM$(I))2)L&AM(M):AHHAS0I[:V6gDI1MM~NVV2:V:H:M$(I)XbB28672:I025:A:BI,A::BlD$"BLOAD STABLE"vD$"BLOAD GRAPHIX"X(25424)MT6:ST8:SE24576:MOSE"(C) 1986 BY GREEN VALLEY PUBLISHING":5:"A DIVISION OF SHAREDATA, INC.";u3:252,173258,173:255,173255,177260,173260,177:260,173263,176266,173:267,173267,177H40:MM0:I1NF((NM$(I),(NM$(I))1,1))1745607MMMM1: I1:T(I):T$(I) I# 1B 7,0259,0259,407,407,0d 11,2255,2255,3811,3811,2 5:1,45263,45263,1501,1501,45:25,4525,150 3,46261,46261,1493,1493,46:27,4527,150L21:"USE <- AND -> TO SELECT, RETURN TO RUN"::70 6(I)0NS0:NT0:3707 @NFNF1:FT(NF)(I2)R JNM$(NF)"":JI3I34w T(J)160(J1)160JI34:360 ^NM$(NF)NM$(NF)((J)) hJ rI |NT0TRKNT:SECNS:190 D$"BLOAD CARDFONT,A$9100" D$"BRUN HI-GEN" I1T IOB4,TRK:IOB5,SECD IOB9,LOC256:IOB8,LOC(IOB9)256_ IOB12,CMD:IOB3,VOLi RWTS~ 72,0:IOB3,255 (ERR)270 280 "DISK ERROR":D$"MAXFILES 3": NT(BUF1):NS(BUF2) "IBUF11BUF22135 ,(I)255340(T$(X)))2.5)' dD(X)(5(X1))H nM(X)((40(M$(X)))2.5)T xD$(4)b BUF20000 FINDIOB768:RWTSFINDIOB8:ERR78 ADRFINDIOBFINDIOB25:V:ADR,V: FINDIOB:IOB(78)(79)256 VOL0 TRK17:SEC15 CMD1:LOCBUF,,WHAT'S YER GAME BUB?q < 32,227,3,133,79,132,78,96,32,227,3,32,217,3,176,5,169,0,133,78,96,169,1,133,78,96 F 169,64,133,61,169,32,133,67,169,0,133,60,133,66,169,95,133,63,169,255,133,62,32,44,254,96 PA56:I17:V(I)A:AA16: ZT(X)((q 4 MENU IS A PRODUCT OF GREEN VALLEY PUBLISHINGX A DIVISION OF SHAREDATA, INC. COPYRIGHT (C) 1986, ALL RIGHTS RESERVED 8192970NM$(30),FT(30),M$(7),C(2,2),V(7),M(7),T$(4)(T:I1T:T$(I): 2 3,CHAMPIONSHIP GAMBLER   <1230:X(16384):X12860c F::11:12:"INSERT NEW DISK"::8:"AND PRESS CONTROL-RESET"k K75{ 1230:1220 CC1:C7C1 CL(C) 0,0270,0270,1900,1900,0: 1,1269,1269,1891,1891,1: 5 MENUQ IS A PRODUCT OF GREEN VALLEY PUBLISHINGY A DIVISION OF SHAREDATA, INC. COPYRIGHT (C) 1986, ALL RIGHTS RESERVED70 D$(4):D$"BLOAD QUIT TITLE,A$4000"CL(6)(I16:CL(I):2 1,2,3,5,6,3 749168,0  KEY(49152):KEY128390* 49168,06 1012,0] 49168,0:::12:15:"LOADING..."o D$"RUN MENU" ::"ERROR.":I12000:::20A$(4)"PRESS ANY KEY TO CONTINUE."* V85 "I14= ,X0G 6XX1a @V:20X:(A$(I),X);v J20:(A$(I),X); TX(A$(I))2310 ^I3V19:370 hVV2 rI |49168,0:X0:X$"!/-\!/-\" 19:33 XX1:X9X1 (X$,X,1);:I 21:3:I337:" ";:I< 1:1::I139:" ";:Ia I222:I:1:" ";:39:" ";:I 23:1:I139:" ";:I: 150 A$(1)"WE STRONGLY SUGGEST THAT YOU" A$(2)"MAKE A BACKUP COPY OF THIS" A$(3)"MASTER DISKETTE""   8192680!D$(4)7(D$"BLOAD MLMENU"Q2D$"BLOAD GVS,A$5FFF"W<bF35395sPI11000:IZ49168,0dXX1:Y(16384):Y127230nX500230x100:3:3::I337:" ";:I I421:I:3:" ";:37:" ";   z#     נҮ " Š͠Ԯà Šؠ @̠ ΠҠ" Ԡ Ǡ ˮ" Š Ӡ ˠӮĠҠӮŠϠ ԮƠՠ  ΠƠՠɭΠ ԠŠ"@*(U*(U*(U@@@@@@'J'J'J@*U*U*U*U*U*U*U*U*U@*U*U*U*U*U*U*U*U*UpqqqapqasAG@c`qqqacCcc|@*(U*(U*(U     Dppe{ D@*(U*(U*(U@*(U*(U*(U>P P )j@*(U*(U*(UT*T*T*(D |||( (()*(D@*U*U*U*U*U*U*U*U*U@*U*U*U*U*U*U*U*U*U@*(U*(U*(U@*(U*(U*(U|||D@@@"")j)j)jDH@*U*U*U*U*U*U*U*U*U@*U*U*U*U*U*U*U*U*Up`aq`pAG@C`qpAcACC8@*(U*(U*(U@@@<