home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL-INC.ZIP / GETFILE3.INT < prev    next >
Encoding:
Text File  |  1989-06-02  |  321 b   |  13 lines
  1. const
  2.    maxnumfiles =  200;
  3.    null =         #0;
  4. type
  5.    filearray =    array [1.. maxnumfiles] of varstring;
  6. var
  7.    filetable:     filearray;
  8.    filecount:     integer;
  9.  
  10. procedure getfiles (pattern:       string65;
  11.                     var fdir:      filearray;
  12.                     var num:       integer);
  13.