10 PRINT"1581 DRIVE FILE COUNTER V1.0"
20 PRINT"    BY BOB K7 KOBER"
30 INPUT"ENTER DRIVE NUMBER (8-11)";D
40 S=3:PRINT""
50 OPEN15,D,15,"I0":OPEN2,D,2,"#"
60 PRINT#15,"U1";2;0;40;S
70 PRINT"READING SECTOR #"S
80 FORI=2TO229STEP32:PRINT#15,"B-P";2;I
90 GET#2,A$:IFA$=""THENA$=CHR$(0)
100 IFASC(A$)=>128THENF=F+1
110 PRINT"FILES FOUND ="MID$(STR$(F),1)"[145][145]"
120 NEXT:PRINT"[145][145]":S=S+1:IFS=<40THEN60
130 PRINT"":CLOSE2:CLOSE15:END