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 >
Wrap
Text File
|
1987-06-04
|
474b
|
25 lines
DEFINITION MODULE FileReq;
FROM ARP IMPORT FileRequester;
FROM SYSTEM IMPORT ADDRESS;
TYPE FileString=ARRAY[0..256] OF CHAR;
FileRequestData=
RECORD
fr: FileRequester;
h,f,d: FileString;
END;
PROCEDURE MakeFRD( header,deffile,defdir: FileString;
reqwindow: ADDRESS;
VAR frd: FileRequestData);
PROCEDURE FileReq(VAR frd: FileRequestData;
VAR name: FileString);
END FileReq.