@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  })6^^<s3>00x|73>00x`c6<9c` 33c366fffg~33>00xgfffff<*}11111{!!\]_\ED!EOHI B V`}   +} TURBO-BASIC XL 1.5 (c) 1985 Frank Ostrowski!  ӥL]""$$ (p,}%J[WܠjeC /D%Zub2gTSt$8®݊Ò2% 5R-}Ţtd.’$3@X7t5w5$?## $#L+D:*.*S:C:P:$#.#) `:#(6ENeU\l؏&/ؕ؄sأ$.}LENeU\lأ$8آǔƐƉƐƇ4cY%٦rULۉCۄړp^gyض%iwܸJڅ*ܣ$ڭڞجئأأ/}$ ,(""(222000000..222222222222222222222222222222**22*22(222(2222222222 ,(""(0}0000000--**2*(22(2222222 V`hh@,lHH$HHHHHHӍl"1}H$HHl $`GHFH\` ` 4ӭ l 4Lq ӠԪӅԆL} Ӡ L( 2}) ` b% +L:#HH 0 HHLj%ӥHlL{ee 8eee3}eӦee褢%ƚƜ`88夅奅84}夕奕Ӡȱȱȱ㦢`L+`8` .E)))8@8e0 5}*څۅ܅݅ޅ߄ԠF0y"ޥy"ݥy"ܥy"ۥy"ڥy"و0ǠF0y"ݥy"ܥy"ۥy"ڥy"٥y"؈6}0ǠF0y"ܥy"ۥy"ڥy"٥y"إy"׈0ǠF0y"ۥy"ڥy"٥y"إy"ץy"ֈ07}ǠF0y"ڥy"٥y"إy"ץy"֥y"Ո0L-`8`E)))8i@0 *ڄԠ8}"("!""" "L**""""""&О"("!""9}" "L**""""""&О"("!""" "L**:}""""""&О"("!""" "L**"""";}""&О"("!""" "L**""""""&Оd<}"("!""" "L**""""""&ОL-6"e"=}"e""e""e""e""i""}"""}"""}"""}"""}"""}""ǭ"m"""m">}""m"""m"""m"""m"""}"""}"""}"""}"""}"""}""ǥՅօׅ؅مԅՅօ?}ׅ؅`` ` ` `80 `ԥՅ +.JJJJ)iFiFi1FicFi'ȐȦoFiU@}ȐFiiFi#iFiGi Fii@F iiFiiciՊFigi'iՊօשBL-`IA}))83Ԥԥդե֤֥פץؤإ٤L,K6"ХL--L--L-B}-E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L-8٥إץ֥հ'I8C}م٘؅ؘׅטօ֘ՅL-ؤm\G0Q@Ն֩م؅2եمֆשم"ե؅֥م׆ةեׅ֥D}؅ץم؆لԘ)q +` . |. &7i |. ,%!L?.`刱䈱㈱∱E}ሱ`ԅՅօׅ؅م`ԍՍ֍׍؍ٍ`ԍՍ֍׍؍ٍ`L.L. ԽսֽF}׽ؽ` L%/`ӽޕ &ԅ)@إ)JJJe)e - MG} 1. &Je0F 2 . /L(8`@ԠՈքׄ؄` . |. , . . |. , #/L(8`0 I@ԥ)H} 2f / . & r 1. #/ &?P , .Iiԩ +)ԅ ,ӽޕL(`8`$I})Ԧ61718191:1;1 (ť)8@0$Յ)e)e -F . / , . &1 1.J} #/ &F I`U9>`D'RFuCU?b9dYdg@W2@?tS)%)@0)%ԅԢ / . &G K} 1.Ӱ6 #/ &.ӽߕ ,ԅԥ B1 (`8``0?i? . . / , #/ &ԍՍL}֍׍؍ٍ . . ( / , O2 / ,0 .JeF 2`L+) .e٥eإeץe֥eM}Պi؊؅٥ׅإօץՅֆե1ԥ'JffffJffffJffffJffffم`ԩ&&&&*&&&&*&&&&*&N}&&&*`Pi`)JJJeԅԘ)Peԅ`եԆ8@EB)JJJeԅԥ)PeԅԘ)3eԅԽ3eՅ՘)JJJ}3O}}3`)JJJeԅԥ)PeԅԹ3eԅԹ3eՅդЧ` 0@P`'Nu pX@(#d,X L(  兢P}0襙 bɥ⥋㩀 50ɥ0DȱȱȄ   ik#ZMkVgğe拰ㅋQ}⅊0 eee拰 L f5дƨħ 4LY4 f5К,樥ŧH 4h h5L4樤ܱ.* O %30R}  5Ԅ +(fԤԈ`ř嚰Ԥ`ڥۥड़0-԰eڅڐۈ0eeL+58` S}O#`,#5  6`]5 6DE 68DHEIHI V0$ 6Sл BT} V,# 6` $#LllBHI V0HH V0Ԩh``{a$%Ȏ$$xө$Ѝ$ `U} `@X a Ӆʢ ʎD  _ɠ %` ɩHH `өL: g% DV}:AUTORUN.BASөjJHH`ՠԢӱԙ!ӹ!`֝DEIHB V0Y|ڝDa۝EW}օܥׅݥܝHݝI V0+Ӡڑڑ0`l `  䅠 _ɠԐX}e拢 &L &Lħ © ¥4 䥝ň剰' k ɀ8@4= LY ĩ`OJ ]J?LY} KԪȱLRHHצ R, hhLRHHHHHH /0ȑȑޠhhhhhZ}h`HHHHHHHHHH $H bɐhȥLHhhhhLň剰)[}i桰` )``L(兢ħ #$ x Hҩ h$襚ҥ ԝ`\} UV #T` ` `,H ¥ȍ` JKhLŢ  #)I L ¤Ȣ`L¦ ¦ Lĩ]} ½J*K+ $LąLĩ …L~ …`H Ġh é`,H hH Ġ  ĭ 8}}^} L n [h`LkL © 8倝偝 Ġ  ĥ󥃅  Lĩ LH_} éLH#h ĩ`H hKJ L+ , H hHHħ s hKhJ  Lĩ# qL `} ŘL ũ& QŽLM " ĽNL  ĥԝL՝M  ĥԝN%LV  ¤ħ` Ťħ` ƪ Ċ a}Ťħ` ¢`届 x݅ L ĽCӠɀ L]Ɉ L] Ln LŠIb}HEDBL$HH hh +L `ħ LĢl ¦`YDAER ԅՅ֦c}󅗄`L+ ¢p 0 Hp hɈL` ,#,$,!Lé ,H ĥDEԝH՝Ih Ld}©L $`L© , k ĩԅ  + ĥ 夨ħ`2ƪƪ ! A!Ƚa!Ƚ!Ƚ!Ƚ!Ƚ!e}``氤hhL1@$ƪư 0 0 n$P`L+FҐ֥װ綾إٰو LǠFff}ؐ ee&ee* &eeeԪeըee$.ƪ@!Ƚ`!Ƚ!Ƚ!Ƚ!Ƚ!`檦g}!!!!`!@!^!` Ȅ 8 n奱 ٥Lǥ֤צưĘ=ŗ78֪א& h} eԥe$`L: L ԅՅօׄ 1פ& ٤ţĢԅeՅe8包卅 ]&i} 8Ԩժ%אְ`ֆL夨ħ` FҰg8&0ei֥i0Tׅiإi0BJe؅eم0&fj}fff&0 &0 eeL+օפإ颎 %8包ԥ卅 L ɥ k}ȱъŠe拰8``,ªȱȱI ѝ3ȥLɥHHO]l}  ȥe暰Х ȥL+ʅȱhh`Lħ OԪȱԨ``L :0m} `L(奷 bɥ󥋅ȱȱȱȄ#鈄0B8eeŶn}ɛ,@LBˤ,ɛ`L?± ˤ樱f Oƨ x݅ + ~ [ˠ O樥0# +  L˥`o}LL :ɛ,$PH h $P润䧰 ʐLʦ䧐 +` ʐL3LBˢp}ԝD՝E֝HםI L 兢L]& 兢L% ,L6 ,L6 &L6 (L6妪@!I@!` ؐb`P KW ؐRB ؐq}=;G ؐ4@ ;+ƪƪ@!=A! (ƪƪ@!A! ƪ@! ,@@檦@!`!!!!!!`ƪ@! ǩjҤr} /L.٤ƪƪ@!@!, 舽`!`!!ـ!!٠!!!!!`@!jI*` . ֪ (s}ϰ`(8` ֤ׅԄ +҅L: Lyƪ8吪周Ly sũ + ŐL Ly sŠԄ h L}t} L}٩    e쪽pLyL( + ڥHJJJJ h) 0:i`  ک; n +ȱ)ȥ%u}ݓ Lh ԍՅԄׅ֩өL:ƪ?Ԣ )ɠ )  -L &Lڦ@!)@!` n)8@v} -L:` / n)8@I= n)8@/ѩ֔$ሄ ,L: + n 0L8 nw} 0L8 n H1L8 n /L8 n /L8 n D/L8 n 1L8LLإL( &)ԥ)8@JjH@x}MC)JJJe)e .F / .P . &F . #/ &L.L(HHHHHH /hhhhhh &y} Y/hԅL:,` L _ܘ%ᨥ%Ly _ܘᨥLy _ܘEᨥELyٚ<|'g 0L`z}!!!!i ` &LإL٥LyɥLzvmZ ƨ!0 4 䦵 ¥ԝD՝E֝Heם{}I Lܤį eį L` x݅ƨLLLܤ ©`#ۢ Lĩ_,ߤ|} ڄ . eڅԥeۅհ"8څ֥ۅא8ܥݰL۠Q%0ԅإՅ٥ަ0%Q% }}L-ե0LޥڤLyمօנ6&֐ eו`L( Hħ hբՅ `ޥԢ `ޥՅ֠~}&&֐eܥeېڈ 7 \ 7 j N \ N j$0!ee80å/8ܥ۰uڕ0}eUiV`TUV`8UV`eTi`8TȢ` $L„')Q ȱ8 e}新`8`L齀).Q Ӱȱ8e新 O :L䅫# *$Ŭ} Ʃ HL"䥫ș L` Ml/#樱0ZS'`ȱȱȱȱȱȱȄ`ȱօȘuԩׅu՘e֨҄`}I 屝Ҡȱȱȱȱȱ` n$҅J?eԨe` L 兙 兛 n %3 Ԥ` ҩ,} , , L檤 ٙ!ؙ!י!֙!ՙ`!ԙ@!ә !ҙ!` 䤪ƪ!ٹ!ع!׹!ֹ`!չ@!Թ !ӹ!`ƪ!!}!㹁!a!A!Lp ґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`ʭȅiȅ}iȅȩȩ Lfإ  4  \ +] ¥򄟄}   넨ɛ$0L祔 Z f0#ڠ쩀 ߩ6ei$0 녖چ + !5}ɛȑ @膔7 ɛ 襔!ɛL! _ɩ8$IȢ %e拢 } &!$P* &8孨客 "&$ 1L~ L~ &L _ɰe拢 &L~ +0 %30Ԅ }L 9:枢0 O L :H9Hhh tLHH`h}hLCL馩`ʆLC枢0ְşLC`A枢Ɣ!L!L}!T 򈩛LQLD ijq ߰,iŰD VD8` 覲`8` 넬 S( +饰}0 S0:$$ p8`$p (ȩ@҅ҥ򄬤 ߰ A L8򨢄 %Ӥ򈦬ʽ ʽ % }+HH 屝EҨhh$P0Ƭ 襯I `_A[`8`80 &Ոԅ}` 넬$ +  + h갳 h) + , 褔ԙ!` "8` 襔 ɛ "ȱ"}嫤!`! `) ɛ%)a{)_0:A[_դ`RE͕DATINPUԑCOLOҝLISԖENTEҚLEԛIƜFO}NEXԑGOTϑGO TϑGOSU½TRAАBYŐCONԞCO͟CLOSŐCLҐDEǞDI͐ENĐNEנOPEΖLOAĖSAVŢSTATUӣNOTPOINԡXIϤOΒPOKťPRINԐRAęREA}ĨRESTORŐRETURΩRUΐSTOАPOХGEԫPUԑGRAPHICӒPLOԒPOSITIOΐDOӒDRAWTϓSETCOLOҬLOCATŔSOUNĦLPRINԐCSAVŐCLOAĚERROR- }DPOKœMOVœ-MOVŪ*ƐREPEAԑUNTȊWHILŐWENĐELSŐENDIBPUBGEԒFILLTϐDϐLOOШEXIDIҖLOC˖UNLOC˖RENAMŖDELETőPAUSŖTI}ME$PROøEXEÐENDPROÑFCOLOҪ*̕-RENU͒DEDUMЪTRACTEXԖBLOAĖBRUθGO*’PAINԟCLӔDSOUNCIRCLū%PUԘ%GEԚG}OTGOSUTSTETHEΣ<<>ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOCLOSQSGABIN}PADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,%5}&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+7,/0}1 2!3"4Ɛ"-"."-؂ٿ֐ː}ĐאŐbj+9,+;,ʐͭ}ͭ@ABC\=>[<+:е<,&%rvnnxc<\}-78s_XV+@D&0d*"'2GJh N}Rl~&2 +饰(+VWZ ]a8`L`  ¤ħ.H h L5 䄡 } 䅭 bɠ04Ů .ŭ%) e拰 ĩ L+Ư0 Le}`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :62T F :}7 8 Lbԩ- L 8 8,I ɨ 8L.UH `ƨh $ %3   + \L L 8󅯩" } 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H YhZ }L<>EO ƹƹ0`H f5h`I&` =? FQA` L񄳱ȱI 䦐}Ħ ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`HHąŅ}H h hhhh ȱIELZ L`ȱI Hȱȱȱȱȱ }, h @ $L+L.*ȱȱȱȱȱjEE `EjI `e`ħ ¥}0 ` Lk 䦪`! 䧰L A@L `I&`L ©؅ L.}0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH h #}ԤLQ #LLei  `LԑȥՑȥ֑ȥבȥؑȥّ``䈥剰}#)iiLɠL4űI&`048ץğ=ȱȄ }`L  L0e拠0ȱȄL  䦪`!' >?L (<ж`!  $Л +`,LőŐ78Ƒ8 Ƒ`8` - PѠ}`,,L L PQ 8,L ȱI ѝߠȱ`ԩ},L E  $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL g }0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?LIN?}FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONLEOT}RUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM>DI}?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0` 0}` 0LoH - . /h &@Յ՘JJJJ X) 0:i`AVC2 sŠ 5  <)  <} L L + e +e`e`&&&&&&eee` &}&eee&*`` 兙 䦪!0 4 ۄܱ **m ݤܱEۅڦڱ= } ܥeƥiեLN@ ` **)]` 00`` ( ((((((((8}`W)ߥ & &e &߽řِ׼JJJJ&eXޥeYߥ䥛 9 FfЎᰈ } `  M 8*` 兙 󥐅i祣L{ &L}  0 & L ȑ & L; # )ȱ L })ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)ȱJJJ`}``=`]``` E߭H Ġ} hL±&Lv`[  ȱ R] } L L  䅠 bɰhhğȱȄ L l"0e拱LjLx`[  ȱ R] h]^~; P LDFILECCCCKEMAINMODECCOCOCOCOCOSCRSCRD1D1S1S1D2D2S2XDZLADA}BeuA`AaAbAc HJ J<= @AYAA A}AAAdAe@TA(@A)@TA`Aa !}"#A@ H&;A0,;@a,;@,:-A$AT>"DH  ee162,16},169,0,157,72,3,169,0,157,73,3,32,86,228,192,0,48,9,238,31,4,208,3,238,32,4,96,104,104,966-AY6-A'6-A`}36-A ?6-AaK6-AW6-Abc6-Ao6-Ac{6-A6-Ad6-AeFF6.:@4,o67AY<AY},.>:@4,67@<@,.>:Ab,<6-F:A,&A&@20+@$<6-?:C:,,"a6-F:A`,}!6-F:Aa,06-F:@,?6-F:@,KAU+@$a6-?:C:,,&K6-F:A`,!6-F:Aa,06-F:@},?6-F:@,EK(r(@@D:B.PIC46-?:C:,,?@N6-F:AY,`AY}iF:,rF:,,B F:,F:,F:,*A`6AaBAYJ'@@d'B7t@dO}##@@K:P)@^"@eAb"@fAd"@gA f}"@hA0@w A62AdAU+2%D:VIEWDOCS.BAS2AdAU+}2%D:MINEHUNT.TUR2AdAU+2%D:SECRTARY.TUR0AdAU+0% D:AROGUE.BAS} D:AUTORUN.BAST.TUR2AdAU+2%D:SECRTARY.TUR0AdAU+0% D:AROGUE.BAS(|\FUTUTUPPPPPTUT@PTT@TTPTTTTU@TUT@TUPTT }PPPTUT@TTT@TTPTTT@UTT@TTUTPTTT@TTUT@UTPUTUTUTUTUTUTT }P@PTPUPUPPUTUTP~TPTU@UTP@PPUTUTTPTPTTU@TTPUTT@TUT@UTUT@TT }TTT@TTPTTUTTT@PPTTUTPUTUTUTUT@@UTTP@UPUTPUTPPPU@UTUPT }PTPTTPPTUTUPTPTTTTPTTUTPUTUTUTUPPUPUTUP**( (*** ( }( ((( (( (((* (( ((  (((** }( (**P*( (((( (  ((((    }( ( ((  ( ( ((((  *( (((   }( ((*( J** **** (  ( ( ( * }* (* (  (  (  (  *  } ( * * ( D****( (((( ((* }(( ((((  (((*((***r? }?<?< }?TPUPUTPUTPPPUTPTU@UTT }@TTTTTT@TTUTPUTUP@UTTUTPTT@TTUTTT@TTTTT@TTTTTT@T }TTTT@TUTTTUT@TUTUTUTUT@UTTUTTPT@TPTUPPP@UTTUP~PUTPUPPTPUTUP }PUPPTUPT@TTPTTTTTTTTT@TUPPTPUTUPTUPTTTT@TTPTTTTTUT }UT@UTPTTTTTTUPT@TTPUTUTUTUTUTUT T@TTPPUPUTTPPTTTTUT qJBOARDSCHBASRAMCHARDIBAIMINEBOARDMAISQUARTITLSCREEJOYSTICTRIFINISTESPROJOYSTOCSPRITS}TARAX_UPDATOY_UPDATFLAY1OZWHOOPDISPLADUSNUMBECHRFLAS@D}?D@ 9 @ -M >ACX;5=}HBhA B!"#@$%JK}&'(K@)*+,@-./01T* MINE HUNTE}R ** By Bryan Zillwood *T \dTeԠӠfTgOi-@&n-@!}s68<,-@2x } -@A%%6-P:H:,$@%,%@%%6-P:H:,$@ ,%}@8<,"@B6-&@A68<,-@B -@@%-@@ }%68<,-%68<,-@A  QTנΠTOPAVB2H}AY@bB2aA@.-@.(@ -@@%}-@@ !-%@!(@)  -@@-@ @P }  6-@6-@-%@!!(@>:8<,%@,-@@"P"""(@} MINES LEFT: 'Q,T-ˠŠ.T/O16-R:,66-(T:,;"@*!@}@ 6-6-&@APEAJ"@* @%N 6-6-%@OPTAY"@*!@}^ 6-6-&@cPhAm"@* @ r 6-6-%@wP|AF:Ad,AU}6-@P " PAdAUAQTԠӠſTO6-8<,}"@2-6@@-6@@6-%+8%<%,"@B,! & +A0"@B*}8<,@5"68<,-@"6-%@6P7&-@@"&(@ :A<68<,-?68<,-}D-%@I (@>:%+@$,,J6-NQXTY٠ԠZT[Ob +@(l}6-U:A`,v%@@p{%@@%@(@AVQ T!Ҡ}Π"T#O%6.=:&,*-@B:,4!!67<,.>:A:7<,,%@Y,> HQTŠؠ}ҠTO-%@(@>:8<,,-%@!!(@>:8<,%@, M@}QTŠ٠ҠTO-%@ (@>:8<,,$-%@%!!(@>:8}<,%@,) M@.QTԠŠT6-@OP11+"@B*@,)+@B}*"@,PA-%@(@>:%@,QlTmŠΠnToOq +@}r9A@U'A A9AA2v (@ MINE HUNTER{.(@.(@ by }bryan zillwood:(@(@:(@ŠԠQTΠӠTO++}9@&<@!,9@%<@ ,##9@%<@ ,;@,6-AQ4T5ŠӠ}6T7O>6-F:A,&@CA&@H6-$AVM9BsDA$R-%@%@}W " \ a0,40,8,8,8,8,42,0b0,42,2,42,32,32,42,0c0,42,2,10,2,2,42,0d0,34,34,42,2,2,2,0e}0,42,32,42,2,2,42,0f0,42,32,42,34,34,42,0g0,42,2,2,2,2,2,0h0,42,34,42,34,34,42,0i0,48,48,48,48,48,63,0j}0,17,17,4,4,17,17,0k%%255,255,255,255,255,255,255,255l-%@%@m%@Ap&F:,p +}+-%@r%@%@%@ "  %%255,207,207,207,207,207,192,25585,68,68,81,81,68,68,85}%%170,128,138,128,136,136,128,170-%A%A "  0,60,102,102,102,102,60,00,24},56,24,24,24,126,00,60,102,12,24,48,126,00,126,12,24,12,102,60,00,12,28,60,108,126,12,00,126,96,124,6},102,60,00,60,96,124,102,102,60,00,126,6,12,24,48,48,00,60,102,60,102,102,60,00,60,102,62,6,12,56,0}QTĠŠTO +@-A(?@-A`@262}@@  %%2,-@@,(@ WELL DONEO-@}@4(@THE MINE FIELD ISO(@ CLEAREDP-@@2(@PRESS START FORP(@} ANOTHER GAME6->F:B2y,@6-%@"@6-A0}@ M@?-6-6-A-AdAU/%2/+@} A%5QTӠT O -@6? 2@u   +}@ ""(@ WHOOPS YOU HIT ##(@ A MINE ! -@@$ ? (@PRESS START  }FOR?(@ ANOTHER GAME) <* 6-%@+ "@, 6-- A. 0@/ M@ }3 =F:B2y,"@4 -6-6-A-AdAU5 @+@6 A%57 A Q  }T ΠР T ] P P P P P P "@ 6- P " P } A A A%ED:MINEHUNT.TUR@2 P P P "@ 6- P " P4SiSCRN_CDIM_SEDENSMENFILESECTRDKYNFFZXKEYDDNUSCRPRNLOUNLORENADELEFORMFINCONVRFILDSE}FILE1S306TL9;<> }@BkEbFWGIJQ O0P} !"# ""DISK SECRETARY BY RON FETZERTP(P2P<PF} @`TO `6-8-@@8(WHAT SCREEN COLOR DO YOU WANT?#-@@#( 1: NOR}MAL"-@@"(2: AMBER"-@@"(3: GREEN&!-@@!(4: GREY0B A`-@}@8SELECT A NUMBER >>B B5T  @)!@)P:,#(J("ERROR: SELECT A NUMBER FROM 1 TO 4T A}`:''AAAAD1AAH'A @1 A N1A@X'A }1 A X1AA4'A 1 A b1A@'A 1 A Q}TO;@%,;@%,;@,;@%,;@%,;@,;@%,;@%,;@P,;@,;}@%,;@0,QT"O `6-"6-&-@@&( DISK DENSITY&-@@&}( ---- -------+-@@+(1. SINGLE DENSITY)-@@)(2. 1050 DENSITY+-@@+(}3: DOUBLE DENSITYB A`-@@8SELECT A NUMBER >>B B"T  @)!@)P:,#(J("ER}ROR: SELECT A NUMBER FROM 1 TO 3T A`'""*** DIRVE INFORAMTION ***,K` A"-@@ADRIVE NUMB}ER 1,2 OR 8 >>K B6-#"@)"@)"@- A@@J@(,(! ERROR: USE A NUMBER 1, 2 OR 86M}A @ ATAQTO `6-6. -@@(MENU!-@@}(----!((1. DISK INFORMATION(2. PRINT TO SCREEN( 3. PRINTER(4. LOCK A FILE (5. U}NLOCK A FILE(6. RENAME A FILE (7. DELETE A FILE*(8. FORMAT A DISK4(9. END>A A!-@ }@7SELECT A NUMBER>>A BCQ  @)!@ )P:,#(G(ERROR: USE A NUMBER FROM 1 TO 9Q A! }Hb Q T O `AR@ 6"@6@@D1:*.* 6!}"@6@@D2:*.* 6"@6@@D8:*.* ##( FIL"}ES ON DISK  %"( ----- -- ---- -%( 8@8@:7@<@,,!@GA%p E(@#}( E@:7@<@,, @GA%P P ''( PRESS Š TO CONTINUE 6.Y( ,4>:@2,$} A&@) A%,A2 AR Q T O `6. P 0(0#SHALL I PRINT THIS DIRECTORY(Y/%}N)>> $$7@<@,4NA4 ( TITLE OF THE DISK>> 3 3 6"@6&}@@D1:*.* 6"@6@@D2:*.* 6"@6@@'}D8:*.* 8@8@:7@<@,,!@GA1 @ 3   ++@:7@(}<@,, @GA0p 6363 YOU HAVE  K. BYTES OF SPACE LEFT! 3 3 3& # 6. (#GO AGAIN(Y/N))}>>0 X7@<@,4Y(X2DID YOU INSERT A NEW DISK IN THE DISK DRIVE(Y/N)>>: 67@<@,4Y& A*}0)@3 A4p6A  Q T O `6. P "("( LOCK A FILE ( ---- - --+}-- P 3(@5@3@ (GO AGAIN(Y/N)>> 67@<@,4Y& A5@,})@3 A86APQTO `6.P!(!( UNLOCK A FILE( ------ - -----}P3(@6@3@(GO AGAIN(Y/N)>>67@<@,4Y& A@@)@.}3 A@6APQTO `6.6.P"("( RENAME A FILE( ------ - ---/}-"("ENTER OLD FILE NAME>>ENTER NEW FILE NAME>>W"@6.D1:-67B:,%@,.C67B:,%@0},.,W67B:,%@,.W"@6.D2:-67B:,%@,.C67B:,%@,.,W67B:,%@,.W"@1}6.D8:-67B:,%@,.C67B:,%@,.,W67B:,%@,.3(@2@3@2}(GO AGAIN(Y/N)>>67@<@,4Y& AP@)@3 AQ06A PhQrT|O `6.3}P"("( DELETE A FILE( ------ - ----P3(@3@3@4}(GO AGAIN(Y/N)>>67@<@,4Y& AU@)@3 AU6AP\QfTp)O `6-"65}-)6.z'-@@'( FORMAT A DISK'-@@ '( ------ - ----D A`0-@@6}:WHICH DRIVE 1 OR 2>>D BM @)!@(C("ERROR: SELECT A NUMBER FROM 1 TO 2M A`00`-@7}@0(DENSITY INFORMATION--@@ -(------- -----------+-@@+(1. SINGLE DENSITY8})-@@)(2. 1050 DENSITYAR@A-@@ A`7SELECT A NUMBER>>A B9}T  @)!@)P:,#(J("ERROR: SELECT A NUMBER FROM 1 TO 2T A`AR@M"@*":}@BAS@D1:M@M"@*"@BAT@D1:;}M@M"@*"@BAS@D2:M@M"@*"@BAT<}@D2:M@AR$($ GO AGAIN(Y/N)>>Y7@<@,4Y=}(Y3 DID YOU INSERT A NEW DISK IN THE DISK DRIVE(Y/N)>>67@<@,4Y& A`P)@3 Ad6APQZ>}Td&O6.6-&6-n#6.7@<@,#6-A:,xS"@)"@26-P:$A%,'A?}S6-P:$@%?P,'@I"@(6-P:$AV,'AI6-P:$@%?P,'@0(0( YOU HAVE @} K. BYTES OF SPACE LEFTDQNTXO6.6.b( FILE NAME>>v3"@6.D1:-67B:,%A}@,.36.3"@6.D2:-67B:,%@,.36.3"@6.D8:-67B:,%@,.36.8QB}BTLO `AR@V2-@@((END OF PROGRAM2M@`" +AR",Q6C}TD:SECRTARY.TUR@V2-@@((END OF PROGRAM2M@`" +AR",Q6-.v==CONWPARPTMZZLDNCIOXYIOCSB@E} ATARI ROGUEBY ROBERF}T JUNG (c) 1987, ANTIC PUBLISHING##DO NOT RENUMBER THIS PROGRAM! ~~;@2,;A,;A,;@p,;G}A,;A,;@@,9@0,;@ ,;@,;@,e@ @+@K@H}@K:Y6.hhhLVe6-A dN AF:A,&@*+<@@dNB7t@dI}n8@8@@ D:AROGUE.FNTp~6-AH#%@B%@F:A,%@J}V%@j%@ @~%@@rc6-?:C:,<@,"@?AVF:A,%@QK}A @cAnn6.ddagger handaxe mace sword mace +1 sword +1 scythe +1 sai +2 mL}ace +2 sword +2 nn6.dleather padded ring mail scale mailchain mailbronze banded splint field plate M}mailPP6.Fgreen black purple red crystal blue mauve "(}("(V(N} Your name%B:, @ V67B:,%@<@ ,. &&4 A",( O}Load a game?  "4Y, AP-@@16-P:H:,$@,K6-P:H:,$@,v6.7$@P}%@<$@%@,6.7$@%@<$@%@,].67$@%@<$@%@,.Y67$Q}@%@<$@%@,.] 68@,-@-68@,-@B68@,-@W68@,-@R}l68@,-@68@,-68@,-@68@,-@l68@,-@-68@,-S}@`B68@,-@`W68@,-@l68@,-o*6. L6-P:H:T},$@2,%@O(R(o(Descending the stairs... 6.6. Ab$:%6-P:H:,$@2,%@:7<U},4A`&f6-P:H:,$@,)6-@56-@A"N6-6@Z6-@f6-@(3"@V}6-@'6-@36-@*4"@6-6@(6-@46-@,ii++'@"P:'@,,*W}"@,)++"@)"@ )"@)"@%,*"6@,Ab-::+ @ *"6@,)+!@$*"@,X}Ab.7%<%,4A0S67<,.!67%<%,.767<,.>:@:7,,%,S67%<%,.>:@:7%,,%,2 6-Y}% Ab8220 A`:R-@@206-+H:, ?@,N67<,.>:@:Z}7,,%A($,R <?%6-P:H:,$@2,%@?@:7,, A(A>\68@%,-46-P:H:,$@2[},%@C68@,-\O:&, @%A@4*6. 4,,,ЛB{-@@\}!#A5-@@9"NH:,!?`p6-P:H:,$@2,%@{67<,.C   DuH:]},!?EB-@P:H:,$@,%@d6-P:H:,$@2,%@q67<,.u F`--@P:H:^},$@,%@O6-P:H:,$@2,%@\67<,.` JB6-8@%,67<,.) A86-8@_},B AL:6-8@,:8@,"@$*7<,4SAMUA@d'A4)@`}=6.>:,U68@,-8@,NCC4)4-)4_)4)4=)4|)4)4+)4\AP4)4^)4*a}ARCC4I)4R)4D)4C)4Q)4S)4Q)4L)4EAT AVMM+4E*8@,",)+4Db}*78@,<8@,,0S,A[ 0R AB A`0IA0bWW(Health [8@,]:8@c}, Food:8@, Gold:8@,dN6-8@,N(Armr:7+&@,$@%@<$@, Wd}p:e,6-8@,8@,,( f..(7+&@,$@%@<$@,hiL(Heal:8@, Tee}leport:8@, Fireball:8@,U(_ AEi Aj0RA@lt AA-68@,-8@f},%@M68@,-8@,&@W A`tH:, ?APn AE At0CA`g}vq>8@,"*8@,"*8@,"V(You have no spells!](g AEq Ax Apq}b%DOS SYSb)AUTORUN SYSbAUTORUN BASbB PICb/MINEHUNTTURb7 SECRTARYTURb}DAROGUE BASb AROGUE FNTbVIEWDOCSBASbQFLYER DOCb<HARDWAREDOCb OSOFT2 DOCb\MEMORIESDOCb qWHY DOCb {SOFT3 DOCbMINE DOCb AROGUE DOCbUPDATE DOCb SUBINFO DOCb SEEYA DOCBNOTICE DOC(zC 4F((The fireball dissipates./(9 AEC A{! 4T6-@! Ap|! 4H6r}-@! Ar0EAp88@,".(You have no food.8 Ah(6.>HIC!< >Munch< Mcs}Ration? H68@,-8@,&@h68@,-8@,%A68@,-8@,%@P%6-P:H:,$t}@,%@P(7+&@,$@%@<$@,( ( A` AE( A0DAS6u}-8@,7<,0S8(There are no stairs.?(I AES A#68@,-8@,%@C68@,-v}8@,%@k68@,-@%@$8@,u A` AP4SA0 4L AP(w}& AE0 A1(Quit! Are you sure? ! 14YA ( AE AR A 6-x}&6-6@:4)4*)4^F6-@R6-@/4)4=)4|#6-@/6-@04)4+)4y}\#6-@06-6@""8@ %,"AC#68@,-8@,&@46-8@,%C68@z},-;@:7,,!A' A0;67<,.>:@:7,,&A(,AR A@]8@,!@*P:8@{},'@,"8@,'@}68@,-8@,%@ A`O6-8@,OH:, ?)+8@,"|}@$*7<,4S,AP06.7<,4N)4S& A`0 AC AA A&6-8@,367<,.N}}C0FAPL"(You find a ration of food.B68@,-8@,%@L A 0GA`E6-P:H:~},$+8@,%@,,$@%@$8@,h( You find  pieces of gold.68@,-8@,% A }0PAL%6-P:H:,$@,%@L"@*8@,"Aa:06.7+&@,$@}%@<$@,: AP; ( You find a  potion.7(Do you drink it? ;  0Y AU A }@Ap77Choice of a New Generation.,Real Thing.,UnPotion._ #Ag/6-P:H:,$@,%@=-}@A"E U( It's The _ A ]"@ AED68@,-P:H:,$@2,%@S6-8@,}] An"@,(You feel much healthier.D68@,-8@,d68@,-8@,%@En A v}"@,(*PAIN* wracks your body!b68@,-8@,&P:H:,$@,&@l A`v A "@}AP["@1(Your endurance has increased!Q68@,-8@,%@[ A <%6-P:H:,$@},%@<!8@,Ax;(Your food rots!168@,-8@,&; A 0WAx%6-P:}8@,'@,%@A6-P:H:,$@,%n6.7+&@,$@%@<$@,x APl68@%},-!6-B:,>7&@<&@,4 W6.7@<&@,l68@%,-@w( You find a $6-8@},]( You have a 7+&@,$@%@<$@,s(Do you take it? w  0Y AU A s6}8@,-'68@,-*(JH:,!?*8@%,^(It's Ī!s68@,-@ A  }0AA %6-P:8@,'@,%@A6-P:H:,$@,%n6.7+&@,$@%@<$@,}x AP6-s&( You find a  suit of armor56-8@,s(You are wearing 7+&@,$@%@}<$@,(Do you take it?   0Y AU A )68@,-(It fits.) A l%6-P:H:},$@,%@6( You find a B"@L(heall68@,-8@,%@="@(teleport}=68@,-8@,%@="@(fireball=68@,-8@,%@( spell.(! AE }A`! AF AE A (?HN(6-P:H:,$@,%8@,2#A`@-@J"N }J68@(,-!68@),-96-+&@,$@^68@0,-%P:H:,$@,s8@0, @68@0},-@LI(>:@:,%A(,$ A'(*(?(A  attacks!I ApPaasnake,6,2,1,weasel,6,2,1,bat,8,1,1,}giant worm,2,2,2,Stirge,7,3,2,Blob,1,3,2,la-mi'raj,6,3,3Q""grue,4,3,3,yellow mold,2,4,4Rjjgoblin,4,5,3,brass falcon,7,5},4,Wox,4,5,4,Quaggoth,5,5,4,firebat,7,7,5,Basilisk,6,5,6,Vulching,3,6,5S spectre,8,5,6,Norker,4,6,6Tllrock lizard,3,7,}7,Gargoyle,5,8,7,troll,3,6,7,Manticore,8,6,7,Zygom,3,7,8,cockatrice,8,6,8,Barood,5,7,8U55Dire Wrath,4,8,9,Fire Dragon,7,8,}9,Todram,8,8,9Z,,(H:8@, ttk/thdw/ast >\YA@d'A4)@=6.>:,Y0}A*0W*0CAr]LL4C*8@,"*8@,"*8@,"Ar^(0CA`} ( Apn!(!0WApe%6-P:H:,$@,%@<8@%,"[(The  }blocks your way!e A"rE6.6.7<,*( You escaped!1(; AEE Ax! 4T6-@! Ap}zf 4H$(Your health returns!<68@,-8@,\68@,-8@,%@Ef A"|@ 4F668@%},-P:H:,$@,%@@ A}0AA~6-8@,'8@,268@%,-IH:}, &?`6-8@,$@68@%,-P:H:,$,%@CH:,!?C68@%,-@%P:H:},$@,N9P:H:,$@,%@ 8@(,)8@,N68@%,-C&68@0,-8@0,&8@%},C8@0,!A ++ A%@$P:H:,$@,9 (The  curses you and/( expires!9} AH$(The  dies in a cloud of>( greasy black smoke!H A=,($>Splat!< Now you smell as bad as the}=(  did!;(--*--*--)@' A1 AE; A06- A`|68@%,-}@H:, ?%%8@0,$?W6-8@),$@|68@%,-P:H:,$,%@[168@%,-8@%},&P:8@,$@ ,F8@%, @[68@%,-V+8@,!@*H:,!?V68@%,-P:H}:,$@ ,%@Y&68@,-8@,&8@%,26-@< A`Y8@,!Ap868@},-.( ...and you die!8 AHHnick,hit,strike,pound,whack,slam,crack,CLOBBER,PULVERIZE,DEVASTATE3}8@%,"*0(The  misses.3$+8@%,"(( You missed.+$E%6-P:8@%,'@ ,%@}/#AP=-@A"E $!(The  s you!$$(You  the !$LL(eal:8@,} elep:8@, ireb:8@, >YA@d'A4)@=6.>:,Y0H*0T*}0FAr>'6-@%+4T,%@$+4F,>8, @Ar68,-8,&@($L8@, @}-68@,-L(You have starved to death.338@,@$)8@, @A> A)(}You've found the Jewel!>68@,-A-@-0@@&C0@@&i2A}&$@@2@A&$@@-@@  3-@A7 Y2}{2@AA&&(Total gold found : }8@,.((Another game?  .4YA- AF:A,%@*+-@` A%(Saving }your game.../ A:@`@@D:ARSAVEB) A@)@D**4)4}THIS ACCOUNT IS FREEAFY@@*@>-@@K)@O Y AJ}@ A L>@4@@D:ARSAVE> A O4@4@@ }D:ARSAVET7(@(@*(@7(@VS-@@'*@8,+ ?-@@}O*@8,S X[6-P:8@,'AV,66-8@,&$AVC*@P*@[@Z( } ArS(Loading game..." A-@S@@D:ARSAVEt-@}@-4A`vY@@*@>-@@K)@O Y AR|*@}@*@~1-@@$)@-68,-1 d-@@$)@-68,-1 }>)@K)@d68@,-$AV%?@4(@THIS ACCOUNT IS FREE?@% A}%68@%,-8@,A-@B:,(@:7<,, A(768@,-A A03 68@,-8@%,)} AE3 A(@%(䡠($lk=(*} Move nventory est Level 8@,h(&}own Stairs ast at ave/oad/uitk(n068@,--68@ ,-0$qMAR@*-8@,@}5(J68@,-M$26-@:78@,,,$!A'26-&A()68@ ,-+'@P:'@},,B68@#,-+!@,n68@",-+&8@#,$@!@,68@!,-+&8@#,$@&8@",$@}!@,$V6-P:+&@,'@,.6-&$@L-$@$@%@V A P6.  # } #6.#07<,3H6.    P6. 47<,4S)7<,4467@ <@ ,.%2,10,16,8}? #A4!-@%"48@ %,?67<,.a AR@(>68@,-8@,%@}^68@ ,-8@ ,%@a$v6-8@,-6-P:+&@,'@,E6-&$@&@k-$@%@}$@%@s(v$/ A@6.'@:7,, A(/6.7<,4S6.+#7<,4S*8@,}"@$+6. AH/ A@6. '@:7,, A(/6.#7<,4S6.%+#7<,4S*8@},"@$+6.`!AR(!$77B:,,4 -6.7@Poof!<*$38@,!8@,368@,-8@,-8@,!AT-68@,-AT}k+8@, @)8@, @@68@,-C'F'P Aa( You've died!k A.+8@,!}@*8@,!@.$i+8@, @*8@,!@=-@X(You're getting hungry._(i} AEk+8@, @*8@,!@=-@Z(You're starving!a(k AEe+8@},!@*8@, @=-@[(e AE$dAdAU'A}@d9AF)@d@x*@A  6.>:,4N(No$ (Yes$ D}1:AROGUE.BASAF)@d@x*@A  6.>:,4N(No$ (Yes$ D 88888ffD`>p<|`868of;0  00f<|8p|<|>n|||888||||~|0 0 ~~`0 0`|}88|~>n`n|nn|~|||x88888~n|}||ƶ|||ƶ|~p|||8l88l|888 0`00`00`0 0 08l}6>8pp8?;~7=|h<=7;>v`}@p~|n7ww<~~~<.4<8<6x`x`~<~~<} ``  8p<~~<}~x|nf8x8nn|`~| |||p0x06||8f<8p<~~< P f OUOUTCOLSAIFIOCBAAAHAALLSSHSSLFROWRO@s@8BysssAi!}@AH Bp# @f A' Ber AcAA9s %%VIEWDOCS.BAS B!}Y S.J.MURRAY 4/92%%BASED ON TOPRINT.BAS BY T.PAZEL4##Š͠ӠԠϠĠ5##ήà!}6##ϠĠΠΠà7##ŠŠŠӽ8##ΠŠϠӽ= @p>"!}@@h? F:@, @"@i@SAdAU'-@@#S(&Šө!}ԠA F:Ad,"AU@eB F:Ad,"@bAC(AdAU(*@A%D<6-%@!}!@U0*@@<6-E$Fg +AR@1@@CAdAUU@!}@dgB7t@dKQ0@@@70@@Q0@@Z6-P:I:!},$?,d++;,;@,;@,;@ ,f 6.D:n767@,.67,.767@,.7@,x!}$($(creen or rinter Output?-@-@@K)@."@6.E:$6-!}@8. A."@6.P:$6-@. A A@ŧӠŠ70@@@!}70@@F (}-@F(&ҠŮݠҠԠ2@ AR!}@2AdAU( (>@B:,A =@3@@D:*.!}DOC= A1@17@<@,0 A"(7@<@," A+67@,.+67B:,%!}@,..DOC5@ A5@@""ΠӠĠӠ͠!"@!@!}@6-@+@@=AR@W0@@@q0@@!}0@@@@dB7t@dZ6-AH6-C:,)6-P:'AV,96-&A!}V$J6-P:'AV,Z6-&AV$O%@@%%@3%@A%@O%@ 6!}-?:C:hhhLV,<@,""F:%@,!A'A"))6-F:%@,%AV$F:%@ ,66 "(@7@!}<,, @b6 A`@ --J!7&<&,4 '! APT ^J!(@7&%@>",Q:TRAP 40000565 IF Q<1 OR Q>4 OR Q<>INT(Q) THEN ? :? "ERROR: SELECT A NUMBER FROM 1 %}TO 4":GOTO 560570 ON Q GOTO 580,590,600,610580 POKE 710,148:POKE 709,13:GOTO 980590 POKE 710,58:POKE 709,0:GOTO 980%}600 POKE 710,234:POKE 709,0:GOTO 980610 POKE 710,12:POKE 709,0:GOTO 980980 ENDPROC 990 ------------------------------%}THE DIM MODULE(DIM_SEC) All strings and arrays have to be DIMmed. Enter your variables into this section as they are %}needed by the program. In this way you will know if the variable is in the beginning, the middle or the end of the program.&}1000 PROC DIM_SEC1010 DIM FILE$(25),KEY$(2),SECT$(25) R$(10),D$(25),K$(25),YN$(1) F$(25),FZ$(25),X$(50), &} FILE1$(25),TL$(30)1480 ENDPROC 1490 ------------------------------THE DENSITY MODULE(DENST) In the DENSITY MOD&}ULE I have 2 BLOCKS. The first block is the density information. The 2nd block is the disk drive number. I put in a REM in li&}ne 1575 to indicate that I have a new block. Note line 1590. I had to use an IF-THEN-ELSE command to ERROR TRAP. Again &}in line 1500 next to PROC I use a 'CLS' and initialized the variables in this module.1500 PROC DENST:CLS :DN=0:DR=01510 &}POSITION 14,7:? "DISK DENSITY"1520 POSITION 14,8:? "---- -------"1530 POSITION 12,10:? "1. SINGLE DENSITY"1540 &} POSITION 12,11:? "2. 1050 DENSITY"1550 POSITION 12,12:? "3: DOUBLE DENSITY"1560 TRAP 1560:POSITION 12,1&}4:INPUT "SELECT A NUMBER >>",DN :TRAP 400001570 IF DN<1 OR DN>3 OR DN<>INT(DN) THEN ? :? "ERROR: SELE&}CT A NUMBER FROM 1 TO 3":GOTO 15601575 REM *** DIRVE INFORMATION ***1580 CLS :TRAP 1580:POSITION 8,11 & }:INPUT "DRIVE NUMBER 1,2 OR 8 >>",DR:TRAP 400001590 IF DR=1 OR DR=2 OR DR=8: GOTO 19801600 ELSE 1610 ?& } :? " ERROR: USE A NUMBER 1, 2 OR 8":PAUSE 120 :GOTO 15801620 ENDIF 1980 ENDPROC 1990 -----------------& }-------------THE MENU MODULE(MENU) In the MENU MODULE you get a choice of what module you want to select. When the m& }odule you have selected is finished it will return to line 2480 ENDROPC and this in turn will return you to line 70 GOTO 60. & }In this way every module returns to the CONTROL MODULE. Rather than using the POSITION command for the menu items I use&}d R$(line 2005) to create 8 spaces in front of each item.2000 PROC MENU:CLS :NUM=02005 R$=" "2010 POSITION 18,5&}:? "MENU"2015 POSITION 18,6:? "----":? 2020 ? R$;"1. DISK INFORMATION"2030 ? R$;"2. PRINT TO SCREEN"2040 ? R$;"3.&} PRINTER"2050 ? R$;"4. LOCK A FILE"2060 ? R$;"5. UNLOCK A FILE"2070 ? R$;"6. RENAME A FILE"2080 ? R$;"7. DELETE A&} FILE"2090 ? R$;"8. FORMAT A DISK"2100 ? R$;"9. END"2110 TRAP 2110:POSITION 9,18 :INPUT "SELECT A NUMBER>>" &} ,NUM:TRAP 400002115 IF NUM<1 OR NUM>9 OR NUM<>INT(NUM) THEN ? :? "ERROR: USE A NUMBER FROM 1 TO&} 9":GOTO 21102120 ON NUM EXEC DENST,SCRN,PRNT,LOK, UNLOK,RENAM,DELET,FORMT,FINI2480 ENDPROC 2490 ----------------&}--------------CONVERT MODULE(CONVRT) This sub sub module is used by the SCREEN MODULE and the PRINT MODULE. What it &}does is convert the FREE SECTORS of your disk into K-BYTES. I take the first 3 characters(number of free bytes) and change th&}em into numeric value( line 6510) Single density and 1050 density disk have 125 bytes per sector. In line 6520 I multip&}ly the free bytes by 125 and divide by 1000 to get K-Bytes. I then round it of to the nearest 10th Double density disks&} have 256 bytes per sector. I do the same thing in line 6530 for double density6500 PROC CONVRT:SECT$="":E=0:D=06510 SEC&}T$=FILE$(1,3):D=VAL(SECT$)6520 IF DN=1 OR DN=2 THEN E=INT(D*125)/1000: E=INT(E*10+0.5)/106530 IF DN=3 THE&}N E=INT(D*256)/1000: E=INT(E*10+0.5)/106540 ? :? "YOU HAVE ";E;" K. BYTES OF SPACE LEFT"6550 CLOSE&} 6980 ENDPROC 6990 ------------------------------THE SCREEN MODULE(SCRN) In this module I open drives 1,2,8 in lin&}es 2510-2530. If the first character is bigger than ASCII 47( a number) than I call the CONVERT routine to change it into K-B&}ytes in line 2550. If the ASCII is less then 47 than I go back to the INPUT line 2550 again I have to put a STOP on thi&}s module so the directory stays on the screen. I used the INKEY$ function to wait for the SPACE BAR to be pressed (CHR$(32)).&} POKE 752,1 and POKE 752,0 turn the cursor off and on. I usually put this POKE also on the line with the command PROC.2500 & }PROC SCRN:CLS :POKE 752,12510 IF DR=1 THEN CLOSE: OPEN #2,6,0,"D1:*.*"2520 IF DR=2 THEN CLOSE: OPEN #2,6,&!}0,"D2:*.*"2530 IF DR=8 THEN CLOSE: OPEN #2,6,0,"D8:*.*"2540 ? " FILES ON DISK ";DR2545 ? " &"} ----- -- ---- -":?2550 INPUT #2,FILE$: IF ASC(FILE$(1,1))>47 THEN 25702560 ? FILE$;:INPUT #2,FILE$: &#} ? " ";FILE$:IF ASC(FILE$(1,1)) <47 THEN 25502570 EXEC CONVRT2580 ? " PRESS Š TO CONTINUE"&$}2590 KEY$=INKEY$2600 IF KEY$=CHR$(32):GOTO 2610:ELSE :GOTO 2590:ENDIF 2610 CLOSE :POKE 752,02980 ENDPROC 299&%}0 ------------------------------THE PRINT MODULE(PRNT) I first call the SCREEN MODULE to display the directory on th&&}e screen in line 3050. The PRINT MODULE is done the same way as the SCREEN MODULE. In line 3070 and 3080 I use FILE$ AND FILE&'}1$ in order to get 2 columns printed. No printer control codes are used so this program will work with every printer.3000 P&(}ROC PRNT:CLS :YN$=""3010 EXEC SCRN3015 ? :INPUT "SHALL I PRINT THIS DIRECTORY(Y/N)>>",YN$3030 IF YN$(1,1)="N"&)} THEN 34803032 ? :INPUT "TITLE OF THE DISK>>",TL$3035 LPRINT " " ;TL$:LPRINT 3040 IF D&*}R=1 THEN CLOSE: OPEN #2,6,0,"D1:*.*"3050 IF DR=2 THEN CLOSE: OPEN #2,6,0,"D2:*.*"3060 IF DR=8 THEN CLOSE:&+} OPEN #2,6,0,"D8:*.*"3070 INPUT #2,FILE$:IF ASC(FILE$ (1,1))>47 THEN 31003080 INPUT #2,FILE1$3085 LPRI&,}NT " ";FILE$;" ";FILE1$3088 IF ASC(FILE1$(1,1))<47 THEN 30703100 LPRINT :LPRINT " YOU HAVE ";E;" K. BY&-}TES OF SPACE LEFT"3105 LPRINT :LPRINT :LPRINT 3110 YN$="":? :INPUT "GO AGAIN(Y/N)>>",YN$3120 IF YN$(1,1)="Y" &.}THEN ? :INPUT "DID YOU INSERT A NEW DISK IN THE DISK DRIVE(Y/N)>>",YN$3130 IF YN$(1,1)="Y":GOTO 3010 &/}:ELSE :GOTO 3470:ENDIF 3470 CLOSE 3480 ENDPROC 3490 ------------------------------THE FILE NAME MODULE(FILE) Th&0}e FILE NAME MODULE is a sub sub module used by LOCK A FILE, UNLOCK A FILE and DELETE A FILE MODULES. In this module I c&1}oncatenate 2 strings, the drive string and the file name string into one string. There are several ways of concatenatio&2}n. I always use the same method. "OLD$(LEN(OLD$)+1)=NEW$"7000 PROC FILE:K$="":D$=""7010 ? :INPUT "FILE NAME>>",K$7030 &3} IF DR=1 THEN D$="D1:": D$(LEN(D$)+1)=K$:K$=D$7040 IF DR=2 THEN D$="D2:": D$(LEN(D$)+1)=K$:K$=D$7050 IF D&4}R=8 THEN D$="D8:": D$(LEN(D$)+1)=K$:K$=D$7480 ENDPROC 7490 ------------------------------***********************&5}*************Ed: In the next Turbo BASIC Flyer, we continue with "Programming Made Easy (Part II)". Ron completes his det&6}ailed examination of the modules and concludes with the whole fleshed out program. I have placed the Disk Secretary prog&7}ram (SECRTARY.TUR) on Side B of this Futura disk. Before examining the program yourself, I suggest you create a boot disk. &8}Follow these steps:1. Format a disk with DOS 2.5.2. Write DOS files to the disk (DOS Option H).3. Transfer the AUTORUN.SY&9}S and SECRTARY.TUR files to your new disk (use DOS Option O).4. Rename the SECRTARY.TUR file AUTORUN.BAS (use DOS Option E).&:}5. Boot disk without BASIC. Enjoy! Extra special thanks to Ron Fetzer and the Ol' Hackers for allowing publication of &;}The Turbo BASIC Flyer in Futura! Until next time... KEEP PROGRAMMING!!!rs for allowing publication of $^HARDWARE WAREHOUSE - NOV/DEC 1993 After Alan Hitchen's examination of the Citizen 120D+ printer in the last issue of F*=}utura, we now take a look at today's most popular game controller - the joypad! Kevin Cooke puts the Cheetah Bollistick thro*>}ugh its paces...THE CHEETAH BOLLISTICKReviewed, Used & Generally Hammered by Kevin Cooke Not long after reading the*?} review of the CHEETAH BOLLISTICK in Page 6, I was lucky enough to come across one in a shop. The price was only 5.99, which*@} I considered a big enough reduction from the normal price of 9.99 to warrant a purchase. I needed a new joystick anyway, so*A} I was looking forward to comparing this with the seven or so other joysticks that I have previously worn out. The most *B}obvious difference between this and an ordinary joystick is that this is in fact a joypad. If you've ever seen a joypad on o*C}ne of the many games consoles, you should know what to expect. The box lists the Bollistick as being compatible with Ata*D}ri computers - a big plus in my books! However, the real test of a joystick is the unit itself. The actual unit seems t*E}o be of a strong make and felt a little lighter than a joystick. It is shaped like an upside down 'V' and is comfortable to *F}hold. It also has two firebuttons, and so allows for damages to occur to one button. Mounted above the two real firebuttons*G} are two fake ones (very tacky!), probably put there to make it look more like it's console counterparts. An autofire switch*H} is also conveniently placed where it can be got at easily without much chance of switching it on accidentally. I have b*I}een using the Bollistick for about six months now and it is still going strong. Any controller gets a hard life on my system*J} (I play quite a few games) and the Bollistick has stood up well. The fire buttons aren't quite as springy as when I first p*K}urchased it, but then nor are any of my other joystick buttons after six months use. The actual direction controls feel just*L} as good as when I first got the unit, earning a high recommendation from me for anyone that needs a new joystick and is not *M}afraid to try something new.The Cheetah Bollistick is available from your local computer dealer, priced at 9.99 pounds (RR*N}P). d to try something new.The Cheetah Bollistick is available from your local computer dealer, priced at 9.99 pounds (RR(SOFTWARE SCENE (PART 2)OPERATION BLOOD (Light Gun Version)by ANG SoftwareReviewed by Kevin Cooke You've probably.P} seen a review of the joystick version of OPERATION BLOOD by now (what about the one in Futura issue 7?), so what ever was sa.Q}id about that, goes for this version. In case you have yet to see a review of it though, here goes... OPERATION BLOOD i.R}s based on the arcade hit Operation Wolf, and was released by ANG Software a few months ago. The game basically puts you in .S}the middle of a war, where you must either kill or be killed. You originally had to move your sights by joystick, but th.T}ey are now controlled by light gun. Hand grenades are fired by pressing the SPACEBAR, with all normal fire being done by the.U} light gun button. The graphics are very good (apart from a slight lack of colour), and all of the soldiers are well ani.V}mated. Sound consists of a good tune on the title screen, and reasonable gun fire noises during the actual game. OPERAT.W}ION BLOOD was difficult (a bit too difficult if you ask me), but the light gun version does make it easier to play. However,.X} be prepared for some practice (or cheating!) before getting very far. Overall, a good game, and sure to keep you occupied f.Y}or a while.SOFTWARE SCENE RATING:Graphics..........87%Sound.............83%Gameplay..........85%Value for money...89%.Z}Overall...........87%OPERATION BLOOD (light gun and joystick versions) is available from Micro Discount, priced at 5.95.[} pounds + p&p each. OPERATION BLOOD (light gun and joystick versions) is available from Micro Discount, priced at 5.95,ATARI 8-BIT MEMORIESA Celebration of Continued Life! Yes, it's another new column! This time we'll recall fond (or h2]}orrible) memories of Atari 8-bit computing. I begin below with one of my many fond memories of this wonderful computer syste2^}m. Do you have a computing moment in time which you recall now and again when using your trusty Atari 8-bit? It could h2_}ave happened in 1979 or yesterday - the time is irrelevant; it is the memory which will hold the interest. Please send y2`}our recollections to me for inclusion in the column. If possible, send them in as a text file on disk (I'll return your disk2a}). Hardcopies are OK too. If your memories are used you will be sent a free NOSAUG PD disk of your choice! Now, let us ret2b}urn to the dizzy heights of 1983...AN 8-BIT MEMORYby Stuart J. Murray I remember brousing through the new Virgin Meg2c}astore in Aberdeen. If I remember correctly, it was a sunny day in the late Autumn of 1983. I went downstairs to have a loo2d}k at their new computer games department. Wow! An Atari 400/800 section! I remember my excitement as I walked down the blu2e}e shelving to the end and glanced round to see it offering Atari 8-bit disks, cassettes and cartridges. I stood there starin2f}g at the boxes with great excitement; the kind that can only be felt as a young teenager discovering the new world of home co2g}mputing! Previous to Virgin, the only sources of Atari 8-bit software in Aberdeen were Boots and a small selection in a 2h}local computer store called Holburn Software (a horrible store with unfriendly Commodore-loving staff!). Both of these only 2i}offered the usual small selection of Atari Corp. cartridges and the odd English Software cassette. Everywhere else was domin2j}ated by the Spectrum, BBC and C64! At last, I thought to myself, Atari 8-bit support in Aberdeen! The 8-bit section in 2k}Virgin was small but nevertheless VERY welcome! On that day they had Preppie and Preppie II by A.I., Zork by Infocom, Shamus2l} by Synapse, Crush Crumble & Chomp by EPYX, Gorf by Roklan, and a few others. These were the sort of titles I'd always read 2m}about in Computer & Video Games and Silica Shop catalogues! Computing was never the same again! I bought Preppie and Pr2n}eppie II that day (after examining every word on every Atari software box in the store!) and returned on numerous occasions t2o}o purchase classics such as Hitch-Hikers Guide, Archon, Summer Games, etc., etc. Thank-you Richard Branson! Now, where is t2p}he XL/XE section in your new Virgin Games Store? Dream on!er Games, etc., etc. Thank-you Richard Branson! Now, where is t0}plied with almost all Windows packages for the PC. Since the initial work on this program was started, two similar games>} have been released for the Atari 8-bit, Bomb by Ke-Soft and Minesweeper by PPP. This is the only Public Domain game based on>} Minesweeper that the author knows about, so if you enjoy this game, why not buy one of the commercial programs on offer, whi>}ch are probably more advanced and have extra features. The object of the game is to clear a field of landmines. To >}move about the screen you use the joystick. Pressing the fire button uncovers the square you are standing on and either revea>}ls a blank square, a number or a mine. A blank square tells you that there are no mines in the 8 surrounding squares, and a n>}umber indicates how many mines are in those 8 squares. If a mine is revealed, you have been blown up. To safely dispose >}of a mine, move over the square and press a key on the keyboard, but be careful because if there is no mine there, you will b>}e "safely" disposing of yourself. As you clear the field, the counter at the bottom of the screen will count down A few >}tips. Only on very rare occasions, will a guess be necessary. This usually happens at the start or end of a game, or in one o>}f the corners of the field. Most of the time it will be possible to work out what is under a square. If you do get stuck, try>} a different part of the field and then you may reveal some squares which will help you where you were stuck. When there are >}only a few squares left to reveal, look at the mine counter at the bottom of the screen and this may give you some clues. >} One final hint, if you are the type of person who gets easily frustrated, then either play this wearing a straight jacket t>}o protect your Atari, or don't play it at all. who gets easily frustrated, then either play this wearing a straight jacket t</A-ROGUE From the May 1987 issue of ANTIC, A-Rogue is an Atari 8-bit version of the classic mainframe adventure Rogue. B}Your roguish mission is to go through the dungeon and find the Jewel of Taldra. Naturally there is a whole horde of creepy mB}onsters out to stop you. You will be prompted to enter a name for your Rogue, then you will see "LOAD A GAME". On your B}first game, type "N". Use the arrow keys to move and press the following letters to select an option: [I] Inventory prB}ovides your status [S] Save your game [R] Rest gives you a health point [L] Load an earlier game [E] Eat nourishes you B} [Q] Quit your game [D] Downstairs to the next level [H] Health displays your health [C] Cast spell [W] Withdraw [A] B}attack Remember to save your game (press S) after you've completed a session. When you load the program again and returB}n to your saved game, the save file (ARSAVE) will be deleted to create space for another save at the end of your new game sesB}sion.our saved game, the save file (ARSAVE) will be deleted to create space for another save at the end of your new game ses@NOSAUG PD UPDATE - NOV/DEC 1993NOSAUG PD CATALOGUE The NOSAUG PD Catalogue is nearing completion! It has taken me qF}uite some time but there is finally light at the end of the tunnel. It is amazing how long it takes to list and describe eveF}ry program on every disk! I haven't decided on the final format but I'm leaning towards a disk-based catalogue, with utiF}lities to help you print listings, order forms, etc. Look out for the first version by mid-January. It will be FREE to all F}Futura subscribers! When you receive your catalogue, please consider ordering something. The NOSAUG PD Library is centrF}al to the survival and expansion of both Futura and NOSAUG. I take great pride in putting together PD disks which offer the F}best possible value-for-money. If you give them a try, I'm sure you'll be pleasantly surprised at the high level of quality!F}NEW NOSAUG PD DISKS Look out for some new disks just added to the library...U30 - Page Editor V3.3 I was sentF} this disk some time back by the Ol' Hackers A.U.G. in New York, USA. I've only recently had time to examine it and I have tF}o say that it looks very impressive! It is a WYSIWYG desk-top publishing package. WYSIWYG stands for What You See Is What YF}ou Get. Yes, 80 column on-screen editing! There are lots of fonts and icons on the disk along with a detailed manual. ImprF}essive stuff!U31 - Sound Monitor Professional V1.2 I've produced a double-sided SMP disk from three single-sided versF}ions which I received from different sources. This double-sided disk contains SMP1.2, Replayer files, docs in English and 20F} wonderful .SNG files!U32 - Yearly Calendar Maker & Others I've squeezed five very useful utility programs onto this F}disk. Yearly Calendar Maker and Disk Cataloger are two powerful utilities from OHAUG in the USA. Turbo BASIC 3.2q is a versF}ion for SpartaDOS users. Sound Tutorial & Utility is an interesting collection of sound modules which you can use in your owF}n programs. Finally, on Side B you'll find the Lode Runner Utility Disk. This will let you transfer, print, edit and save LF}ode Runner screens. Build your own screens for use with your Lode Runner disk. The Utility Disk will NOT play Lode Runner sF}creens. For that you need the commercial game disk by Broderbund Software.U33 - 1029 Utilities Lots of powerful prinF}ter utilities for the Atari 1029 printer, including an excellent screen dump program.D22 - Digital Bikinis Digi-pics F}of many beautiful girls in their swin-wear. OK, so it's not 100 degrees and we're not on a Californian beach, but we can dreF}am! Please refer to the DISKPD file on Futura issue 9 (Sep/Oct 1993) for a list of NOSAUG PD disks. h, but we can dreDlFUTURA SUBSCRIPTION INFORMATIONNew issues:Futura issue 10 - Nov/Dec 1993(released 21st December)Futura issue 11 - JanJ}/Feb 1993(released early January)Futura is available in the following formats:UK ORDERSDisk..........................J}.. 1.956-ISSUE DISK SUBSCRIPTION...... 11.00Cassette & Printed Copy......... 3.95Cassette of programs............ 2.95BaJ}ck issue disks 1-9 are now only 1.50 each.Please make cheques/POs payable to S.J.MURRAY.INTERNATIONAL (NON-UK) ORDERSEUJ}ROPEAN COMMUNITY MEMBER STATESPrice in UK poundsDisk............................ 2.506-ISSUE DISK SUBSCRIPTION...... 14.0J}0Cassette & Printed Copy......... 5.00Back issue disks 1-9 are now only 2.00 each.Cash is OK; preferable by Registered AiJ}rmail. IMO's payable to S.J.MURRAY.ELSEWHEREPrice in UK pounds (cash dollars)Disk..................... 3.00 ($5)6-ISSJ}UE DISK SUBSCRIPTION 17.00 ($28)Cassette & Printed Copy.. 6.00 ($10)Back issue disks 1-9 are now only 2.50 ($4) each.CasJ}h is OK; preferably by Registered Airmail. IMOs payable to S.J.MURRAY.Dollar payments must be in cash.Become a Futurian J}and send to...S.J.Murray,NOSAUG,71 Walker Road,Torry,AberdeenAB1 3DL,Scotland. must be in cash.Become a Futurian HWSEE-YA!by Stuart J. Murray, NOSAUG. Well, there goes another issue of Futura! I hope you enjoy this disk over the feN}stive period. Due to my AMS7 report I've had to once again drop one or two of the regular columns in order to squeeze everytN}hing onto the disk. Let's just say that if you can't see it in this issue, you'll see it in the next! Speaking of the nN}ext issue, Futura issue 11 will feature the long awaited return of Futura Feedback (I've been adding your questions to it eacN}h month and it is now huge!). The Atari 8-Bit Bookshelf also returns with a comprehensive list of Atari 8-bit books, botN}h past and present). Also, look out for my detailed review of The Brundles by KE-Soft and the new-look Futura 1994 InfoFN}ile. On the software side, there will be the promised Simpsons Slideshow and another wide selection of top quality utiliN}ties, games and demos from Futurians and PD sources all over the world!Keep 8-bitting!Stu.Influences for this issueN}: Doctor Who, The Brundles, A-Rogue, Kick Off 2, Aberdeen FC (top of the league!), Lords of the Underground, A Tribe Called N}Quest, Army of Darkness, Grand Canyon and Night of the Living Dead.Thanks to Lesley, Bryan and Kevin for your help with thiN}s issue!Greetinx to all Futurians throughout the world!ing Dead.Thanks to Lesley, Bryan and Kevin for your help with thiL:* NOTICE *Please note the new address for NOSAUG as of August 1996:NOSAUG,PO BOX 11903,WESTHILLAB32 6GE,SCOTLAND.,P|SCOTLAND.Stuart J. Murray, 1st August 1994.ess for NOSAUG as of August 1994:NOSAUG,PO BOX 10001,PETERHEADAB42 6ZN,P1