home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / DIVERSEN / TIPI2A / DIRTEST.TPI < prev    next >
Text File  |  1994-10-04  |  174b  |  11 lines
  1. define dir ( -- )
  2.            ( filemask -- )
  3. # does a directory of files matching filemask
  4.  firstfile len
  5.  while
  6.   print$ cr nextfile len
  7.  wend
  8. enddef
  9.  
  10. "*.tpi" dir
  11.