8(@@START.BATBAT38 START c}E q0 \C)CC8`DCeECiD` RP h1$E ȍ @y b Y)hܭ]L]` q  DMD   u j)`0  ,p0i2 &28jJ1f02 9 g iJf0i1)xԍӭ232002XԦ`  *'  } *(L `(  L l pL[,L] C i0 } p  gފދLh ( LD 0  C  C  \i +$+0'}; $(%)  b L[C `D P^߰")(݃   $DD}G@НL]S")M T H0 G$Ș݃ b 8$}$%8(() T `$E0(0)8`$GE` P} Li 8GD }L[ PH >iJ ;  yyB } ' |L[ "E( % H$ H#`L]B  0 G LO<  ( d lH۪!A3 A }jA !B EIC Y$E0 F  < 7 JN8Ndâ!,P h0ʠJd,6 } ' r/ $ ɛ ` '  L[  l }-     }    L[L  }  '  L[   p  ` g  l }) g ' }L[) ̠,L]T-0 |LM N݃:ː6UV LM N L(TU N,)M}LL[IL3GDIɛ ɜ DI  , JȊGм  G I) GȦ=}*GG ȄI1200820I H1E 1h0hIGI2ȢI`FE 0ɛ rɛ$ l '}蚦TTUVD`M L$:;Pyȱ$` r  iȱ$/:ȱ$VWyA**⩀ / }`$***? mL]-+ȱ$ɛ m* ? g. $0f.?'@ wAsTt/` }0: gL  `$0`j`& CpCi s L0JCܢj? I#}𴽎F ގМގ& & 0 C4 08L`0   | 레L] EGȽGȽ}G | E` 8,  }EG)݀G)ȱGȱG`"!L] l!i}栠$8  (IƭIp  h,g+j? 8 ii(Lq)! }S S0$} ) E9`H)N,L]8GH Lq`gNgfj****8jHi h` } 2J  &e2i`"%?&;^$IM ! ! <u hh`$}Ev옝^! 1EHFHjm GHm H`u$Ev`L=? +`!,pFE ȄD8 }q D&E`I0` i`+DOS SYSMOC.I   J ٍ = ) F)}8`Ll T!U<; Ln <JM -18     HH =}D 2 :  /1[F:M #.!  `>C #   #`>   e}L'>/b;\I\o@ @LK~ L  % /e  LL H}H0S0N:;=91D,1ɛK$ɛ`:;ʾ  ,ɛ}`XYȄ #`DTDRLUFFFCICLRSJ==CIYEEONSMDLNOOUAOOOARPLNCL#####PANVBNFR*),-PQOR}a/%<}) j ө  RES L%-, # 3 0 %   4(H 4(` }( 3  #  ZOiۨ L4RE 3 =F S Z +8!} 0+  FF % 4 4& 4(X)Y    # 4 ʤ Ȅ L"}F F LH hL4`*J 0 B B 0a   8#}    Lkl  );<  : ` 0 } T T 7̀΀$}LIl <;`<L 3   #/ ! R( 7 7   7 89i L7 ,(&  %} L480  ` Ln    `   HJJJJ h) ii0 ``0  ,BLV&}[J  B Vso Fhh` GH ,H hɐɀɡ)HDCȱCɛeCD먥D h'}N MSп` ED` OIH`hhXhh  nL Free Fil-SBreakI/O-Error 170Disk f(}ullWrite protectedFile MismatchBad FilenameDOS II+/D - Ver. 6.4plus RUN:Br`čLLockedDe)}vice doneDIR fullNot foundLoad?Bad DOSHex?AbortFromToHD) S)Eh` ɛLn ;LD2:+DOS SY}=ON;RUN"D:PROGRAM.BAS"  L*ʅȥe˅ BECF-m gUr gUȦ 3Lؠ(e0q0ACCZZZPLAYPPDDDELANYEPBDBBXXPTTXPDTTACPLRACDLRACPACDACBEHANPDPBSDBSPDP,}DPNADNAPUSRPTHTHPFSPLITACEPAIRSPLIHHHHHHHHCCCSPLITPAINSPLICARDDINSBEBSN@#@A-}5@A>5@#| ~ @ @ @ @@@.}A@ @ @!@/}"#$%&@'@()*+,-./010}2345678@9@:;<=>@?@1}AB@CDEFGHI $$ $$ N2}EVADA21 $$ L.R.BROOKS 75206,2045 $$ RENO,NV JAN/87 $$3} +A @AAAv9@R,9@R,(;@,;@4},26-6-@Z BPd##*** SHUFFLE *****************eI (}AR@--@ @5}I(ӠȠՠƠƠ̠ɠΠǠf6-g#n-@@Ro"68,-p x-@@Ry))66}-P:+@S&,$H:@,,%@z68,-8,{68,-8@S&,|  (}6-@ A0##*** PREP7}ARE TO DEAL THE HANDS6-%@ (}AR@6-6- 6-6-6-6- 68}-6-6-!!*** *** *** *** *** *** ***#-@@#(HAND # "-@@"(BET = ?-@9}@? %====================================="-@@" Ҡ"-@@" Ҡ,:}##*** 2 CARDS TO PLAYER *******-6-%@6-8,.6-%@6-8,/ 6-%@6-@-@A;}"@ A6-B@ C"@6-%@J6-%@-@K"@ A<}6-L@ M"@6-%@T"@*"@6-U"@*"@6-V=}AW-@@X,-@@,( Y2 (-@@2($$$ BLACKJACK! $$$Z>}-@@u [ ##*** 2 CARDS TO DEALER *******6-%@6-8,6-%@6-8,6?}-@-@"@ A6-@ "@6-%@-%@@(@}?-@@? %====================================="@*"@6-"@*"@6-A} " A"*"A")"A##*** WHO WINS & HOW MUCH? ****) "*"6-%+@P$B},) A! "*"6-&+,! A"*"A "6-& A  "6-% A0 C}"-@2@&(Ƞ0 A !6-% !6-& A ##*** HAND IS OVER ************D}!6-@* A>)-@%@)( BANKROLL = H!@8ApI A`J)ARE})-@%@KF8(#էŠšݠ<F BRL>((<ҠԠԠF}>,>AR@M'"!AR$('N!! @)!AA`O!A`P BG}R A\1"((}'6-@1 A0] ( Af'-@@'( BANKROLL = H}g?-@@?(%ɠŠϠŠ׮hC-@@ ?($ŠӠΧI}Ci A""****************************L""*** BJ=YES *****************` "-@@2(*** BLJ}ACKJACK! ***T2A@@h-@@Pl 2j-@@K}k!"@!-@@l"@ Am@ t A""*** BLANK OUT PROMPTS ******L}AR@-@@"-@-- %  $""*** ACEM}-UP...INSURANCE? ****0-@@0(ſٯΠ_%2@P@@9-@@uN}= _2,AR-B-@@>(#ENTER 'Y' or 'N' - PRESS [RETURN]..BO}.AR@20-@@0( 3 A<4YA= 4N$> (P} Ax""*** INSURANCE=YES **********6-+'@, "6-& "6-%+@$,$""*** PLQ}AYER HITS ************6-%@6-%@-@8,"@ A6-8,@ 8,R} 8,"@ 6-%@6-%8,=!@!6-'-@2@3(ԡ= A` A ""*S}** PLAYER STANDS ********** AR@ !"* @!6-%@ -@2@(->  AT} A`""*** DOUBLE DOWN ************(-@!@(( -@!@(+6U}-$@ A6-%@6-8,-@@"@ (A)6-@ (V}) 6-%=!@!6-'-@2@3(ԡ= A`%"@*"@%6-@!-@2W}@(->  A`p""*** DEALER PLAYS ***********{6-%@-@|"@ A6-}X}@ ~"@6-%@ 6-%"*"A "*"$!!!@* @"AcY}=!@!6-'-@2@3(ԡ= Ac "Aa"Ab""*** ACE IN HAND **********Z}**O7"@)"@)"@ )"@)"@E6-%@O Ac8""*** HIT ********************B6-%[}@6-%8,L6-%@-@V8,"@(A6-W8,@ 8,X 8,"@ 6-\}%@` A`0""*** DEALER STANDS **********-@2@(->  " $ A@""*** PLA]}Y YOUR HAND *********J AT4HA ^4SA0h4DAPr4PB(#""*** PLAYE^}R PROMPTS *********2# A<#ARF#?-@@?(%Ƞ=HIT Ӡ=STAY Ġ=DBL Р=SPLITP#>-@_}@:(ENTER CHOICE, PRESS [RETURN]...>Z#C0H*0S*0D*0P/-@3@9( C Ad# `} An#AR@x#$PF!!*** PAIRS SPLIT ROUTINE ***QF ( BRF!!"@*"@Ba}SF 6-TF' 6-6-6-'6-UF BZF A[F-@@\F""(YOU CAN'T SPLIT THAT b}HAND!]F-@A ^F AF>>> SPLIT HAND '1' << G>>> SPLIT HAND '2' <<<G%-@!@%( G-@!i}@(+G! 6-6-@!6-"G6-%@6-%@'G6-%8,,G"@6-%@j}-G-@.G8,"@(A 6-/G8,@(8, 0G 8,"@ 6-%@1G6-%@k}@G?!@!6-&)-@2@5(ԡ? BJG!!*** PLAY 'H2' *************KG AUG4HBl}VG4SBWG4PBXG ( A BPhGG"@6-'-@@+(76-@m}=6-G BiGG"@6-'-@@+(76-@=6-G BrGAR@sGI;"*"@n})"@)"@ )"@)"@I6-%@tG-@2@(-> uG)#!@!*!@!*")6o}-vG#" A`# B|G>>> SPLIT HAND '3' <<<}G%-@!@%( ~G%-@!@%p}(++G! 6-6-@!6-G6-%@6-%@G6-%8,G"@6-%@Gq}-@G8,"@(A 6-G8,@(8, G 8,"@ 6-%@G6-%@G?r}!@!6-&)-@2@5(ԡ? BG!!*** PLAY 'H3' *************G AG4HBs}G4SBG4PBG ( A BPGG"@6-'-@@+(76-@=6-t}G BGAR@GI;"*"@)"@)"@ )"@)"@I6-%@G-@2@u}(-> G3-!@!*!@!*!@!*"36-G#" A`# BG>>> SPLIT HAND '4' <<<v}G%-@!@%( G+-@!@+(+++G! 6-6-@!6-G6-%@w}6-%@G6-%8,G"@6-%@G-@G8,"@(A 6-G8,@x}(8, G 8,"@ 6-%@G6-%@H?!@!6-&)-@2@5(ԡ? By}H!!*** PLAY 'H4' *************H AH4HBH4SBH4PBP H ( A z}BP:HAR@;HI;"*"@)"@)"@ )"@)"@I6-%@ =H3-!@!*!@!*!@!*!@!36->H A` BDH>>> SPLITTING ACES << bH-@@~} AcH-@@dH"@ (A)eH@ ()fH6-%%@gH-@2@(}-> lH A`vH AH% "6-%+@$,% AH  6-&H !6-%H  6-&H }!6-%H AH!!***************************H"BH"B I=== DLR BUST YES ===I} @"6-% I @"6-%*I!!* @"!6-%4I!!* @"!6-%>I ApI!!*}** DLR BUST NO ***********I @"*!6-%I @"*!6-%I @"*!6-%I @"*!}6-%I!* 6-&I!* 6-&I!* 6-&I!* 6-&I A}a!!*** INTRO *****************a (}a-a//('ΠŠ֠Ġa ( (}a++(#This game allows you to play casinoa**("BLACKJACK or '21' against standarda(NEVADA type rules.a,,($_______}_____________________________a)()(Casino's rules are as follows:b!(!( single 52 card deck b((( deck dealt }3/4 before shuffleb( bet limits are 1-200 b++(# double down on any first 2 cards*b$$( split pairs up to 4 ha}nds4b$$( 1 card only on split Aces>b%%( dealer must hit 16 or lessHb&&( dealer stands on 17 or moreRb((( }Insurance offered-pays 2 to 1\b/(/($____________________________________fb/+("TO CONTINUE, PRESS [RETURN]......./p}b (}zb2( (2($WHAT WILL BE YOUR STARTING BANKROLL?b((=====> b AHq!!*** DECK OF CARDS DATA ***}*Iq1,1,1,1,2,2,2,2,3,3,3,3Jq4,4,4,4,5,5,5,5,6,6,6,6Kq7,7,7,7,8,8,8,8,9,9,9,9Lq10,10,10,10,10,10,10,10Mq10},10,10,10,10,10,10,10 H:NE"@,(@ game over>-@@O(@hita-@@t(@start%%2@} &-@@&(@key F:B2y,@A#  -@@;2@$@}@@? a2@m6-@y6-@6-@6-@ 6-@U$ K6}-@6-@U'6-@ 36-@ ?6-@K6-@. 6-6-@'6-@ 36-@?6-}@K6-@W6-@c6-@o6-{6-@6-@p6-@8 86-F:AY,$AY}. A$8 A@B Y-@-A%%AU1 C-@@"Y(@ L 3-@})(@ 3 A`V SET MAP DATA IN STRING` 06.>:@c,!67@U,.067@,.j 06.>:},!67A$u,.067@,.t 06.>:,!67A$u,.067@,.~ ,-@@E(67@U$,.,}  C@U$@,.>:,&$ TITLE SCREEN +76-F:A`,%F:Aa,$AV%@Q0}k0@0@@ -AR@'-@-}(  i%@@)-@@G(@NUCLEAR MOUNTAINY-@8@i(@By /-@4@}/(@ Brad Timmins -@ 0  -@@P  /-}@+0@/  U-@A *6-F:AY,<AYR(@>:A%,U$D:}MOUNTANW.BASM38,20,38,19,38,18,38,17,38,16,38,15,38,14,38,13,38,12,38,12,37-@ $D:NUCPLANT.BASp@@A0@:70@@@70@:)-A0@ })@:'-%@ ',%@ @ :/@@ @:/-%@%@/,%@ @ }:/@@  :- !-@ -,@ :7/@@#,AY&@ 7/AY&@@}: ;! @!-@"@0;3,@%/@0',@E3/@P;,@%/@%;},@5%/@@%;,@&/A&;;,@%/@%-,AE&;/AP&;,@}/@ $;/-@0@8#,@%//@0.;K,@E/@P',@e3/@p?,}@K/@3;,@%/@%8;,A/A  B;F-@"@0#,@B/A}@#%P:'@,F L;X-@P@PX(@5AAA A A A A AAA AAA AAA AAAA AAAAAAAV;Y-@P}@QY(@6A A A A AA AA A A A A A A A A A`;Z-@P@RZ(@7AAA A } A A A A AAA A A A AAA A Aj;[-@P@S[(@8A A A A A A AA A A A A } A At;Z-@P@TZ(@7A A A A A A A A A A A A A~;Y-@P@UY(}@6AAA A A A AAA A A AAA A A A;X-@P@VX(@5 } AAA A;W-@P@WW(@4AAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAA;Q-@P}@XE(@" AAAAAAQ6-@;<-@e@<(@ AAAA A AA AA } AAA;<-@e@<(@A A AA A A A A A ;<-@e@<(@A AA A A A A A A A A };<-@e@<(@A A A A AA AA AA ;<-@e@<(@A AA A A A A A A;<}-@e@<(@A A A A A A A;<-@e@<(@ AAAA A AAA AA AAA ;*-@v}@p*(@ BBBBBB;+-@v@q+(@BBBBBBBB;+-@v@r+(@BBBBBBBB;*-}@v@s*(@ BBB BB;)-@v@t)(@ BBBB;)-@v@u)(@ BBBB;*-@}v@v*(@ BB B ;*-@v@w*(@ BB;;0@%;0@@}@&