home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 1065.dms / 1065.adf / Cross / txt / FileReq.def < prev    next >
Text File  |  1987-06-04  |  474b  |  25 lines
  1. DEFINITION MODULE FileReq;
  2.  
  3.  
  4. FROM ARP IMPORT FileRequester;
  5. FROM SYSTEM IMPORT ADDRESS;
  6.  
  7.  
  8. TYPE FileString=ARRAY[0..256] OF CHAR;
  9.      FileRequestData=
  10.       RECORD
  11.        fr: FileRequester;
  12.        h,f,d: FileString;
  13.       END;
  14.  
  15.  
  16. PROCEDURE MakeFRD(    header,deffile,defdir: FileString;
  17.                       reqwindow: ADDRESS;
  18.                   VAR frd: FileRequestData);
  19.  
  20. PROCEDURE FileReq(VAR frd: FileRequestData;
  21.                   VAR name: FileString);
  22.  
  23.  
  24. END FileReq.
  25.