home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / lilith / m2recv.def < prev    next >
Text File  |  2020-01-01  |  811b  |  21 lines
  1. DEFINITION MODULE KermRecv;
  2. (************************************************************************)
  3. (*  Receive one or more files from remote Kermit                        *)
  4. (*  written:            08.10.85     Matthias Aebi                      *)
  5. (*  last modification:  25.02.86     Matthias Aebi                      *)
  6. (************************************************************************)
  7.  
  8. EXPORT QUALIFIED Receive, RecvPacket, SwitchRecv;
  9.  
  10. PROCEDURE Receive;
  11. (* Handle receive dialog and receive one or more files *)
  12.  
  13. PROCEDURE RecvPacket(VAR typ: CHAR; VAR num, len: CARDINAL;
  14.                      VAR data: ARRAY OF CHAR);
  15. (* Receive a packet *)
  16.  
  17. PROCEDURE SwitchRecv(saveName: ARRAY OF CHAR): BOOLEAN;
  18. (* Receive one or more files. Returns TRUE if the receive was successful *)
  19.  
  20. END KermRecv.
  21.