home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib29a.dsk / NOVEMBER.1986 / DIRECTORY.bas < prev    next >
BASIC Source File  |  2023-02-26  |  624b  |  20 lines
  1. 10  REM  **********************
  2. 20  REM  *     DIRECTORY      *
  3. 30  REM  *  BY LARRY W. BEAM  *
  4. 40  REM  * COPYRIGHT (C) 1986 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80 D$ =  CHR$(4)
  9. 90  PRINT D$;"PREFIX": INPUT PREFIX$
  10. 100 PREFIX$ =  LEFT$(PREFIX$, LEN(PREFIX$) -1)
  11. 110  PRINT D$;"OPEN";PREFIX$,",TDIR"
  12. 120  PRINT D$;"READ";PREFIX$
  13. 130  INPUT VOLUME$: PRINT VOLUME$
  14. 140  PRINT 
  15. 150  INPUT TITLES$: PRINT TITLES$
  16. 160  INPUT BLANK$: PRINT BLANK$
  17. 170  INPUT FILES$: PRINT FILE$
  18. 180  IF FILES$ < >""  THEN  GOTO 170
  19. 190  INPUT USAGE$: PRINT USAGE$
  20. 200  PRINT D$;"CLOSE"