*** CHECK C64 OR C128(C18473M1828>M2866R(768)139505^#C14883j(M14864v-M249022(215)1285057Z$"SETUP 40 COLUMN SCREEN->CR CONT'S"<215A185F65375K&P505U *** CURSOR FLASHZX12"_DCN,((DCN)128)255-dY016iY,X<nQs *** DISK CHECKcx15,E,EM$,T,So}E20x230200""E;EM$;T;SZ$"FIX DISK-> CONT'S"21518515 *** INVALID TRK/SEC MSGZ$"INVALID "ZZ$"-> CONT'S"&215.Q$AQ$(13)185Y *** CLEAR MESSAGE""17)""(SP$,22) *** PRINT MESSAGE""17)""Z$"" *** CLEAR DATA SCREENC1 *** ADJUST STRING3X$("00"((X),((X))1),Y)9_ *** SECTOR VALIDITY CHECK VALUETM35SR202(TRK17)(TRK24)(TRK30) TM70SR202(TRK52)(TRK59)(TRK65) *** CONVERT TO HEXX101N%V(16X) "VVN%16X 'V$V$(HE$,N%1,1)' ,X- 1D 6 *** ARE YOU SUREa ;Z$" (Y/N)?"j @215r EQ$ JQ$"Y"Q$"N"325 O T *** LOAD READ FILE ML Y162,2,32,198,255,160,0,32,228,255,153,144,5,200,208 ^247,76,204,2554!c169,32,162,3,160,0,153,144,5,200,208,250,138,153,144L!h217,200,208,250,96j!mBE0XM1M2:A:X,A:X!r *** INSERT DISK!wZ$"INSERT DISK-> CONT'S"!|215!185!15,8,15,"I0"!120! *** READ DISK NAME & ID!2,8,2,"#""15,"U1:";2;0;18;0%"15,"B-P";2;1440"NA$""A"X1441632P"#2,B$,BB$c"NA$NA$B$BB$j"X" *** GET DISK DRIVE TYPE (128=1571)"15,"B-P";2;3"#2,B$"DK(B$)"TM35"DK128C14883TM70# *** PRINT DISK NAME & ID'#""(NA$,16)""(NA$,2)"".#27#BE1=#\# *** EDITOR INIT & SCREENi#53280,1v#53281,1#(147)(14);#D1424# P$(500)#SP$" "#HE$"0123456789ABCDEF" $" ";W$!"ݖISKETTE AME ݖ ݖUMP INK ";$&" ";$+" ݚT= ݚS= ";$0" ";%5"";W%:"ݖYTݖYT ALUEݖXAMININGݖEXT INK ";%?"";%D" ݚ$ ݚT= ݚS= ݚT= ݚS= ";%I"";+&N" ";D&S""u&X"F - SECTOR FORWARD J - JUMP TO LINK"&]"B - SECTOR BACKWARD E - EDIT TEXT"&b"I - TRACK INCREMENT M - MODIFY VALUE"'g"D - TRACK DECREMENT R - RE-WRITE SEC"8'l"N - NEXT LINK L - LPRINT TRK/SEC"i'q"P - PREVIOUS LINK S - SWITCH DISKS"'v"C - CHANGE TRK/SEC Q - QUIT"'{BE0345' *** INPUT START TRACK & SECTOR'"NPUT ˒ ";'TRK'PL.%(" ˒ "TRK>("NPUT Ғ ";G(SECr(TRK1TRKTM230:ZZ$"TRK":175:645{(260(SEC0SECSRZZ$"SEC":175:655(230(CN0( *** READ FILE(2,8,2,"#"(15,"U1:";2;0;TRK;SEC(120 )15,"B-P:2,0")M1)2>) *** PREPARE STRINGS FOR PRINTF)Y2P)XTRKY)245c)T$X$m)XSECv)245)S$X$)Y3) X(D))245)L1$X$)X(D1)) 245)%L2$X$)*Y3)/XCN)4245)9CT$X$)>V(DCN)*CXV *H245*MVA$X$!*RV$""**W280A*\(V$)2V$"0"V$Q*aV(DCN1)Y*fXVb*k245m*pVB$X$*u *** PRINT DATA VALUES*z"";29);VA$;3);VB$*"";CT$;6);VA$;11);V$*1358,(DCN)+"";19);T$;"";S$;"";L1$;""L2$""0+ *** GET COMMAND;+CK$""D+CK$Y+CK$""85:915j+CK$""970{+CK$""990+CK$""1010+CK$""1035+CK(CK$)65+CK1CK18915",CK1120,1080,1190,1275,1095,915,915,1160,1060,915,1565,1330,1210,915,1245,1540,1470,1705?, *** CMD - CURSOR RIGHTK,CNCN1\,CN255CN0e,810, *** CMD - CURSOR LEFT,CNCN1,CN0CN255,810, *** CMD - CURSOR DOWN,CN239CNCN280,CN215CNCN240,CNCN40-810- *** CMD - CURSOR UP4- CN16CNCN280O-CN15CN40CNCN240\-CNCN40e-810- *** CMD - JMP TO LINK UNDER CRSR-$TRK(DCN)-)SEC(DCN1)-.675-3 *** CMD - CHANGE TRK/SEC-8230-=645.B *** CMD - SECTOR FORWARD.GSECSEC1.L260H.QSECSRTRKTRK1:SEC0:TRKTMTRK1Q.V675q.[ *** CMD - SECTOR BACKWARD.`SECSEC1.eSEC0675.jTRKTRK1.oTRK1TRKTM.t260.ySECSR.~675. *** CMD - TRACK INCREMENT.TRKTRK16/TRKTMTRKTM:Z$"RK TO I-> CONT'S":215:185:675?/260y/SECSRZ$"EC TO I-> CONT'S":215:185:TRKTRK1/675/ *** CMD - TRACK DECREMENT/TRKTRK1/TRK1Z$"RK TO O-> CONT'S":215:185:TRK1/6750 *** CMD - NEXT LINK0P$(PL)(TRK).0P$(PL1)(SEC):0PLPL2I0TRK(L1$)X0SEC(L2$)a06750 *** CMD - PREVIOUS LINK0PL09150PLPL20TRK(P$(PL))0SEC(P$(PL1))06750 *** CMD - EDIT TEXT1Z$"EDIT TEXT - TO QUIT" 12151TX$""1 TX$51TX$""85:1285N1TX$(13)200:810_1DCN,(TX$)k1CNCN1|1#CN255CN01(12851- *** CMD - MODIFY VALUE12Z$"MODIFY VAL-> TO QUIT"172151<C01AX121F1350C,((1350C)128)255 2KY012PY,X2UC$""%2ZC$52_C$""1345L2dC$""C2CC1c2iC$""C0CC1|2nC$(13)200:14152s(C$)48(C$)5713452x1350C,(C$)2}C$""213802C$""2X022C$C$((1350X))2X2V(C$)3V256DCN,V:81043Z$"BAD VALUE-> CONT'S"=3215F3185P31330p3 *** CMD - RE-WRITE SECTORy33153Q$"N"200:91532,8,2,"#"315,"U1:";2;0;TRK;SEC3120315,"B-P:";2;03X025532,((1424X));3X415,"U2:";2;0;TRK;SEC42'420004915E4 *** CMD - QUITN4315d4 Q$"N"200:915p4(147)v44 *** CMD - LPRINT TRK/SEC4Z$"OUTPUT TO PRINTER"4"2154'4,4,74,XX15414," - "NA$" - RACK"TRK"ECTOR"SEC564 5;Z15@Y0255&5EV(DY)05JV$""95O280P5T(V$)2V$"0"V$^5Y4,V$" ";z5^YXX1665:XXXX16:45cY5h45m45r45w2005|91554,(34);5CH(DZ1)5CH0CH32CH160CH13CH4654,(CH);6ZZ1 6ZXX6167046 *** CMD - SWITCH DISKS<615E6230N6345X61080