home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / commodor / file1581.64 (.txt) < prev    next >
Commodore BASIC  |  1993-05-20  |  384b  |  14 lines
  1. 10 PRINT"1581 DRIVE FILE COUNTER V1.0"
  2. 20 PRINT"    BY BOB K7 KOBER"
  3. 30 INPUT"ENTER DRIVE NUMBER (8-11)";D
  4. 40 S=3:PRINT""
  5. 50 OPEN15,D,15,"I0":OPEN2,D,2,"#"
  6. 60 PRINT#15,"U1";2;0;40;S
  7. 70 PRINT"READING SECTOR #"S
  8. 80 FORI=2TO229STEP32:PRINT#15,"B-P";2;I
  9. 90 GET#2,A$:IFA$=""THENA$=CHR$(0)
  10. 100 IFASC(A$)=>128THENF=F+1
  11. 110 PRINT"FILES FOUND ="MID$(STR$(F),1)"[145][145]"
  12. 120 NEXT:PRINT"[145][145]":S=S+1:IFS=<40THEN60
  13. 130 PRINT"":CLOSE2:CLOSE15:END
  14.