<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">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.
</pre></body></html>