home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25b.dsk / CREATE.INDEX.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  35 lines
  1. 1  REM **********************
  2. 2  REM *    CREATE.INDEX    *
  3. 3  REM *    BY JIM GANZ     *
  4. 4  REM * COPYRIGHT (C) 1985 *
  5. 5  REM * BY MICROSPARC, INC *
  6. 6  REM * CONCORD, MA  01742 *
  7. 7  REM **********************
  8. 100  REM CREATE INDEXFILE FOR ECF
  9. 110  TEXT : HOME : VTAB 23: PRINT "* COPYRIGHT 1985 BY MICROSPARC, INC. *": VTAB 5
  10. 120  PRINT "THIS PROGRAM SETS UP THE INDEXFILE FOR": PRINT 
  11. 130  PRINT "USE WITH THE EXECUTIVE CARD FILE SYSTEM.";: PRINT 
  12. 140  PRINT 
  13. 150  PRINT "INSERT THE DISK ON WHICH YOU WISH"
  14. 160  PRINT "THE INDEXFILE TO BE CREATED..."
  15. 170  PRINT : PRINT 
  16. 180  PRINT "PRESS ";: INVERSE : PRINT "RETURN";: NORMAL : INPUT " WHEN READY ";A$
  17. 190  VTAB  PEEK(37): CALL  -868
  18. 200 D$ =  CHR$(4)
  19. 210 FI$ = "ECF.INDEXFILE"
  20. 220  ONERR  GOTO 310
  21. 230  PRINT D$"VERIFY"FI$
  22. 240  PRINT "THE INDEXFILE IS ALREADY ON THIS DISK..."
  23. 250  PRINT "PRESS ";: INVERSE : PRINT "RETURN";: NORMAL : PRINT " TO REPLACE IT, ";: INVERSE : PRINT "ESC";: NORMAL : PRINT " TO EXIT ";
  24. 260  GET A$
  25. 270  IF A$ < > CHR$(13)  AND A$ < > CHR$(27)  THEN 260
  26. 280  PRINT : IF A$ =  CHR$(27)  THEN 370
  27. 290  PRINT D$"OPEN"FI$: PRINT D$"CLOSE"FI$: PRINT D$"DELETE"FI$
  28. 300  GOTO 320
  29. 310  IF  PEEK(222) < >6  THEN  STOP 
  30. 320  POKE 216,0
  31. 330  PRINT D$"OPEN"FI$",L83"
  32. 340  PRINT D$"WRITE"FI$",R0"
  33. 350  PRINT 0
  34. 360  PRINT D$"CLOSE"
  35. 370  HOME : END