d 800: INITIALIZE:n 400: READ & PROCESS SECTORQxSS2: T20 110^ 5: 15| *** DISPLAY RESULTS ***"DEVICE:"DV"DISK NAME: "DN$"DISK ID:"ID$"TOTAL DIRECTORY ENTRIES:"QPURD"PRG:"P:"SEQ:"Q "REL:"R:"USR:"U "DEL:"D5 :"BLOCKS FREE:"BF; U  *** READ SECTOR ***{ "DIRECTORY ENTRIES:"QPURD "READING TRACK 18; SECTOR "((S),2)"... " 15,"U1";5;0;18;S  NEXT TRACK #5,A$:T2(A$(0))  NEXT SECTOR #5,A$:S2(A$(0))5  *** PROCESS SECTOR ***W  N0 7: 8 DIR ENTRIES P/Sn 15,"B-P";5;N322 #5,A$:Y(A$(0))  Y128 DD1: DEL FILE  Y129 QQ1: SEQ FILE  Y130 PP1: PRG FILE & Y131 UU1: USR FILE! 0 Y132 RR1: REL FILE) : N/ DH  *** INITIALIZE ***` *"DEVICE: 8";DVy /S1: SECTOR TO READ 4 15,DV,15 > 5,DV,5,"#" @ --- GET DISK NAME --- B15,"U1";5;0;18;0 D15,"B-P";5;144 FI116:#5,A$:A$""A$(0) HL(A$):L127LL1280 JL32L95L63? LL34L63P NDN$DN$(L)W PIq R --- GET DISK ID --- T15,"B-P";5;162 V#5,ID$:#5,A$:ID$ID$A$ X"DEVICE:"DV Z"DISK NAME: "DN$ \"DISK ID:"ID$""  --- GET BLOCKS FREE --- I41404% 15,"B-P";5,IA #5,A$:BFBF(A$(0))H IN