Help Me!! Getting CATALOG into an Array Variable

[jonINTERNETrelayCHAT@napaVALLEYnet.CLARInet (Jon Bettencourt)]

I'm trying to get the CATALOG of the current ProDOS directory into an
array in Applesoft.

I've tried:

63900 D$=CHR$(4)
63905 PRINT D$;"CATALOG"
63910 L=1
63915 INPUT CD$(L)
63920 L=L+1
63925 IF LEFT$(CD$(L-1),6) = "BLOCKS" THEN GOTO 63935
63930 GOTO 63915
63935 RETURN

and

63900 D$=CHR$(4)
63905 PRINT D$;"OPEN XX.CAT.TEMP":PRINT D$;"WRITE XX.CAT.TEMP":PRINT
D$;"CATALOG":PRINT "(checkerboard character)":PRINT D$:PRINT D$;"CLOSE
XX.CAT.TEMP"
63910 PRINT D$;"EXEC XX.CAT.TEMP"
63915 L=1
63920 INPUT CD$(L)
63925 L=L+1
63930 IF CD$(L-1) = "(checkerboard character)" THEN GOTO 63940
63935 GOTO 63920
63940 PRINT D$;"DELETE XX.CAT.TEMP"
63945 RETURN

The catalog listing just gets printed, and I have to type in something
(for the INPUT statements). I've also tried using GET statements instead.
Is there something I'm missing?

-- 
/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
jonrelay@napanet.net                        dimension18.cjb.net
"Remember, if it's not a secure web server, it's an _insecure_
web server!"                                              -- Me

 *_     Syntax Error: an error on a criminal's tax record.
   |    Bad Subscript: a criminal reading a book on a subway.
  ---   Unimplemented Trap: when a bear trap isn't set up 
 |' ,|  properly and thus does not work.
  ---   Overflow: too many ice cubes.      <Can't Restart>

Figure 1.1: Most Applications Crash - If Not, The Operating
            System Hangs

               I just upgraded to System 7.6!
          Don't forget: Tammy Day on February 15th!
Please remove capital letters from my e-mail address to respond.