home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / CATLOG / ORGANIZR.LBR / SEARCH.BZS / SEARCH.BAS
BASIC Source File  |  2000-06-30  |  512b  |  24 lines
  1. 10 PRINT CHR$(27)+"E"
  2. 20 LINE INPUT "ENTER THE NAME OF THE FILE YOU ARE LOOKIN FOR>";C$
  3. 30 C$=":"+C$
  4. 40 ON ERROR GOTO 160
  5. 50 PRINT
  6. 60 FOR X=65 TO 67
  7. 70 A$=CHR$(X)
  8. 80 PRINT "DRIVE ";A$
  9. 90 B$=A$+C$
  10. 100 FILES B$
  11. 110 PRINT:PRINT
  12. 120 NEXT X
  13. 130 IF INKEY$="" THEN 130
  14. 140 PRINT STRING$(80,"*")
  15. 150 GOTO 50
  16. 160 '
  17. 170 IF ERL = 100 THEN PRINT "NOT on this Disk"
  18. 180 RESUME NEXT
  19. 190 ON ERROR GOTO 0
  20. INT STRING$(80,"*")
  21. 150 GOTO 50
  22. 160 '
  23. 170 IF ERL = 100 THEN PRINT "NOT on this Disk"
  24. 180 RESUME NEX