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