[Coco] Basic09 Directory Handling.

coco at jechar.ca coco at jechar.ca
Fri Aug 14 13:30:16 EDT 2020


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


More information about the Coco mailing list