fg7DUNIDCOMDAUXDAUXGSEPSEDBYHDBYLAANSECLOSECHSECNULINBUSCANARPTEMFIFISTSERELFID  llDISK TOOL BASIC PROGRAM BY TONY MESSINA (C)1982 MODIFIED BY J.R. HUMPHRIES$@$LFT MAR TO 02c6-Ai6-Ap'6-Ax36-Ay?6-@K6-@W6-Awc6-AvF;@@,;@,n As APx A SET UP DVT@DRIVE 1 FOR READ  )ArAS)LOW BUF ADR ($FD)(As@(HI BUF ADR ($03)A'GET 128 BYTES"NO HI'$, A JZ 6-A:," @)!A M(& ĠҮŠӠP'Z ApL$T,6-P:'AV,)6-P:&+$AV,,,$r&"(ĠҠҠ&| 4H A 24+)46-%@( A02 A>7@<@,4-*6-&@4 Ap> A) 4W+ AP) Ap 4P A` Ap) 4C+ A0) Ap 4D AP 4T Ap 4M Ae&7@<@,4$& A@ A0! + AU! A@ #6-?:At ,#** GO DO IT **&DF:Aub,((ΧԠĠ:AubD Ap0> Ai*!A`4( ٠ > Ap:DD( Ҡ Ԡý+F:Aug,$AV,%F:AG,N(ţF:Auh,b Apv!A 6-@$ @6-A $P(̠ԡ*A <AAF AP Ap""*** WRITE SECTOR TO DISK ***9A@d'A @9A@6-?:At0, A0 (ԠҠӠ#(ŠԠŨٯΩ#*20Y*0N((Ӡԡ2 A P>) 4N(Š) A PR Auf@f6-?:At ,z(Ҡ;F:Aub,)(ˠŠҡ;Aub Auf'A 'AA 6.$""*** CHANGE BYTES ROUTINE ***9A@&'A 9A@6-?:At0, A0//('MOVE CURSOR TO BYTES,CHANGE,HIT RETURN.B4)B:, @&8(̠ԡӠB ApBA@&V 6-C:,j6-?:AwA<,~//(&ĭԠΠϠAA$t +@A 1AAS(@t(@ %%(@e#(@ READ NEXT SECTORD(@ READ PREVIOUS SECe(@RITE SECTOR TO DSKE$(@HANGE SECTOR BYTESE(@ELP(SHOW COMMANDS)?(@IRECTORY LIST?(@RINT CURRENT SCRND#(@RACE SECTOR CHAIND(@ODIFY SECTOR LINKS* ( Ap 4-@(1-@4$6--@B:,7<,20 AA27<,/9(6-$@%A:7<,,2 A@P##7<,2A)7<,3FAA**6-$@%@:7<,,&@:A,%@  6.=:,$*(Ġؠ '* Ap8@A8** SET SECTOR 361 FOR READ6-Aa + AU11()}ã ů ţ 6-?:AxI,6-%@1(1(% RETURN ϠЬ + ϠԮ4+AP 6.As""(ĠҠҠ 4 APu^37@<@,4W)7@<@,4CT(ҠΠ^ APe A|<A@'A 9AA<$p A`P33u2 ( ǠΡ2AAz%%6-F:@,%F:@,$AV""**PRINT SCREEN TO PRINTER **-@@6-@-%@9+67<,.>:+@: ,%F:,,,+6-@:7<,,+!A(6-&A(+67<,.>:,(7<,2 )7<,3Z(67<,..6-%@ '7@ <@!,4EC' A`E36-%@@ 3AA A&6.0 AP3$.$(ҠΧԠġ. A`EdN$(} ٠Ҡ'(J(ҠϠ٠ؠҠéNi 4 Apn&7@<@,4$& A@x A0 A@ AP6-?:At,F:Aub, APO(O(ţF:Auh,:Ԡҽ +F:Aug,$AV,%F:AG,+('(ҠנŠàҠة+# 46-F:Auh,# Ae&7@<@,4$& A@ 6-A:,7Auh(3(ҠנãؠҠé7 4 Ap&7@<@,4$& A@ A0% A@Aug%AG6-?:A,i(Ӡġ(i( נŽ F:Auh, נҽ +F:Aug,$AV,%F:AG,6-F:,%F:,$AV:(-(" ŠϠˠƠӠ0(: ApX?'(INPUT FILE NUMBER (HEX OR DEC);(OR TO ABORT?b&7@<@,4X& Apl&7@<@,4$& A@v\ 6-A:,%6-P:'@,%Aa; Aa)!AhR(ĠŠ\ Ap{ 6-&+P:'@,$@,6-+$@,%A!1 + AU1(} Ҡ6-?:A<<<,AF:Aub,"Aub4As7(A Ap!6-F:AG,!6-F:Aug,-(F:A8,#As- Ap4(0($ TO CONTIN RINT SCRN TO STOP48 4A8.As8 Ap 4P A` Ap9 0+A8/As9 A!!(} ҠŠԩ6-?:A, ApUD:DSKTOOL3.BAS