home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / CAT.TO.FILE.bas < prev    next >
BASIC Source File  |  2020-08-13  |  447b  |  15 lines
  1. 1  DIM L$(100)
  2. 5 RM$ = "/RAMAEPC/":F$ = "CAT"
  3. 10  PRINT  CHR$(4)"PREFIX": INPUT PR$
  4. 15  PRINT  CHR$(4)"OPEN"PR$",TDIR": PRINT  CHR$(4)"READ"PR$
  5. 20  INPUT L$(N)
  6. 30  IF  LEFT$(L$(N),5) = "BLOCK"  THEN 50
  7. 40 N = N +1: GOTO 20
  8. 50  PRINT  CHR$(4)"CLOSE"PR$
  9. 55  PRINT "PREFIX="PR$
  10. 60  INPUT "SAVE CATALOG AS:";FI$
  11. 90  PRINT  CHR$(4)"OPEN"FI$: PRINT  CHR$(4)"WRITE"FI$
  12. 100  FOR I = 1 TO N
  13. 110  PRINT  LEFT$(L$(I),39)
  14. 120  NEXT 
  15. 130  PRINT  CHR$(4)"CLOSE"