Path: utzoo!attcan!cmtl01!matrox!uvm-gen!uunet!lll-winken!lll-lcc!ncis.llnl.gov!helios.ee.lbl.gov!pasteur!ucbvax!BROWNVM.BITNET!DANFUZZ
From: DANFUZZ@BROWNVM.BITNET (Dan Bornstein)
Newsgroups: comp.sys.apple
Subject: Re: Getting a Catalog into Applesoft in ProDOS
Message-ID: <8901251819.aa10633@SMOKE.BRL.MIL>
Date: 25 Jan 89 23:09:06 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 16

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. <<<