Path: utzoo!mnetor!uunet!ncc!alberta!att-ih!ihnp4!ucbvax!pro-avalon.cts.COM!carlb
From: carlb@pro-avalon.cts.COM (Carl Boernecke)
Newsgroups: comp.sys.apple
Subject: Re: Read /RAM catalog in AppleSoft
Message-ID: <8804162216.AA16190@crash.cts.com>
Date: 16 Apr 88 21:24:53 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: pnet01!pro-avalon!carlb@nosc.MIL
Organization: The Internet
Lines: 13

Try something like:

10 D$=CHR$(4):PRINT D$"OPEN /RAM,TDIR":PRINT D$"READ /RAM"
20 INPUT DN$:INPUT I$:REM DN$=DIRECTORY NAME, I$=DUMMY INPUT
30 ONERR GOTO 50:I=1
40 INPUT F$(I):I=I+1:GOTO 40
50 CALL 62248:POKE 216,0:PRINT D$"CLOSE"
60 BLOCKS$=F$(I):NF=I-3:REM BLOCKS$="BLOCKS FREE...", NF=NUMBER OF FILES
70 END

Of course, you must add a DIM F$(###) statement at the beginning of this
program if you have more than nine files in the directory you are reading. 
Also, the CALL 62248:POKE 216,0 is just a fix to the AppleSoft ONERR routine.