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ؠbc5*H*COROSCORSNSNKCXRBTRNCLVMINCRLVLEVEEDCCSSNKSNKNVHGRPGRPOWSCBAS@x@,}@A$ A0@ A%@V @` AP @ @A-}@@5@@@@@@@A@ @ .}!"E#BC$A&šøǶ A  = +@AV+AAR=A/}@8M6-@ 6-@%Ab+,M2A@@2]6-6-A'6-0}36-@ ?6-A%E6-Q6-]6-AP</%2/ A#FF-@2(1}@ Ӻ 0 ̺ F(@ Ժ P&-&(@úc100-190 MAIN LOOPd6-@ 2}Ax-@6@}!@ AP6- A T:,"A'+"@3} +,@@E-@@"(@06-&@E"6@A "@* 4}AP !@ AP"@AEG6-P:@ $H:@,,?6-P:@"$H:@,,%@G15}++"Ab)!A3* A7Ap!!"@5)"ApA5!6-P:+@$,$H:@,,5"6}A@ @5, AMOVE ROBOT6-R:,"$"@A "@A@7}"@A`"@A6-%@ A ,"@6-@$8}6-&@ A$ ,"6-@ 6-&@ A$ ,9} "@#6-@6-%@ A$ ,"@6-6@"6-%@:} A'$+>>CHECK NEW ROBOT POS.,PLOT ROBOT & UP SCORE OR KILL ROBOT,%%2A@@.- 1;}-20!!"@5)"@AA P2="@6-%A' A1 A0=BLOCK<}HEAD4;"@6-%@' A1 A0;GREMLIN6]"A4)"A5'6-%A56-%AA6-=}K AU Ap]SNAKE@D"A66-%A)6-@3 A= A`DGRAPJ Ab,$]>}SNAKE SUBROUTINE^"@Au`56-P:@$H:@,,)6-@56-@b'"@6-@'6?}-@d"6-h 1jYA"@)"@)"@5)"Ab)"@A* @$O6-%@@}Y A`m"@$6-$r&"A4# A&$t&"@A5# A&$w"A}@A|1%@~"AbA55"@)"@)"@5)"@AA  B}A%6-%@A4% A%"@6-@% A$1&@"AbAC}55"@)"@)"@5)"@AA  A%6-&@A5% A%"D}6-% A$"@#A1%@"AbA55"@)"@E})"@5)"@AA   A'6-%@"@'A5"A4 AF}$"@A1&@"AbA0-"@)"@)"@5)"@A0$ G} A'6-&@"@'A5"A4 A$440-483 DINIT SUBROUTIH}NEA6-@Ap,+ @76-A A 6-@ A "A`-&@I} #6-- A 1&@!!!A3* A7A 6-&@ A-%@J}!@#6-- A 1%@!!!A3* A7A 6-%@C-"@5)"@AK})"Ab)"Ap96-C A Ap, A6-%A A ,'L}6-%A6-' Ap+%2A0@@+,(%2($!!GRM}EMLIN & BLOCKHEAD ROUTINE AE??"@5)"Ap)"Ab)"A4)"A5A5%2A@N}@/@5,W!6-P:+%@,$H:@,,C2W!A   AO}E??"@5)"Ap)"Ab)"A4)"A5A y%2A@@/@5,I-P}@M o2y A !?6-P:@ $H:@,,?6-P:@"$H:@,,%@Q}$ 1$%GRAP SUBROUTINE&V-@"(@.6-:"@ DV,@+R}!""@#A&!"- 0"@#)"@$31%@%@4"@5)"@A$5 S} A`8 ,:)6-%@6-%@) AD"@#)"$G1&@%@HT}"@5)"@A$I A`L ,N)6-%@6-&@) AX"@)"U}$[1&@&@\"@5)"@A$] A`` ,b)6-&@6-&@) AV}l"@)"@$o1%@&@p"@5)"@A$q A`t ,v)W}6-&@6-%@) AW ,"Ab-6-%A96-@C AM A`W A X}$56-P:@ $H:@,,)6-@"/6-56- 1"AbAp Ab,#A&];2@Y}P:AP$H:@,,%@%@@]2@ A6,$SCORE & LEVEZ}L ADVANCEf%2@e@@7-@@D(@f2"@[}) AX!@6-%@+6-&@96-%APK-@@X(@d"-@\}6'@>2@@RA@$`-d ;%27A]}; 6 6--@@((@6A $EARN EXTRA ROBOT6-%A%7%2@A^}C@@7@w)6-&@"@)6-@ Ab,@-@ _} =2@@$6-@@A,46-!-@1(@ `}4$ +A@8+,*I6-%@,!Ab-6-@ 96-@?,I A\-a}@R(@   \ AM%2AU@@7b}AAC!@M APQ-@P =2Q @ Ac}-@A@;2@@? a2s-@@(@ d} ##@@K:q-@@q(@NӺ ine}structions begin game a"!-@ W(@( advance level every 5000 ptsa AEf}K-@ K(@( no advance level every 5000 pts7-@"7(@ g} b-@#b(@ choose level >:@,>:@,>:@",>:@&, $_F:Ad, AUh}%)@9!@:0,* @:7,G6-&@H_6-@p&+$@,. F:B2y,@A8%"6i}-@% A@B%"@6-% A0L-F:B2y,"@#@- A!V-F:B2y,"@j}#@- @` A0""STEAL & MODIFY CHARACTER SET"AY";A$,E 6-C:,-6-P:'Ak}%@,$@E6-$AV&%@-A< 67%<%,.>:F:%BsD,,$ 06-@<6-@#l} -@ - 9"67%<%,.>:, +6-%@96-%@* 6-@`6-@m}4_ +@AV+AAR=A@8_(@ things in the dark >22(@ LAND THE ROBn}OT >:Ab, ONHa2(@ GREMLINS...>:@, 10 PTSa(@ BLOCKHEADS.>:@, 100 PTSRa2(o}@ SNAKES.....>:A4, 200 PTSa(@ PINK GRAPS.>:A6, 400 PTS\ee(@ AVOID THE NORFS >p}:@5,5 BOTH THE ROBOT AND THE NORF VANISH WHENTHEY TOUCH.fa(@a(@ TOUCHING AN ORANGE GRAP >:@Aq}, IS LIKE TOUCHING A NORF.pJ(@(@J(@# press to continuez F:B2yr},@A!pn-n(@ } THE ROBOT >:Ab, GRAP >:A6, AND SNAKE >:A4, s}CANnn(@LAND ON A DINIT >:Ap, BUT A GREMLIN >:@, BLOCKHEAD >:@, ORy,(@t}NORF >:@5, CANNOT.7(@y(@4 number of turns Ժ in which to score per level ̺{(@u} ------------((@;(@̺ ԺF(@{(@'1 60 YOU MUST 2 50 SCORE BEFORE=(@3v} 40 TURN Ժ=(@4 30 REACHS 0.)(@5 20)(@6 10J(@(@J(@# w} press to continue F:B2y,@A"f-f(@} GRAPS REMAIN PINK >:Ax}6,!UNTIL THE GRAP COUNTú REACHS 0. c(@c(@ YOU EARN 1 CHANCE AT A SNAKE >:A4, EVERY 10y}00 PTS, AND AT A <<(@GRAP >:A6, EVERY SNAKE >:A4, LA(@ YOU EARN 1 ROBOT >:Ab,z} EVERY 2500 PTS.L(@$ @@(@/ PRESS THE TRIGGER TO STOP OR CONTINUE A GAME.` A VVDATA FOR ROBOT,{}NORF,BLOCKHEAD,GREMLIN,SNAKE(R),SNAKE(L),GRAP(162),GRAP(41),DINIT 24,36,24,126,90,90,24,60 ##126,153,255,195,90,126,3|}6,102 !!126,90,126,255,24,60,36,102 24,36,24,60,126,60,66,195 0,0,12,190,245,67,0,0 0,0,48,121,175,194,0,0}} 66,126,90,60,231,129,195,0 66,126,90,60,231,129,195,0 65,93,42,28,42,73,20,54' DATA FOR GRAP MOVEMENT( ``~}600,620,580,600,620,600,620,580,560,580,600,620,560,620,600,580,600,620,620,600,620,600,99 T:,"A'} T:,"@A' T:,"A@ D3:DARK.BAS|@C/@(@U/@5@g/@5@y/@@/@@,@@K}/@@'/@@9/@@K/@@U @,@@1/@@C,@}@U/@@@A A&  @,@!@1/@'@C/@'}@U/@2@g/@2@ y/@'@ /@'@/@!@,@@'/@}@9/@@ K/@@ ]/@@o/@@/@@/@@U }@,@@1/@ @C,@@U/@ @[ #A6-%6-9-@}@%?"Q"%+@$,[ A! 6-%6-% &1 #A'-@%+@$,-"1 X\}AR@'@@\(TREASURE STORM ROOM:%+@$, LIVES:b@!(MONSTER: TREASURE:@(SC}ORE: DIFFICULTY:l"(EASYv"@(HARD''6-?:<<oB2H'B}2I9B2PKB2Q]B2RoB2SC$q-@@!62@}8,@@G-@8,K O q2@-@A $c+@%@}'-@=(@TREASUREO-@@c(@STORM!-@@2(@}D-@@_(@ q-@@(@O-@@ '(@}9-@@O(@ԡ6-6-@'6-@36-?6-@8K6-@@W6-}c6-o6-@{6-@-@@68,- K-@@d(-@8,G2}8,@@K W"!-@@3(@easy?6-K6-@W6-@W"@}!-@@3(@hard?6-@0K6-@PW6-@F:B2y,"@$"06-@}D-@Af2@A!@@j 2@ AF:B2y,"@}$"@06-D-@Af2@A!@@j 2@ A}"F:B2y,"@" AP"T:,"" AP I-@A?T:,")F:}B2y,"@I AP   ALb6-6-'6-9B2wE"@T68,-@}b6-%@PQ6-V0-@@&8,"0 A[ ` A6-%A%-@}@468,-8 F6-%@R6-@8^6-@@l6-&@z6-%@B2w@C (}}'-@3,?/@8C 6-A6-@36-@3&+&@,K6-@&+&@},U@g,@y/@@ ,@ /@ @ 6.M'6-?:<<}B2w AP}Y-A8AH32@@7 Y2W  *!6-&@)6-%@}M6-?:<@<:,7 4 6-C:, -@A$"067,.>:,4 (}-@A"$68,-( (-@A"$68,-( /6. 6.>:@,/6.>:@,}+-@@ "'67,.>:,+  3-@@d"&68,-/68,-3 3-@@ "&68},-/68,-3  3-@@!"&68,-/68,-3 %3-@@"&68,-/68,-3 (3}-@@("&68,-/68,-3 *$4I/6-P:+F:AE,%@,'@,$@=6-$AVIBBy}>AY@F'B2w@9A#@KA@d]AAoB2V@B2Y}H6-%@%#6-%@267,.>:8,,6 M6-%@%#6-%@267,.>:8,,6 N6-}6-R_A8%@,1A8%@,HB2W8%@,_B2X8%@,W AP=}+@%@'-@@=(@SCORE: !6-"6-0-@0(@} HIGH SCORE:3-@@3(@PRESS TRIGGER OR1-@@1(@START TO BEGINK-}@@((-@8,G28,@@K 5+F:B2y,"@)T:,"5 A }I-@A?F:B2y,"@)T:,"I A  A"P 6.6-@ }$ 6.6-@ $ 6.6-@ $ 6.6-@ $( f6-A6-@%}'6-@p36-@e?6-@pK6-@W6-A c6-f$- f6-Ar6-@0'6-A 36-@P}?6-@hK6-@'W6-A c6-@f$2 f6-@x6-@)'6-A 36-@p?6-A0K6-@}W6-c6-f$7 f6-@6-@%'6-A536-@p?6-ArK6-@uW6-c6-}f$< f6-A6-@7'6-A36-@r?6-@K6-@%W6-A c6-@f$Z +6-%@}6-%@+6-@\ @A&`_ ''6-?:<<