[Coco] Basic09 Directory Handling.

L. Curtis Boyle curtisboyle at sasktel.net
Fri Aug 14 13:38:55 EDT 2020


If you use DIR+READ, does it work (not at my Coco at the moment to check). 

Sent from my iPhone

> On Aug 14, 2020, at 11:30 AM, coco at jechar.ca wrote:
> 
> 
> 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
> 
> -- 
> Coco mailing list
> Coco at maltedmedia.com
> https://pairlist5.pair.net/mailman/listinfo/coco
> 



More information about the Coco mailing list