:;ÃØîQ±A¤AN¤DEN¤STA¤SECMAØSECSIÚØÙFILSIÚQ°ÎNEXSEÃFBYÔSECNUÍBYÔÚ€€€€  00-- DISKMEND -- by Justin Wilder, Sept 1985›g6€-@1;@@,‚;€,ƒ;@,„;€,96„.NE6…-A@Q6†-A(]@‚€g A%‡-A6A""ˆ!‡ˆ% ‡{+€AA:(@­­­­­­­­­­­­­­­­­­­Z(@ diskmend commands{(@­­­­­­­­­­­­­­­­­­­(…$(@ret GET NEXT SECTOR@(@ SECTOR # + 1\(@ SECTOR # - 1z(@rEDISPLAY SECTOR…(@2k(@dIRECTORY LIST@(@uNDELETE/CLOSE FILE`(@tRACE SECTOR CHAINk(@<j(@ mODIFY LINKS>(@cHANGE SECTOR BYTES_(@wRITE SECTOR TO DSKj(@FY(@ pRINT SCREEN>(@hELP (COMMAND MENU)Y(@ qUIT DISKMENDP.'*( ÃÏÍÍÁÎÄ ïò ÓÅÃÔÏÒ ÎÕÍÂÅÒ .Z0A@dS‰ +ŠAA@(ÃÏÎÔÉÎÕÅ ÓÅÃÔÏÒ ÔÒÁÃÅ FILE ‹I(Œ,S A n‹ +Š APx1 †&A(6-%A('6„.Y1 A ‚! 6Ž-Œ6-Š6„.N! A Œ0+Ap–1 †&A(6-%A('6„.Y1 A  # 6Ž-Ž%€6-Š6„.N# A ª0-A´) !Š6-&A(6„.Y) A ¾+ 6Ž-Ž&€6-†&A(!6„.N+ A È4H@0Ò4PAÜ 6‰-Š6‹-Š4DA@æ4UAð4TA€ú@ 4QA A/AAH9 B=+Š@Ž €)Ž!…A4MA  4W A  @€"4CA ,4RA@6$ A06Ž-A:,6-Š$6„.N@; Ž €)Ž!…1(ý ÓÅÃÔÏÒ£ ÏÕÔ ÏÆ ÒÁÎÇÅ 1 TO …; @€J0 6‰-Š6‹-Š„4N! AP0- Get Sector›T AP @€^a+ŠAA3(ƒ DENSITY SECTORL(BYTE# HEX CHARa-- Print Sector SR›r-%A'@|# >$6‡-?:A6<, # †=Ž!A`*Ž Ai2(ÄÉÒÅÃÔÏÒÙ ÓÅÃÔÏÒ Ž:6Œ-Ž%€=$‹8Ž"A`)Ž"A$-( ÖÔÏàÓÅÃÔÏÒ Ž56Œ-Ž%€8$.Ž @#( ÂÏÏÔ ÓÅÃÔÏÒ Ž+6Œ-Ž%€.$š/ A0/( ÓÅÃÔÏÒ = Ž ÎÅØÔ ÓÅà = Œ¤74( ÆÉÌÅ £ = F:A, ÂÙÔÅÓ = F:A,7$®6Œ-?:AA<†&€,$¸-+Š6Ž-A`6‹-Š--- Directory List›Â?AA?(%ÆÉÌÅ£ ÆÉÌÅÎÁÍ ÅØÔ ÓÔÁÒÔ ÌÅÎÇÔÈ ÓÔÁÔÕÓÌ' 6Ž-Ž%€ AP'( SECTOR ŽÖ;‡-A!A3@(F:‡, €+(16‹-Š; @€àp ( ‹@…@7ˆ-‡%@‡%@B(>:F:ˆ,,F ˆp( F:‡%@,%AV$F:‡%@,êl@…@&4(F:‡%€,%AV$F:‡%@,F@…@3O6-F:‡,[!A'b(Dl A ô)!@c(A"!@•)(*þ$!@$P:'@,$(-O/(6‹-‹%€ ‡/F:@„, @A`Ž!Ag6‹-Š @€* ( PUSH ÒÅÔÕÒÎ TO CONTINUE* @€&DAi€6‡-?:Ai,"‡(6Ž-Š2 AD-- Drive Status›0h6ƒ.SINGLE6…-A (6†-A(76-F:AF,C!A'O6…-A@^6ƒ.ENHANCEDh A€:(!@16†-AV(6ƒ.DOUBLEDBAp@‚'Aq@d1 AB-- Read Sector›N1‡!(ýÃÁΧԠÒÅÁÄ ÓÅÃÔÏÒ Ž'6Ž-Š1 @€X$bGAi€!ArAS3As@G-- Disk Access SR›l6‡-?:A„<†<Ž,$v2B:,!@7€<€,4$) AP26.=:‹,€ 6‹-Š $Š* 6‹-Šˆ-@B:,*-- Hex to Dec›”G6-@:7ˆ,,%!@G* @X=6‹-‹$@%&@HG Až;!@d* @q16‹-‹$@%&@U; A¨@26‹-6€² ' $¼  ˆ $ÆK(ýÉÌÌÅÇÁÌ ÉÎÐÕÔ¡¡%A Š7AAA AK @€Ð AP-- Change Bytes›ÚLA@ !-€@L(&œMOVE CURSOR, CHANGE LINE, PUSH ÒÅÔÕÒÎä-)(!OR ENTER COMMAND OR SECTOR NUMBER-î@B:, @$AA*6‹-Š6-€@!@ @øE6.7@, AP+6.7@,E‹ )‹!%A A *-‹‹%@*B:, @A O6.7@,+7@<@,4 EA!%@:7@,,O A+ AP‹Š*‹ AV+A!%‹ )  A ‚4Y6‹-Š) @€* A049 APA@d9-- Write sector to disk›>/+(ý WRITE SECTOR Ž TO DISK (Y/N)/‚H, ‚0Y"(SECTOR NOT WRITTEN, ApRVAp@‡'AqA(1 A5‡L(ýÄÉÓË ×ÒÉÔÅ ÅÒÒÏÒ¡V Ap\(SECTOR WRITTENfAA$pa+ŠAA# A C6‰-F:%€,%AV$F:%@,I6-Ša(} ÓÅÃÔÏÒ ÔÒÁÃÅzQ(FILE ‹ ,‡-%@%@7(>:F:‡,,; ‡Q( START SECTOR=Œ„% 6Ž-Œ A€ A0%6-%€ŽaF:A,‹(7(ý FILE # MISMATCH @ SECTOR ŽQ( CHECK PREV SEC LINKSW6‰-Ša @€˜ŒA P¢' "‰(END6‰-Š6‹-Š' @€¬I((ý FILE SIZE ERROR9( SECTORS INSTEAD OF ‰?6‰-ŠI @€¶/F:A %†,†&@/(PARTIAL SECTORÀ?F:@„,!@5( PUSH ÒÅÔÕÒÎ TO CONTINUE? @€Ê$ (Œ,!F:@…,!@5$(Ô A Þ^)( FILE NUMBER or ÒÅÔÕÒÎ TO ABORT-7 A0@6‹-A:,^‹ )‹!@cAès6‡-P:‹'@,"6Ž-‡%AaD6-@$+‹&‡$@,%A!N APWF:, €i( ýNO FILE# ‹s A ò,)6Œ-F:%@,%AV$F:%@,,$ü1 APA@ 1-- Modify Links›S1Ž @)Ž!AY*Ž Ai)Ž"…)Ž!A#I(ýÎÏ ÌÉÎËÓ ÔÏ ÍÏÄÉÆÙS @€9&( NEW NEXT SECTOR # or ÒÅÔÕÒÎ*94Apg A06-A:,D @)!AY* Ai)…)!A#](ýÉÎÖÁÌÉÄ ÓÅÃÔÏÒ ÌÉÎËg A@$ 6Œ-.C( NEW FILE # or ÒÅÔÕÒÎ#*496-F:A,C A8D A06-A:,& Š)!@c:(ýÉÎÖÁÌÉÄ ÆÉÌÅ £D ApBD6‡-P:Œ'AV,,A%†Œ&AV$‡DA%†@$%‡L A  @€VY A€3"AA„D6ˆ-@@&@ $N:F:@‡,,Y(ÐÒÉÎÔÉÎÇ ÓÃÒÅÅÎ`C'6‡-F:@ˆ,%AV$F:@‰,&€;‡-‡‡%@$ˆˆC-€ˆj-6‚.>:F:‡%,,‚3-6‚.>:@:‚,&A(,t‚3`*‚2{)‚4|A`~'6‚.>:@:‚,%@2,‚3_'6‚..ˆ 67,.‚ 3 ‡’)AA A) @€œ-#(ý ÐÒÉÎÔÅÒ ÄÏÅÓ ÎÏÔ ÒÅÓÐÏÎÄ- Ap¦Q+ŠA@d# A )6-ŽI(ÕÎÄÅÌÅÔÉÎǯÃÌÏÓÉÎÇ FILE ‹Q6‚.B°: 6ˆ-Ž6Ž-Œ A€# A0:F:A,"‹A0ºO‰ 6Ž-ˆ A€-A%†‹$@;A%†ŠE APO A@Ä 6‚.€ A@Î 6‰-‰%€ŒAØD 6Ž- A€$6‡-P:‰'AV,6%€‰&AV$‡D%@‡âP @:‚, AP(7( COPY TO ANOTHER DISK ÎÏ×:(@6‹-ŠF6‰-‹P @€ì))104,141,254,2,104,170,104,72,24,105›ö**253,133,214,138,105,3,133,215,142,72›''3,169,11,141,66,3,104,160,254,132› %%216,48,2,177,214,72,74,74,74,74›&&160,1,132,217,16,3,104,41,15,201›%%10,144,2,105,6,105,48,32,86,228›())198,217,16,238,169,32,32,86,228,230›2**216,48,247,164,216,192,8,144,210,160›<((0,152,72,177,214,201,155,208,2,169›F((46,32,86,228,104,168,200,192,8,144›P**236,142,254,2,96,104,104,104,170,189›Z%%251,3,72,41,3,133,213,104,74,74›d))133,203,189,252,3,133,212,189,253,3›n))133,204,96,104,133,213,169,83,141,2›x((3,32,83,228,136,132,212,96,104,104›‚$$141,9,3,104,141,8,3,104,141,11›Œ##3,104,141,10,3,169,49,141,0,3›–##169,7,141,6,3,32,89,228,172,3› ""3,136,132,212,132,213,96,END›€D:DISKMEND.BAS