home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
lilith.tar.gz
/
lilith.tar
/
m2recv.def
< prev
next >
Wrap
Text File
|
1988-08-16
|
811b
|
21 lines
DEFINITION MODULE KermRecv;
(************************************************************************)
(* Receive one or more files from remote Kermit *)
(* written: 08.10.85 Matthias Aebi *)
(* last modification: 25.02.86 Matthias Aebi *)
(************************************************************************)
EXPORT QUALIFIED Receive, RecvPacket, SwitchRecv;
PROCEDURE Receive;
(* Handle receive dialog and receive one or more files *)
PROCEDURE RecvPacket(VAR typ: CHAR; VAR num, len: CARDINAL;
VAR data: ARRAY OF CHAR);
(* Receive a packet *)
PROCEDURE SwitchRecv(saveName: ARRAY OF CHAR): BOOLEAN;
(* Receive one or more files. Returns TRUE if the receive was successful *)
END KermRecv.