[Coco] Basic09 Directory Handling.

[coco at jechar.ca]

This short program packs but gets an error 203 when I run it.
I also tried OPEN #fp,qdir$:READ but that got an error 214.
The command line was _gdir /d1
Where did I go wrong?

PROCEDURE _gdir
DIM entry$:STRING
DIM count:INTEGER
DIM fp:BYTE
PARAM qdir$:STRING

OPEN #fp,qdir$:DIR
WHILE NOT(EOF(#fp)) DO
      READ  #fp,entry$
      PRINT count;
      PRINT TAB(8);"      "+entry$
ENDWHILE
CLOSE #fp
END

Charlie