home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / GETFILE2.DCL < prev    next >
Encoding:
Text File  |  1988-01-29  |  221 b   |  14 lines
  1.  
  2. const
  3.    maxnumfiles =  200;
  4.    null =         #0;
  5.  
  6. type
  7.    filestring =   string [64];
  8.    filearray =    array [1.. maxnumfiles] of filestring;
  9.  
  10.  
  11. var
  12.    filetable:     filearray;
  13.    filecount:     integer;
  14.