@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr ( Q ``3``3``3@`3̅̄53?033<03?63́/3?03}?3?63́ .30 3<3/3̂̂0/3?0<300}3/3́ 0 00 %3?<3 00 0̂3?*3́ 3  0 ?w]Wׁ}ׁ30̂000?]Wׂ5=3̅? 0<̂3 0́wu]WUUՁUuUuUu}݁3? 03 3u]WׁUՁUuU]Ձ5=?3̆< ? ́u}wWUU }Uu]W Uu]3?0033003݄_]UuU]UՃ5?3́Ղ=0<wWUUu]U }WUu]W_]}W_3 0? 0?]UUu]WUWUU]W]u_W|̂_U? ?wWU }W_]}uUU?< 3WU= 3?<]Uw}]uU0 ́U_U<=U׆wuU }z~w}u UWU_?3UWU 3?ψUWuU]߁uUWUWU̅WUU7? }3?̃uUW]U_x^_WUÚ 03_UWU=3]UuׂW]UuUWq}^WWUՂ}0 ρφU}W]UwÚUW]UՃלּUW3?3U_UuWU3UUWuU}*jUWŨՈ]]_WU]WUu _UuU U 3?=W]5]}WUu]UU3W}U]U낭 U  ̇W_|p|u]_Ww\__U]U3?=W\p|_}]WW]zzU}WU]ݽU?̄W? U]U_խUUW|_UuUuUuՁUՃw3? pu}WյUuU_p\WUUuUuUՃ̂0UuUՅU]?0 WuU3}? <UWuՄ Uu|0? WUuÚW :?UWU_׃W~zz~WUW }U]WUWUWU3?;U]UWU^zz^UW?U]U]U]UWUWÛ|= }Ë?}W}W UUW0<UWUUׂ3߈5 7_uW_uWUW03<UW U}UՄ |_W\W]UWu_uUW]0 ?Uu]WUWUWU3s_W_}U]W]UW]}0?UWU}̏UWuU_UUUW_\ WUՃU 3=U]UuU_WUUW\ ?_WUu}]W UUՂ ́UWUuU<̄_WUՅUUuU]WU_3_UuU_U]U3Ã0}3_WUuU]UWUW̃|_UwUU  _W UuW 3sU?3 3}}]W UuUW0 ̂\WUU ww_WU3_WU=  3}]WU}́|WU}=  ̂ ww_?73s_W= < 03? ߁}=݂="| \} |w!3 _?0  <0 3̂< <233??33``3``3``3``3``3]̃\3]́\3+}+]̃\3]̬̃\3++D}tui( TʩL`b!)    cȌaȌd b`aab($Ǜ nfDFfFfFD{ȸ DFff Q e".""".тQY }{gfdDfDT  DdfjQ ! "."% fkgDfdDEDEDTP@D } DFfjfj  !! W_fogofg[ED fDT@ @E!}DTdfnP@ffzEDfDDFff"}فUUU}}g fkfgfFf DDd fW#}QQf~f~f{DdfF.Dejffj ʁ ٿU .$}ffnfvfTDdf*DEDFV f Q)i fgmefF5Df%},Q fdtTDfv{WE DK[GE DEDEDde fQYn  Q ~nUFf&}[{{kU DG[ {XXHXTDEDFVfjf] . nb"."R ifv]efz'}DEGfVFEDdfj fjfQn " "bY ofFEDdfFDFDE[{(}ffFDdf fY^R "*:".>."i fgdDF fV)}fFfUQ m".#"*".*" fnfn fjfjf"*}" ffj.""  fd`adfU+}Ufjfjfj%" U"fd`@@@DdU,}Uꊈffjw! !U*" f`ATp4p0A-}EPT Uj fj&f&BtwtEAT U"݁fd.}EA47w7UAP U`fj&f&Q@A M  UEQTU/} *f@Ut7@w7GtwTZTUT UUf`h& fAPE0݂݃@iVT U@U0}f@PQqpwwtw7Uutw@ww)P UUf&B`df @@QT݂݁݊M] @AT UPU 1}kf&A@CwtspwWw7str@DU%PAUT U f&F@M݆݆]ҋU@PUTU2}U{g @@pt@wtK;U%) ZU7w7G@TPU@fЁ܆.U VU݆ M@U3}U ;K  K K;;CUiZPtGtw1U`df37 .N.PUejVP݃U@ #4}UUdBqGw@ UPf&B`dfw"PU* UY UH (*HPSCO@Qea(H5}`dftu UTn&J"(J@PSOCPQ(WU[UU UTU(6P UV6}@BRU^UU  UU"*=?C UV |{{ UUuU @VXhl7}nn  UTU%*VZ[c3y{{U{ UUUT́8}mnnnnU UUU?%923U{Uy{ KPTU@yUU?U΁9}Uցnmn.N@QTUeUb"U%92Uyw4GSTC;uWU @UVXhl:}UemU݄ APTeU"* UVZ[cU[ 4pCGqwCP  ́U;}^U ݂́P  3KsKsC;UuU Ú*.ҁ<}Wu}U * U%9:230{UwU]u]uWUY UVnUVfe]U]}uUWY UV+#*{=}[WU}U_UU]?Zhĺ*n  ^U}u_U]U Zc3U[ yuU]}uU]>}]݃U1ÚU^U^U^_eUՅ}uU_U]UU%923*[[{Uy y?}UuUWU]UuWUe*JFJBJʁ ^^Unm mUuwU]WuׅWU  IJBJBJ  {U[WUW]W]W@}WWUfj nVUWU_UWU]V!uYyW_}UUWUuUwWufj! eU]e_]UWUuUW_uUA}", 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhAB"TITLETEMPAPSBBLFLNZRECLLTELMBINLOAWAIC} D} $$*** DISKMENU.BAS ***))Adapted from program by Dana NE}oonanfrom COMPUTE! 3/83( Modified by Tim Ekdom 3/84d SET-UPs##@@E:x5#@@F}K:5AR@});@0,;@0,"6.)6.h;A ,;@,;@,;@G},;@@,;@,;@,;@0,;@,6.and press RETURNv67@,. %67A ,. 467@H},.;6.B6.I6.Q6. `67@@,.o67@,.v6.(6-(6.ˠ٠,-@I}@, Please stand by...READ DIRECTORY: A0@@D:*.*: B@J})7@<@,4FREE) A??7@<@,0BAS*7@<@,0OBJA06.7@<@K},6-%@6-B:,*"6- @* A:067$@&@<$@&@%,.: L}A0" 6.6- Ap, SORT6=6-P:'@,%@,-@&=-@6@SS7$@M}&@<$@,/7+%,$@&@<+%,$@,A`Jn&6.7$@&@<$@,n67$@&@N}<$@,.7+%,$@&@<+%,$@,T..67+%,$@&@<+%,$@,.^ h r!@O}A| APREVIEW DATA >:A%,=6-@6-@)6-&@0=A@'!P}6-@'6-@06-P:'@,4 6-B:,$6-+@8&,'@0-@4(-@@Q}(S $-@@-$6.@ 6.>:@2,4() 0(7$@&@<$@,4R} ,@@%-%@,6.0@@ !@ 06.>:@2,4() 0(7$@&S}@<$@,4 +-@@!+(1) RUN 2) DOS&2!!-@#@!2( 3) Next Page0(-@T}@#(( Choose Option:.)@. @I)!@QA`D6-A:>:,,N"@AX"@U}.li"@*"@&(>:A%,.6-%:6-@1S6-P:'@,%@0_6-@i A`v/"@V}*"@%6-@/ ARUN PROGRAMy A-@@!F(" Input program you want X-@W}@"b( o@y BP:,A"A&&6.7$@&@<$@X},=7@ <@ ,4 36.7@<@,= Ap] -@@6@@67<,.7&@<&@Y},D ]67@ <@ ,..2 6.D:-@B:,27<,4 A 67B:,%@,.7<,  (-@Z}@"(( Loading % A Binary Load*g7@<@,4OBJ)@F@@[}XARg6-?:AUv,/#AR%# B4^AR@'-@@"<( Cannot r\}un F BZ-@A^ >*-@@!* 7@<@7,H*-@@"* 7@<@7,]}R A@ ARead Title:@:@@D:DISKNAME.DAT@B:,!@^}0A-@B:,!!67<,.>:@:7<,,%A(, ''B:,!@(*B:,@0A$ 67B:,%_}@,.>:A`,.!6.>:A`,!67@,.3 6.8 6.B@ B$LDISK ERRORV1(>:A%`},"-@@1( Check disk`0-@@ &)@0 A D:DSKMEN.BINN6-$S .j))ARE K+@%@'A@9A AKAA##(@ b} ##(@ ANALOG 400/800##(@ presents ##(@ utility #3 c}###(@ (##(@ -(@ by2!!(@ TONY M d}ESSINA7$$(@ <#6-At #**ML SAVE AREA **AAA@"%"A 7AU e}@A @uF3A)6-%@3 @eK7%(@ loading disktool 7% D:DSKTOOL.PT2P f}''32,83,228,48,51,173,130,29,208,57U%%32,133,29,32,38,30,173,22,30,32Z%%15,30,32,175,29,162,0,160,0,189_%%253,3,32 g},243,29,32,222,29,32,24d%%30,32,178,29,32,31,30,200,192,8i''240,17,232,76,25,29,140,126,29,32n&&16,32,160,0,140,22,3 h}0,104,96,142s&&23,30,138,56,233,7,170,238,23,30x''189,253,3,32,195,29,142,129,29,32}((57,35,174,129,29,232,236,23,30 i},208((235,169,155,32,57,35,174,23,30,224%%128,176,202,32,38,30,32,6,30,32%%175,29,160,0,174,23,30,76,25,290 j},0,0,0,0,0,0,162,0,189''154,29,240,13,142,127,29,32,57,35))174,127,29,232,56,176,238,96,125,66&&89,84,69,35,127,1 k}27,72,69,88,127$$127,65,84,65,83,67,73,155,0,32%%178,29,169,32,32,57,35,96,41,15%%201,10,48,2,105,6,105,48,96,201 l}**32,144,20,201,125,144,18,201,128,144))12,201,155,144,10,201,160,144,4,201&&253,144,2,169,46,96,32,24,30,173& m}&242,29,32,57,35,173,241,29,32,57!!35,32,31,30,96,0,0,72,74,74''74,74,32,184,29,141,242,29,104,32''184,29,141,24 n}1,29,96,173,22,30,24&&105,8,141,22,30,32,243,29,32,222%%29,96,0,0,142,127,29,140,128,29((96,174,127,29,172,128,29 o},96,169,62%%32,57,35,169,36,32,57,35,96,104++104,133,206,104,133,205,160,2,177,205''32,111,30,170,24,105,8,141,12 p}9,29**200,200,200,177,205,201,32,208,5,200''177,205,208,3,32,111,30,157,253,3''232,236,129,29,144,231,72,76,6,29 q}$$0,56,233,48,201,10,144,2,233,7 ))96,72,200,177,205,32,101,30,141,100%%30,104,32,101,30,10,10,10,10,13%%100,30 r},96,76,52,29,32,243,29,32((222,29,96,32,83,228,48,241,169,253''133,205,169,3,133,206,160,5,162,0"++177,205,157,221 s},31,200,232,224,11,144'**245,160,0,177,205,141,236,31,200,177,++205,141,235,31,200,177,205,141,234,311,,200,177,205, t}141,233,31,200,177,205,1416&&232,31,44,236,31,16,8,169,68,141;''237,31,76,254,30,80,37,169,85,141@''237,31,169,32,44 u},236,31,240,5,169E''42,141,239,31,169,2,44,236,31,240J''8,169,50,141,238,31,76,254,30,169O%%49,141,238,31,32,43,30,1 v}73,11,3T$$32,47,35,173,10,3,32,136,30,32Y&&178,29,162,0,189,221,31,32,24,30^%%32,57,35,32,31,30,232,224,8,144c%%2 w}39,32,24,30,32,178,29,32,31,30h%%189,221,31,32,24,30,32,57,35,32m((31,30,232,224,11,144,239,32,178,29r''32,43,30,173 x},232,31,32,136,30,173w&&233,31,32,136,30,32,178,29,32,43|((30,173,234,31,32,136,30,173,235,31&&32,136,30,32,175,29, y}32,43,30,173&&243,31,32,136,30,32,175,29,162,2%%189,237,31,32,24,30,32,57,35,32((31,30,169,32,157,237,31,202,16,2 z}36))238,243,31,238,242,31,169,8,205,242))31,240,22,165,205,24,105,16,133,205''144,2,230,206,169,155,32,57,35,32 {}''204,31,76,156,30,169,155,32,57,35$$173,10,3,24,105,1,141,10,3,144%%3,238,11,3,162,0,142,242,31,173((241,31,20 |}8,17,238,241,31,76,143,30**162,11,169,32,157,221,31,202,208,250""96,206,241,31,76,63,29,0,0,00,0,0,0,0,0,0,0,0, }}00,0,32,32,32,32,32,0,0,0##32,83,228,16,3,76,52,29,32,16%%32,76,63,29,173,132,29,42,42,13''131,29,141,122,4 ~},76,63,29,173,122$$4,72,41,3,141,131,29,104,74,74((141,132,29,96,173,254,34,240,4,104((76,189,32,104,104,141,11,3 },141,119((35,104,141,10,3,141,118,35,104,133++206,104,133,205,104,104,141,243,31,32&&83,228,16,3,76,221,34,162,11 },160++15,177,205,157,220,31,136,202,208,247))177,205,141,11,3,136,177,205,141,10**3,136,177,205,141,235,31,136,17 }7,205((141,234,31,136,173,117,35,240,3,76 ))252,35,177,205,240,20,141,236,31,44''236,31,16,28,32,212,33,142,126,29 }''32,213,34,76,64,29,162,34,160,111''32,159,33,173,243,31,32,136,30,76!''42,33,162,33,160,232,32,159,33,32&))21 }2,33,162,33,160,239,32,159,33,173+##11,3,32,47,35,173,10,3,32,1360((30,160,16,140,249,34,169,155,32,575&&35,162,7,14 }2,248,34,32,83,228,16:%%3,76,221,34,32,16,32,238,255,34?''208,3,238,0,35,173,132,29,205,243D''31,208,35,173,123,4,13 },131,29,240I%%81,32,199,33,32,1,35,206,248,34N''16,210,169,1,141,46,35,206,249,34S''16,190,141,254,34,76,64,29,32,20 }4X&&31,162,34,160,20,32,159,33,32,43]##30,173,11,3,32,47,35,173,10,3b''32,136,30,162,34,160,54,32,159,33g&&169,1, }141,126,29,141,46,35,169,0l''141,255,34,141,254,34,141,0,35,76q''64,29,173,234,31,77,255,34,208,31v''173,235,31,77,0 },35,208,23,141,255{''34,141,0,35,162,34,160,134,32,159%%33,169,155,32,57,35,169,1,76,47))33,162,34,160,139,32,159, }33,173,235''31,32,136,30,173,234,31,32,136,30''162,34,160,165,32,159,33,173,0,35((32,136,30,173,255,34,32,136,30, }162((34,160,191,32,159,33,169,0,141,255%%34,141,0,35,76,42,33,173,136,29**141,250,34,173,137,29,141,251,34,140 }))136,29,142,137,29,32,133,29,173,250))34,141,136,29,173,251,34,141,137,29))174,252,34,172,253,34,96,173,131,29$$ }141,11,3,173,123,4,141,10,3,96%%162,0,189,221,31,32,24,30,32,57''35,32,31,30,232,224,11,144,239,96""70,73,76,69, }58,32,0,32,32,32##32,32,83,84,65,82,84,32,83,69""67,84,79,82,58,36,0,32,73,83##32,68,69,76,69,84,69,68,33,33&& }253,253,155,0,155,70,73,76,69,32##78,85,77,66,69,82,32,77,73,83##77,65,84,67,72,32,65,84,32,83##69,67,84,79,82,2 }7,31,0,155,67##72,69,67,75,32,80,82,69,86,73##79,85,83,32,83,69,67,84,79,82%%32,76,73,78,75,83,33,33,253,253"" }0,67,65,78,78,79,84,32,82,69##65,68,32,83,69,67,84,79,82,58$$27,31,36,253,0,155,78,79,32,69 ##78,84,82,89,32,70,7 }9,82,32,70##73,76,69,27,31,36,253,0,32,69##78,68,0,155,79,82,73,71,73,78##65,76,32,83,69,67,84,79,82,32 ##67,7 }9,85,78,84,27,31,36,0,155%##65,67,84,85,65,76,32,83,69,67*##84,79,82,83,32,76,79,65,68,69/##68,27,31,36,0,155,83,72, }79,824##84,32,70,73,76,69,32,69,82,829&&79,82,33,33,253,155,0,162,34,160>%%3,32,159,33,96,162,34,160,87,32C%%159, }33,173,11,3,32,47,35,173,10H%%3,32,136,30,169,155,32,57,35,76M42,33,0,0,0,0,0,0,0,0R##0,32,24,30,173,46,35,240,6,3 }2W$$43,30,76,28,35,169,27,32,57,35\&&169,31,32,57,35,32,43,30,173,131a%%29,32,47,35,173,123,4,32,136,30f$$169,0,1 }41,46,35,96,1,32,243,29k&&32,231,29,96,69,58,155,162,64,32p&&86,228,96,162,64,169,12,157,66,3u%%32,86,228,162,64,169 },3,157,66,3z%%169,54,157,68,3,169,35,157,69,3%%169,8,157,74,3,32,86,228,162,64$$169,11,157,66,3,169,0,157,72,3 }157,73,3,104,96,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0 },00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0 },00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,0%%0,0,140,253,34,17 }3,11,3,141,116''35,173,10,3,141,115,35,162,35,160%%120,142,5,3,140,4,3,162,104,160##1,140,11,3,142,10,3,32,83,228 }''16,13,162,38,160,251,32,159,33,32((204,31,76,221,34,32,218,37,172,253((34,177,205,208,3,76,144,32,141,236&& }31,44,236,31,16,73,162,38,160,34''32,159,33,173,116,35,141,11,3,173%%115,35,141,10,3,32,83,228,16,16''32,212,33,3 }2,204,31,162,39,160,19&&32,159,33,76,221,34,32,16,32,238 &&255,34,208,3,238,0,35,173,132,29((205,243,31,208,27,173 },123,4,13,131%%29,240,84,32,199,33,76,89,36,32''212,33,162,38,160,68,32,159,33,76&&42,33,162,34,160,20,32,159,33, }32$$$43,30,173,11,3,32,47,35,173,10)&&3,32,136,30,169,155,32,57,35,162.((33,160,232,32,159,33,32,212,33,1623''38, }160,88,32,159,33,32,204,31,2408((204,32,212,33,32,204,31,162,38,160=''88,32,159,33,76,103,33,173,234,31B''77,255,34, }208,232,173,235,31,77,0G((35,208,224,141,255,34,141,0,35,162L))38,160,114,32,159,33,173,118,35,141Q$$10,3,173,119,35 },141,11,3,32,83V''228,16,13,162,39,160,38,32,159,33[&&32,204,31,76,42,33,160,0,173,120`%%35,201,2,208,4,169,66,208,2 },169e%%64,145,205,169,87,141,2,3,32,83j''228,16,35,32,218,37,32,204,31,162o%%39,160,62,32,159,33,173,11,3,32t%%47 },35,173,10,3,32,136,30,162,39y&&160,86,32,159,33,76,42,33,32,218~((37,162,38,160,152,32,159,33,162,38))160,174,32,1 }59,33,173,115,35,141,10%%3,173,116,35,141,11,3,32,83,228&&16,13,162,39,160,19,32,159,33,32&&204,31,76,221,34,32,2 }34,37,32,16%%32,173,123,4,13,131,29,240,6,32))199,33,76,115,37,162,35,160,120,142##5,3,140,4,3,162,104,160,1,142 }""10,3,140,11,3,169,87,141,2,3''32,83,228,16,13,162,38,160,227,32&&159,33,32,218,37,76,42,33,32,218((37,32,212 },33,162,38,160,204,32,159&&33,32,204,31,142,117,35,76,64,29##162,3,160,253,142,5,3,140,4,3##162,82,142,2,3,96,169 },0,160,3&&78,11,3,110,10,3,106,136,208,246((160,5,106,136,208,252,168,169,0,56''106,136,16,252,72,173,10,3,105,10 }**168,104,89,120,35,153,120,35,206,123))35,173,123,35,201,255,208,3,206,124$$35,96,127,80,65,83,83,49,32,45## }32,67,72,69,67,75,73,78,71,32##70,73,76,69,32,67,79,78,68,73##84,73,79,78,155,0,32,73,83,32##78,79,84,32,68,69,76 },69,84,69$$68,33,33,155,253,0,44,32,67,65##78,78,79,84,32,66,69,32,82,69$$67,79,86,69,82,69,68,33,33,253 ##155 },0,70,73,76,69,32,73,78,84%%65,67,84,155,127,80,65,83,83,50##32,45,32,82,69,67,79,86,69,82##73,78,71,32,70,73,76, }69,155,0##68,73,82,69,67,84,79,82,89,32###69,78,84,82,89,32,68,79,78,69(##155,0,82,69,65,76,76,79,67,65-##84,73, }78,71,32,68,69,76,69,842##69,68,32,83,69,67,84,79,82,837##155,0,32,72,65,83,32,66,69,69<##78,32,82,69,67,79,86,69,82 },69A$$68,33,253,155,0,69,82,82,79,82F##32,73,78,32,86,84,79,67,32,87K$$82,73,84,69,33,33,253,155,0,69P##82,82,79, }82,32,73,78,32,86,84U##79,67,32,82,69,65,68,32,33,33Z$$253,155,0,70,73,76,69,32,82,69_$$65,68,32,69,82,82,79,82,33,2 }53d##155,0,68,73,82,69,67,84,79,82i##89,32,82,69,65,68,32,69,82,82n$$79,82,33,253,155,0,68,73,82,69s##67,84,79,82 },89,32,87,82,73,84x##69,32,69,82,82,79,82,33,27,31}253,155,0,0,0,999 D:DISKTOOLԥ8֥  _077BACKGNBLACBORDEBUFHBUFLBUFPTCASBUCASPTCHACHNGBCKLICKROLCKROLCLIOCCNTIDAUXDAUXDBYHDBYLDCOMDE}CHEDUNIENTLNERRFLERTRAFILNUFINUMGREEGSEHEXDEHILMESAGNWLNPCHANGPDIPHELPLUSMIPMOPPRINPRECOVEPROCINPSEPSE}PTRACPWRITRECOVREREDISCROLSETDSSETSCRSTARTOPSETRASETURWFLAWHITYELLODRIVHELSECHSECLOSECNUAANHEXREPHEXTA}BLINBUTSECTSECSCANARPTEMFIFISTSERELFID} } !"#$%&'}()*+,-./01234567}89:;<=>?@ABCDEFG}HIJKLMNOPQ ##*****************************##}* DISK TOOL BASIC PROGRAM *##* BY TONY MESSINA (C) 1982*##******************************@**}*LFT MAR TO 0 ***#(##*****************************-##* VARIABLE/CONSTANT/STRINGS *2##* INITIALIZATION FOLLOWS } *7##*****************************<##* CONSTANTS FOLLOW *A##* THE FOLLOWING CONSTANTS *F##* ARE USED }TO MAKE THE DSK- *K##* TOOL LISTING EASIER TO *P##* READ. IT ALSO PROVIDES A *U##* CENTRAL LOCATION FOR ISO- *Z}##* LATING ADDRESS POINTERS IN*_##* ORDER TO MAKE MODIFICATION*d##* OF THE PROGRAM EASIER. *i##* ENTRIES ARE AL}PHABETICAL. *n##* SEE THE CONSTANTS DESCRIP-*s##* TION SECTION OF THE DOCU- *x##* MENTATION FOR DEFINITIONS.*}##*}****************************_6-A6-'6-A36-As?6-ArK6-A&W6-A!_6}-%o6-A 6-Aw)'6-Au36-A?6-APK6-A#W6-AXc6-Axo6-Ayo6-A}w6-Av'6-Ap36-A`?6-AiK6-AW6-AuPc6-A%o6-AuVo6-Ay6-A}'6-@36-Ap?6-AK6-At0W6-Ac6-Ao6-A o6-A6-Ae'6-AE}36-A0?6-A0K6-AEW6-@c6-A 0o6-A{6-A P6-Aw'6-@d36-Ax#}?6-A`K6-AW6-Ac6-At o6-AuU{6-A$36-A6-AuT'6-@36-@&}##*****************************##* VARIABLES FOLLOW *##* THE FOLLOWING ARE VARIA- *##* BLES SET }TO THEIR DEFAULT *##* VALUES INDICATED DURING *##* PROGRAM INITIALIZATION.SEE*##* VARIABLE DESCRIPTION SEC- *}##* TION OF DOCUMENTATION FOR *##* LIST OF ALL VARIABLES AND *##* THEIR PURPOSE. *##****************}*************?6-@6-@'6-36-@?6-@""****************************}""* STRING INIT FOLLOWS *""* SEE STRING DESCRIPTION *""* SECTION OF DOCUMENTATION * ""* FOR DESCRIPTION AN}D USES *""* OF THE FOLLOWING STRINGS.*""****************************11;@@,;@,;@,;@},"6.0123456789ABCDEF',""****************************1""* VARIABLE/CONSTANT/STRING *6""* INITIALIZ}ATION END *;""****************************@E J O 6-?:,CLR IOCB 4T Y^##************}*****************c##*COMMON PROGRAM SUBROUTINES *h##*****************************mr""**************************}**w""* ˺ *|""* SET UP DISK VECTOR TABLE *""**************************** }** DRIVE # ** FOR READ  (AS(** LOW BUF ADR ($FD)**'@'**HI BUF ADR }($03) **0A'0** GET 128 BYTES (1 SECTOR) **** NO HI **$##**********************}*******##* ͺ *##* CK SECNUM LIMITS <1 >720 *##*****************************S 6}-A:," @)!A L(% ĠҮŠӠO'S $""****************************}""* Ϻ *""*BREAK SECNUM TO HI/LO FORM*""****************************,6-P:'AV,})6-P:&+$AV,,,$ !!***************************!!* к *!!* ROLL SECTOR NUM TO 1 }IF *!!* >720 *!!***************************!&!A 6-@+$05!!****}***********************6!!* ͺ *:!!* ROLL SECTOR NUM TO 720 *?!!* < 1 *D}!!***************************IN @6-A S$X]!!***************************^!!* к } *b!!* GO HERE ON ERROR *g!!***************************lq,(̠ԡ$}( , v{!!***************************|!!* ̺ *!!* SCROLL 5 LINES *!!* FROM }THE BOTTOM OF SCRN *!!***************************4-@(1-@4$!!**}*************************!!* κ *!!* SET SCREEN TO *!!* DEFAULT COLORS OF GREEN *}!!* BACKGND,WHITE BORD,BLACK*!!* LETTERS. *!!*************************** }$""****************************""* к *""* MAIN COMMAND/INPUT PROC- *""* ESSING} PORTION FOLLOWS *""****************************A( Ԡ= =(ĠҠҠA} 4H6-@  4P   4T 6-&4+)46-%@" & 27@}<@,4-*6-&@. 2   4W+   4C+   4D  4T}   4M+  % 4R * 4S+  / 7@<@,4$ 4 9>""}****************************C""* κ *H""* PROCESS THE (+) (-) OR *M""* NUMERIC INPUT. PRINT} SEC-*R""* TOR DISPLAY & RTN TO 370 *W""****************************\a +   f k }6-?:,** GO DO IT **p5F:,"A85(  ӠԠġu> F:,.(ΧԠĠ ($):}> vX"A`.(àҽ360 ($0168)D( Ġ F:,X(Šӽw7"A`3(F:%}@,%F:%@,$AV7 zD Ai*!A`@( ٠  ($)D @@( Ҡ (}$ )Ԡý+F:,$AV,%F:,(ţF:, ""****************************""* ź } *""* PROCESS (W) COMMAND TO ? *""* SECTOR REQUESTED TO DISK.*""* WRITE ONLY AFTER VERIFY..*""*}***************************  6-?:,   ,,(ԠҠӠ ($)} (ԠŠӠ#(ŠԠŨٯΩ#20Y*0N((Ӡԡ2 A%) 4}N(Š) A% @ 6-?:,?F:,"A85(  ӠԠġ? A} IF:,"AD?(ˠΠ  ӠŠġI A , F:,"( - F:, -, A }(Ҡ!!  6. $""*************************}***""* ź *""* PROCESS (C) COMMAND TO *$""* CHANGE BYTES OF SECTOR IN*)""* CURRENT BUFF}ER..... *.""****************************38""*** CHANGE BYTES ROUTINE ***= B 6-?:,G} L//('MOVE CURSOR TO BYTES,CHANGE,HIT RETURNQVB4)B:, @&8(̠ԡӠB A5[} ` 6-C:,e6-?:<,j//(&ĭԠΠϠot y$~""***********}*****************""* к *""* PROCESS (H) COMMAND BY *""* DISPLAYING THE COMMANDS *""}* AVAILABLE IN DISK-TOOL...*""****************************V +@5(@V(}@ %%(@d#(@=READ NEXT SECTORD(@=READ PRE}VIOUS SECd(@=CHANGE SEC BYTES5!(@=DIRECTORY LIST5(@=HELP;(@=MODIFY LINKS};(@=PRINT SCREEN 6-"6-P:'@,%@>67@<@,.7<,UI'6-+&+&@,$@,%@C67@<@,}.7<,I6-Z> 6-"6-P:'@,%@>67@<@,.7<,_L'6-+&+&@,$@,%@C67@}<@,.7<,I6-L$di""****************************n""* Һ *s""* PROCESS (D) COMMA}ND TO *x""* DISPLAY FORMATTED DISK *}""* DIRECTORY/FILE INFO.. *""****************************8}@A8** SET SECTOR 361 FOR READ6-Aa + 11()}ã ů ̣ } 6-?:,6-%@0(0($ RETURN ϠЬ + ϠԮ4+* AeA5 6.}""(ĠҠҠ 4 A^37@<@,4W)7@<@,4 }CT(ҠΠ^ Ap %@""****************************""* Ժ  } *""* PROCESS (P) COMMAND TO ? *""* THE SCREEN TO PRINTER.. *""****************************, +, })(ҠΠ,$ A33$( ǠΡ$ %%6-F:@,%F:@,$AV }""**PRINT SCREEN TO PRINTER **-@@6-@-%@9"+67<,.>:+@: ,%F:,,,+6 }-@:7<,,'+!A(6-&A(+67<,.>:,,(7<,2 )7<,3Z(67<,..16-%@ 6'7@} <@!,4DR' A;36-%@@ @  6. $E.$(ҠΧԠġ. A}JO""****************************T""* ĺ *Y""* PROCESS (M) COMMAND TO *^""* MODIFY }LINKS OF A FILE.. *c""****************************hmO$(} ٠Ҡ'(K(ҠϠ٠}ҠéOr 4 w 7@<@,4$ |     6-?:, F:, A=(=(}ţF:,:Ԡҽ +F:,$AV,%F:,+('(ҠנŠàҠة+ 46-F:, A }7@<@,4$  6-A:,3 +,(/(ҠנãؠҠé3 4  7@<@},4$ (A:,"6-( A0  +, 6-?:,W(Ӡġ(W( }נŽ F:, נҽ +F:,$AV,%F:,6-F:,%F:,$AV4(-(" ŠϠˠƠӠ}0(4 ""****************************""* ź *""* PROCESS (T) COMMAND TO *""* TRA}CE THE SECTORS OF A *""* FILE FOR FILE INTEGRITY *""****************************# +,+6-}# H'(INPUT FILE NUMBER (HEX OR DEC)D(TO OR TO ABORTH  7@<@,4X  7@}<@,4$ V 6-A:,%6-P:'@,%Aa; Aa)!AhR(ĠŠV  6-&+P:'@},$@,!6-+$@,%&(} Ҡ+6-?:<<<,0) F:,"%() 5 }6-F:,6-F:,: (F:,+, ?4(0($ TO CONTIN RINT SCRN TO STOP4D& 4"}& I 4P  AUN' 0+#' S!!(} ҠŠԩX 6-?:,] }A@bg""****************************l""* Һ *q""*PROCESS (R) COMMAND WHICH *v""*WIL}L RECOVER A FILE WHICH *{""*HAS BEEN DELETED *""****************************# +,+6-}# J'(INPUT FILE NUMBER (HEX OR DEC)F(TO OR TO ABORTJ 7@<@,4X  7@ }<@,4$ V 6-A:,%6-P:'@,%Aa; Aa)!AhR(ĠŠV  6-&+P:'@!},$@,6-+$@,%(} Ҡ@6-?:<<<,% F:,""}%( ""****************************""* Ժ *""*PROCESS (S) COMM#}AND WHICH *""*ALLOWS USER TO CHANGE THE *""*WORKING DISK DRIVE NUMBER *""****************************($} ԠŠ#( (ԠŠ =#($ (ԠנŠ $ 4 B 6-A:," @%})!@>(ĠŠҡB  6- (  D:DSKTOOL.PT2"@@ APқ"Y( 1[t [ Q * O * *J * : F *: C *A .'}@;;Z>7j.7j  5U(}/7Pꮺ)0@꾺3PUUeUUe/@TU)}UeUUi3PUjZjՕVUYefP@iVU?;?)@TUVjjZݕVYf@PZ*}P;8,jj꯿zji󮯫>(VZꪾkjU@)+}j::ÿ'Zꪥ끻>(YUf ,}&UU  (Pj뺮*j+-}PZZ% 4j꺮j)4UjjꈖfiY.}iZZU2UVZZjڦfYijjj2UZjfiVP1VjojfYV/}i1Ujꪯ @2Zꂪ @1j;V;T0};P>@?PB@PB@1}F@FPK@PJ@S/2}8PAEDP@8QADT@XPWP\\\\]T_T^UAUA\AU\]^T\3},;@8,+ 6. 67@8,. +67@,.6. D:SAMPLE.G3D! A A! A!! A (D 8@CC  J? 1 JM U]U@WUU\U@5}8UUCUU]UP[UU,/@U0PUUT@?UUU@?1UUU9UUTUW@6}UEUT 7@UEUANUEUOPEUPPA@P@LUUPA@PP@ TUAEAPUWE7}@UUE@AUTUQTMU@UU]ULUQUUU 'UPPUUULUEPTADUU.U8}TUU@ UPUU%@'UUUP:UT@UUUWEU7TUDUT:UT@UUAUP<0 9}U@UPRPQUTU@ ' UDTUT@PT/@#UUP@PT@@  Uu|C}5U *:}UJU RUX U 0.UEUCfDfbUU1  U-2:22dfFbFbf;}dUU0  ˂ UPU%2 " @dD$d@ 0UU  ˋˆ̏ <} UU!323#"#23"#3#" @PU;8˻́"UU3"#"2"23#TP@=} ϸ̻˻Ȼ́"TUP@3"3"2"#2"23""23#2"<<ϻ=32"2 "#">}#3#  <̻;;"3#"2"# "323"#3:̼ȸ́̂(2#3"3"#3#?}3#"32"323<̻ˁ8"2#3#"#3#3#"#"2"#"3232̄̈̿@}̂"3"2"#"#"23#3#2#2"32"73ˈό̄83"3#3"232"2#"#3"8A}3 ̄́ " 3"3"2 "#3#232"XVTRQOLJHFCA><952.+&!hhhhhhhhh֥ױքH)`JJJ<BRBRBRKQ500QQ1QQ1Q1Q1Q2Q5327Q1QQIFNQ50Q38Q34Q37Q52Q56QQQ53Q75DELAOQ55Q75Q63Q1C}2Q12FONTQ2INQ8Q4000Q60Q57QQ20Q26Q54Q21Q1Q15Q13Q1Q72Q25Q28Q32QQ33VARQ6Q16Q7D} E} !F}"#$%&'()*+,-./01G}23456789:;<=> !!庠H}ή̠!!îƮɠ!!۷ݠ!!(!!I})*MM256-@J}6-A'6-A@36-@?6-AK6-A`W6-A`c6-A o6-AY{6-AP6-AR6K}-A0636-@6-A'6-@36-B7t8!6-@d!96-A6-Ap'6-L}AU36-B?6-APK6-@W6-@c6-@!o6-A{6-A06-A6-A@:6-AM}p6-A3'6-@36-A(?6-A'K6-@W6-@c6-o6-B2y{6-@6-@N};{6-@6-@'6-@ 36-A ?6-AUK6-AW6-A c6-@o6-A0{6-@p<O} Initialize.F +%J P""(@ Z-"(@ -(@P}n$$(@ŠӠ͠x,(@,(@ list+(@+(@ ԠQ}.(@.(@inverse control*(@*(@ -"(@ -(R}@+ -+(@+ -+(@ PRESS start + -+(@ TO S}CONTINUE + -+(@ F:, Ġή+00F:,!T}A(&&(}A Wytragof Utility Program.&&(ԠŠӠҠŠο"( ). CASSETTE"(). U}DISK -(>K:)E;"@:C,)"@:c,)"@:,)"@:,)"@:,)"@:,A(CE E;V}"@:D,)"@:d,)"@:,)"@:,)"@:,)"@:,A(DE   *(*(POSITION TAPE IN CASSETTE DECK,"&&(AND PRW}ESS ξ WHEN READY., 6.C:6 @((堽D:J 6.D:TK:)^ " hX}"@:~, mB:,"@ n*&B:,!@*+@:0,*@:9,,* o&"@:.,*+ @:A,)!@:Z,,& r&6Y}7B:,%@,.>:,"(>:,& |B:,"@  B:,"(>:, 6.7:, ΠӮZ}   ,(,(!ŠϠΠԠŮ%(%(PRESS TO CONTINUE...   [}F:, & 0( P: $(>:,( :$($(ҠԠ٠D XӮ\ \}] -b7 -+(3-7 c; -+(The Screen Will Now Blackout.3-7 ; ]}d -F:,e l v )* "&(K:&@:7$%%<$%%,,,0  (     -(_} -(Į-@A  ""Data for Characters.;$,;`},;,kk67@<@,.PχǏ??kk67@a}<A`,.P????????煙kk67Aa<A@,.Pb}QQρkk67AA<A ,.Pǃ遲c}ہہۋ))ϙ Ekk67A!<A,.PÁ遲ǃd}ϟÁ݁kk67A<A,.PݙˁÁӁe}ߍkk67A<A`,.PǓ9}}9ߟÁÁf}kk67Aa<A@,.PÁÙρぁÁkk67AAg}<A ,.PÁߍ灙Ꮯkk67A!<A,.Pq}BDRDOOM BINB$DRMBOY BINBBDSKMEN BINBTaDSKTL1 BINBqDSKTL2 BINB&ELPHNT BINB4ENTPZE BINB*BEPSON BINB uFADER BINBBFAYE BINB[FIFTH BINB-2FIGURS BINBd_FIRBRD BINB FIRST BINϟÁkk67A<A,.P큁r}kk67A<A `,.Ps}߃ [[67A a<A$,.@Łǃt}$ D:EPSON.UTLD..(@.(@ 16 GRAPHICS MODES8 AB$LARAUV++( QR5HHARRAYHOLDHEXFILECASLINLSUHNUSUCIOCADDRESADHADLBYTENUMHNUML!v} !w} ϠқBY JOSEPH GRANDEANTIC MAGAZINE 9/84(r<;@,;@,;A,!x};@#,;@ ,Z6.@ABCDEFGHI#######JKLMNOf6-r6-@FB(}PLEASE WAIT....,-@A0 B!y}AYA #A )-A A"P@3 A@7 A A5 ""-@B:,@56.7<%!z}@,S6-#-@@O6-$@%@:7@:7,,&@G,,&@dS W76-%+@:7@<@,,%@!{}:7@<@,,,E67<,.>:,S6-%@W [%6-F:A,%F:A,$AV+=AY@4X(LINE !|} IS MISSING.[8 AY@45(}BAD DATA AT LINE #8$@AY@4<("}PRESS T!}}O SAVE THE FILE.@W@7@@ D:FADER.OBJC6-AHW%@@- 6-C:,6-P!~}:'AV,-6-&$AV- 6-B:,6-P:'AV,-6-&$AV;%@%@-%@;%@ !}6-?:C:hhhLV,<@,!@( }ALL DONE.!eeFFFFE002E1028421001E61228DCC1E0ECC1E0ECC1E0ECC1E0!}ECC1E608DCC1E20031EAECC1EA90C9D42039D4203,5255ff4CB61E858068AA68A8688581688583688582688DCC1E98488A48A000A9008D6722B180998!}004C99BD0034C5B1E,10322ffC93AD005A9018D6722C84C421EAD6722C900F0034C841EA9448D8004A93A8D8104A000A202B1809D8004C99BD0,15371!}ff034C841EE8C84C731E20031EAECC1EA5829D4A03A5839D4B03A9809D4403A9049D4503A9039D42034CB61E8DCA,20504ff1E68AA68A8688DCB1!}E98488A48602056E4AECC1EBD43038D66222980C900D001604C74E4008582A90748A58229,25578ff30491018690C48A582290F48A91E48A9E94CED1E!}533A9B0020241E60858068AA68A868858198488A48AECC1EA9,30674 ff009D4803A9019D4903A5809D4403A5819D4503A9059D420320B61EA000B180C!}99BD0034C2C1FC84C1F1FC8A900,35707ff918060858068AA68A868858168858498488A48A9FF8585A5840AB00546854C481FAD0AD22585C584F002B0!}F5A0,40769 ff009180608D6C22A9448D6E22A93A8D6F22A203BD6E22C920D0034C811FE8E00BF0034C6F1F8AC90B90034CAD1F,45901*ffAD78229!}D6F22AD79229D7022AD7A229D7122A92E9D6E22A59B9D7222A5009D73224CCE1FAD7A228D7B22AD7922,510714ff8D7A22AD78228D7922A92E8D7822A5!}9B8D7C22A5008D7D22608D6D22A91F48A9FA20A61EAECC1EAD6D229D4203,56275>ffA5589D4403A5599D4503A9049D4803A91E9D49034CB61E608D6C2!}2A91820CD1E203A20AD30028580AD31028581,61296HffA003A94E9180A006A90E9180C8C063D0F7A94E9180C8C8C8B180C90FF0034C3920A90E9180C8!}4C282060AD0BD4,66398RffC95FD0034C47204C3A206001084002108004208D6C22A2008A9D8622E8D0F9A9008D8322A9FECD8322B0034C9D,71406\!}ff20AD832249FF488D8522AD852248A92248A98520321FAABD8622A86848AABD8622AE85229D862268AA989D8622,76516fffEE83224C6120608D6C22!}A55885808582A9008D8222A907CD8222B0034C3D21AE8222A9008D8322A9FECD8322B0,81553pff034CDB208A48AE8322BC862268AA203E21EE83224CB!}E208A48A2FFBC862268AA203E21AD6622C97FF00590034C,86686zff3721AD8222C902F0034C0421A001B1808DC402AD8222C903F0034C1521A002B180!}8DC502AD8222C904F0034C26,91631ff21A003B1808DC602AD8222C905F0034C3721A000B1808DC802EE82224CAC20608D6C22AD64228581AD6522858!}3,96631ggA9008D8422A91DCD8422B0034C8321B1803D4820C900F0034C7021BD482049FF31824C722111829182E681E683,101595ggE88A2907A!}AEE84224C502160205020A9078D632220FB1FA5598D6522AD652238E9208D6422AD64228559A9018D,106613gg6222A90148A90648A90048A92148A9B!}84CBF212A2E4D49439B0020241EA90120001EA9018D8222AD6222CD8222,111590ggB0034CE521A92248A96E20F11EEE82224CCC21A90120101EAD6E2!}2C920D0B120601FA90148A90448A90048A922,116614gg48A96E20241EA90120001EAD64228559AD632220CF1F209E20A90120101EA900854D8513A51!}3C90890034C4722,121552ggAD1FD02901C900D003204722AD1FD02902C900D0032053224C2322AD62221869018D62224CA721AD1FD02901C9,126506!}00D0032047224C5322,127445 D:FADER.BAS(eeЕeeZ%-A6AV"! 3%}%}%}%}%}%}%}%}%}%}%}YoIK%}UGAZVw%}YVf'iEi9ei%}5feeRj&}%}T%iij>fjo%}Z?ZjiZ<>~%}'^e}'UjVWDj%}oꪮTZꪪ@w%} ~w P jv00뻻e0%} @j 0/B*Y0f3 %}U!V[0&e 0 Efa0 /%}@a {Pj<0 UQj %}wQZە0< PZ  AjZza0j%} jna0j뻿jߪQUU3jzQUU0%}@ZEUU@ ZIUU@0 EUZUU@*U%}YHUU@ *DUUPUDjUUU ?AUWWZ%}UV0 ;ERY穊Z(* /DZ J* UT 0%}TQ*0 T*0D@j 0%} Re"**Y" *0j%}j*Zjfk h0O< jZ* 031%}*jfZX j U jj0Z0 j33%}00jjn(Yjjj3<uZ %}j} j{ 3 }jj030 mj< %}jWUZj*Zf  *YZjv *%}mEZi 𪪪fiUZj? }Fs %}V3 3ꪪji}Ze<00ꪪj]Zj00 iUZ%}3 0ꪪWURf+ꪩjWUVjk 0/jjuVj%}d<<ꪪiUVW}Zn_OV UTDDUUZn efeUUUjUPUTUj_ UUjVUUvejiU.?}UVeeUTU@T@T@UDT@EUTZځADUXVeUPPTPUPQP.@}ea`G .*TU dUUQUV[ivYA@@UE@UQG [UDnʭVUTTUeUEUVY.A}fVUTU@VUn. JGFBK/FTPȘ UUTPQ@@A EFE;+  GBBG /QŬ.B}@UT UTPA@@AEFEFEFT䅄FVօE@PUTUQUTQEdQEUنՙ Y.C}ՄՕA@TUTETPETP@UTUn^ZJZVfe&  AQAAQAQP@AA@PQY++.D}[Y  AAAAAP@A@@AFZYdFEUUQUQaQUQUQUTUUV.E}*@kUQaUQUQUTUVUj@.JFRT UeYijUeUZUZUVUUQUQP.F}T&{KRQUUiiUjUYUVUVUUDUeTP@T&nZFBRVUTUETUeTUUVZjZUTEUQ.G}" z+ RTUQUUYUVVZjjVFDTUED@EifeU@P@AEU jUUZYUT@@PEYe.H}jVVDVj U@eUQUZYE@QZ U%eTUTUTFj jfj%ETP.I}ZjeUe UVZjjZji+kU UVZ*jj*jjf *.fUVZj .J}UVZj jjffeUQUQ@PTUZj P@QPQP@.K}UTUTP@TUVZdTD@DTU@몫 UYYUVjA.L} UEUVYVj TADE@ TUjeUPUY UU.M}QPVVUTUYjTEUVf TEUQPEUYU@UDTQ@YY.N}YYEUQU QVjVU TfUPUffTUPf&fQUTU TD@E@DEUZZ@ T@D@YUYD.O}EURU UQUjjfff**jjVf@VfgRZFZVU ZEDTUQY .P}ZZZA AYٕjQ@FVjjfP@PejjVfUE.Q}UfvU{jT@@AEQY@@ Z UVQUVjfFBFVjfP@.R}4UY ZUYTTUEYTUFQFj@$fjZjf ReQfeQUyuve.S}ieTDEDTjP@UU[TD@PEUDEUQUQU *@@eje.T};+PTEUYUTETPEDUU@ UZ. PTUPEUVUVUVe.U}UeQeffU@AUejeeUeU;+;{jTUEU@A@PQPeUfUP eVUfeVfVe.V}Uo././ojkj*jVUTEDUDD@P@TYUYUP UUU ꁪZFAUYej.W}ieUTUUTjZ EUE@AE FUYYUTUUUUUP .X}낫fjVfeUeUYU@P@@PTUTP@YVUT@@PP.Y}EPTUTP@뇫뫻 jZU YUUYUYU@ .Z}ffjZVU%ieUUPUUUjZVE UeUeUP TUj*.[}UiUUzjZVUUYVUUT@ DUzzꪦUQ PTP@PUe .\}eUQPTU@IA@PTU@P@PT@TU UTU@EA@PT뻯.]}YTUUE@@@PTU jUAUeU@@PTU%ꂪZ .^}VUTP@AD@PTUjZUTP@DPTEU,X581788583566585228586074114114    2`}        2a}2b}598359832c}598359832d}1;<2e}@;@9?@?>ƺ::>?7>72f}765==1==84dz1.-,('&Ħ442g}2>>95Ŵ33??:6ǵ3./01234567Ÿ:;;;;1112h}11-59;=A=;95;;;11111<;>=@?B===77777+/357;72i}53/?>?@?>?432343/?=>;:543589=2j}8=6<=<;Ʒ77;<@;@2k}9?@?>Ǻ::>?7>7<B2l}BB:A:39::A=<2m}::A=;<;65&*/46;@BBBB@<;640@;&*.46:@BBB@<;<64/@2n}:&*/46;@B@6&*/46;@B@6@?>:98432:85432.-,987?>=9872o}7987?>=98778<>B>?>2p}1540154015402q}154012r}'44466666667762s}66667779999999992t}99999,8(>84$.04-92u}5.:66789:;<=>?B7777-----72v}59777-----6789:;<66633333=;?;:;<;2w}:;0/./0778721111333333332x}3337734446666662y}66666::692z}99999;;;<<<<<<<<<2{}A:@<:A<;65430Ǽ;<;2|}:98.ǻ:;;:98<6<602}}++0 $,068=;6=2~}A=>BA=>BA=>BA=>B%+93802}0000000000000002}03333333333333332}33''%&8(("))#$)(',+2}*/0-Ų0#+/367;7#+/367;7#+/367;7'''''-------#+/367;7#+/362}7;7#+/367;7'''''2345678#-159<==#-159<==#-159<==-----2}'''''''7777777-----;-----2}------------0002}0000000000000032}3333333333366666666662}660*%432Ǡ+0)&43.-0//Ƕ2}2/Ƕ2;;::(2}(+/247(+*+,012678:72}9=9:>=9:>=9:>=9:>+7-2}+& & &,*)#)#)2}#!" ľ<#$$#"*#3#3#3#)))555)#3#3#3#2}).+0-2#-#-#-#-------#((((((#;#&-###)2}'& & &,*)#),&, **)(*+!(2}0(044&&&&&&&&&&&&&&&&&&2}&&.137:=?&&&&&&&$,2#%(*+/146+E2}2}<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<2}2}<x<<(((x<<(((<<((((((xxx2}<<<x<<(((x<<(((<<((((((ZZZ2}<<<(((<<(((xx(((((((((<(((<<(((x(((<<((2}(x<<<<<<<<<<(((<<xxxxx-----<xxxxxxx--2}---<<<<<<<xxxxxx-----<x2}((((((((((((((((((x<<(((x<<(((<<((((((xxx2}<<<x<<(((x<<(((<<((((((xxx<<2}<x<<(((x<<(((<<((((((x<<(((x<<(((<<2}((((((=<<(((x=<<(((<<((((((x2}(((<<x(((<<x(((x2}(((((((((((((((((((((((((((((((((((((((2}xx2}<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<2}<((((((2}((((((((((((((((((((((((((((((xxxxx2}((((((((((((((((((((((((((((((((((((xxx2}xx(((<h(((((((P(((<(((<2}<<<<<<<<<<(((<<xxxxx-----<((((((xxxxxxx-----<<<<2}<<<xxxxxx-----<((((((xx((((((<<(((2}(((((((((((((((((((((((((((((((((((((((xxx2}xx((((((((((((((((((((((((((((((((((((xxx2}xx((((((((((((((((((((((((((((((((((((((((((((((2}((((((((((((((((((((((((((=<<x(((<<=2}<<x(((((((((x((((((x((((((x<<2}(((x<<(((2}<<((((((xxx<<x<<<<<<<<<<<<<<<<<<<<<<<<<<2}<<<<<<<<<h<x<00000((((((((((((((((((((((((((((2}((((((((xxxxx(((((((((((((((((((((2}(((((((((((((((xxxxx(((<((((((xh2}<<((((((<((((((x(((<((((((x<<<<<<<<<<(((2}-----<((((((x-----<<<<<2}<<-----<((((((x2}<<((((((((((((((((((((((((((((((((((((x2}xxxx(((((((((((((((((((((((((((((((((((2}(xxxxx(((((((((((((((((((((((((((((2}(((((((((((((((((((((((((((((((((((((((((((<<<(2}((xxx<<<((((((((((((x<((((((x<((((((x<<P(x2}<<P(00000<2}<xx<x<<<<<<<<<<<<2}<<<<<<<<<<<<<<<<<<<<xxxxxx<2}xxxxxxx<<xx<xx<xxxx<<xx<xxxxx(((2}xxxxxxxxx<<<<xxxxxxxh((((((xxxxxxxh<<<<<<xxxxxxh((((((xh2}(((x<<x<xxxx<<xx<xx<xxxx<<xx<xx<2}xxxx<xxxx<<xxxxx<<xx<x(((<<x<x(((<<x<x<2}"""""""<<<2}<<<xx0-; FIRST.ACT -- a few odd PROCs/FUNCs; LegalDrive - allows determining if the specified drive number is re6}cognized by DOS; MaskInput - uses underlines as input masking for user responses; UnMask - cleans off excess m6}asking that the editor picks up; Find - returns the position in a CHAR ARRAY (string) where the sub-6}string was found, returns 0 if not found - search begins at the position specified by start ; --------6}---------------------------- BYTE FUNC LegalDrive(BYTE drive_num)BYTE drvbyt=$070A, bit, iBYTE ARRAY mask=[1 2 4 8 6}16 32 64 128], drive(8) FOR bit=0 TO 7 DO drive(bit)=(drvbyt&mask(bit)) RSH bit ODRETURN(drive(drive_num-1))PROC6} MaskInput(BYTE width)BYTE i FOR i=1 TO width DO Put('_) OD FOR i=1 TO width DO Put(') ODRETURNPROC 6}UnMask(CHAR ARRAY source,destination)BYTE i FOR i=1 TO source(0) DO IF source(i)<>'_ THEN destination(i)=sourc6}e(i) ELSE EXIT FI OD destination(0)=i-1RETURNBYTE FUNC Find(CHAR ARRAY str,sub BYTE start)BYTE i, jCHA6}R ARRAY tmp FOR i=start TO str(0) DO IF sub(1)=str(i) THEN tmp(0)=sub(0) FOR j=1 TO sub(0) DO 6} tmp(j)=str(j+i-1) OD IF SCompare(tmp,sub)=0 THEN RETURN(i) FI FI ODRETURN(0)4r