Reading The Directory - Commodore 1541 User Manual

READING THE DIRECTORY
The directory of the diskette may be read just like a sequential file. Just use S for
the file name, and OPEN 5, 8, 5, "S". Now the GETS statement works to examine the
directory- The format here is identical to the format of a program file: the file sizes are
the line numbers, and names are stored as characters within quote marks.
Here's a program thai lets you read the directory of the diskette:
10
20
30
OPEN1,8,2,"S"
FORX=]TOI41:GET#1.AS:NEXT<
TS(O)="DEL":T$(l)="SEQ11:TS(2) = "PRG":TJ(3) = "l
T$(4)="REL"
J= 17:GOSUB500* ( DISK NAME'
N$ = BS
SET LENGTH OF ID STKINd
SET LENGTH OF OPERATING SYSTEM STRING
130 GET#1,AS
140 NEXT
160 PRINT CHRS (147) "DISK NAME:"N$,"ID:"I$."OS:"O$
161 PRINT "LENGTH","TYPE","NAME"
165 FOR P=1TO8
170
180
190
200
210
IF TS - ■'" THEN TS = CHRS(128)
J=15«
SLT LENGTH OF FILE NAMfc
LOW & HIGH BYTES
OF FILE LENGTH
GOSUB500
N$ = BS
220 GET#1,AS,AS,AS,A$,A$,A$,AS,A$,AS,C$,H$"
225 L = ASC(LS + CHR$(O)) + 256'ASC(H$ + CHR$(O)):IF L = (
227 IFSTTHENCLOSEhEND
230 PRINT L,TS(ASC(T$)-128),NS
250 IFP<8THEN GET#1,A$,AS
260 NEXT P:GOTOI65
500 B$=""
510 FOR L = 0TOJ
520 GET#1,AS
530 IF AS<>CHRS(96)THENIFAS<>CHRS(160)THENBS=B$ + AS
540 NEXT
550 RETURN
STRING
BUILDING
ROUTINE
24