1001/d******************************Sn* DISPLAY ANY TRACK $ SECTOR *wx* ON THE DISK TO THE SCREEN ** OR THE PRINTER *******************************"""DISPLAY BLOCK CONTENTS""":A******************************e* SET PROGRAM CONSTANT *******************************SP$" ":NL$(0):HX$"0123456789ABCDEF"FS$"":I64 95:FS$FS$""(I)"": ISS$" ": I192 223:SS$SS$""(I)"": I+ A$(15),NB(2)6D$"0"e" SCREENOR PRINTER"|JJ$: JJ$"" 254 JJ$"S"" SCREEN" JJ$"P"" PRINTER"15,8,15,"I"D$: 650 4,4 2,8,2,"#": 650 ******************************D"* LOAD TRACK AND SECTOR *h,* INTO DISK BUFFER *6******************************@"TRACK, SECTOR";T,SJ T0 T35 15,"I"D$:2:4:15:"END":T JJ$"S" "TRACK"T" SECTOR"S"".U JJ$"P" 4:4,"TRACK"T" SECTOR"S:4I^15,"U1:2,"D$;T;S:650mh******************************r* READ BYTE 0 OF DISK BUFFER *******************************15,"B-P:2,1"15,"M-R"(0)(5) #15,A$(0):A$(0)""A$(0)NL$  JJ$"S"430$  JJ$"P"460H ******************************l * READ & CRT DISPLAY * * REST OF THE DISK BUFFER * ****************************** K1:NB(1)(A$(0))  J0 63: J32 710: Z$"N" J80: 458  IK 31 #2,A$(I): A$(I)"" A$(I)NL$R  K1 I2 NB(2)(A$(I))^  I:K0 A$"":B$":":NJ4: 790:A$A$":"  I0 3:N(A$(I)): 790 C$A$(I): 850:B$B$C$  I: JJ$"S" A$B$  J:571 ******************************/ * READ & PRINTER DISPLAY *S ******************************j K1:NB(1)(A$(0))y  J0 15  IK 15 #2,A$(I): A$(I)"" A$(I)NL$  K1 I2 NB(2)(A$(I))  I:K0 A$"":B$":":NJ16: 790:A$A$":"7  I0 15:N(A$(I)): 790: Z$"N" J40: 571S C$A$(I): 850:B$B$C$[  Is  JJ$"P" 4,A$B$  J:571 ;****************************** <* NEXT TRACK AND SECTOR * =****************************** ?"NEXT TRACK AND SECTOR"NB(1)NB(2) ""@ D"DO YOU WANT NEXT TRACK AND SECTOR"V N Z$: Z$"" 590z X Z$"Y" TNB(1):SNB(2):330 b Z$"N" 320 l 590 v****************************** * SUBROUTINES *******************************'* ERROR ROUTINE *K******************************k15,EN,EM$,ET,ES: EN0 "DISK ERROR"EN,EM$,ET,ES******************************* SCREEN CONTINUE MESSAGE *******************************"CONTINUE(Y/N)"-Z$: Z$"" 750> Z$"N" R Z$"Y" 750s "TRACK" T " SECTOR"S "":****************************** * DISK BYTE TO HEX PRINT ********************************4A1(N16):A$A$(HX$,A11,1)(>A2(N16A1):A$A$(HX$,A21,1)8HA$A$SP$:\R******************************\* DISK BYTE TO ASC DISPLAY *f* CHARACTER *p******************************z (C$)32 C$" ": (C$)128 (C$)159 "C$(SS$,3((C$)127),3):> CHECK DISK -- VER 1.4^DN8: FLOPPY DEVICE NUMBERT(100):S(100): BAD TRACK,SECTOR ARRAY"----------------------""CHECK DISK PROGRAM""----------------------"D$"0"15,DN,15  15,"V"D$N%(TI)255FA$"":I1255:A$A$(255(IN%)):P$1900`.2,DN,2,"#"m8:2,A$;y=T1:S0B15,"B-A:"D$;T;SL15,EN,EM$,ET,ESVEN01130[ET01200: END`15,"B-A:"D$;ET;ES:TET:SESj15,"U2:2,"D$;T;S nNBNB1:" CHECKED BLOCKS"NBMo" TRACK "T;" SECTOR "S""bt15,EN,EM$,ES,ETr~ EN01085T(J)T:S(J)S:JJ1"BAD BLOCKS:",T;S""108515,"I"D$19002J0"NO BAD BLOCKS!":2,DN,2,"#"("BAD BLOCKS","TRACK","SECTOR"5I0J1Q15,"B-A:";D4,T(I);S(I)b,,T(I),S(I)h""J"BAD BLOCKS HAVE BEEN ALLOCATED"2:l15,EN,EM$,ET,ESv EN0"ERROR #"EN,EM$;ET;ES""15,"I"D$