[comp.sys.apple] Getting a Catalog into Applesoft in ProDOS

DANFUZZ@BROWNVM.BITNET (Dan Bornstein) (01/26/89)

It couldn't be easier. BASIC.SYSTEM has a nice feature: you can use "OPEN" and
"READ" on directory files. Assuming that P$ is the pathname of the directory
you want:

100 D$ = CHR$(4)
110 PRINT D$"OPEN "P$",TDIR"
120 PRINT D$"READ "P$",TDIR"    <-- I'm not sure if you need the TDIR here.

Subsequent INPUTS will return lines from the catalog just like you see them on
screen. You'll first get a header, then the directory lines, and then the
block info message. I use a loop that first skips the header, reads lines into
an array, and CLOSEs when I get the blank line right before the block info.

-Dan Bornstein

>>> My employer doesn't support the Apple II, but I do. <<<