home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / os2pm / pad.def < prev    next >
Text File  |  2020-01-01  |  1KB  |  37 lines
  1. DEFINITION MODULE PAD;   (* Packet Assembler/Disassembler for Kermit *)
  2.  
  3.    FROM PMWIN IMPORT
  4.       MPARAM;
  5.  
  6.    EXPORT QUALIFIED
  7.       WM_PAD, PAD_Quit, PAD_Error, PacketType, yourNPAD, yourPADC, yourEOL,
  8.       Aborted, sFname, Send, Receive, DoPADMsg;
  9.  
  10.    CONST
  11.       WM_PAD = 5000H;
  12.       PAD_Quit = 0;
  13.       PAD_Error = 20;
  14.  
  15.    TYPE
  16.       (* PacketType used in both PAD and DataLink modules *)
  17.       PacketType = ARRAY [1..100] OF CHAR;
  18.  
  19.    VAR
  20.       (* yourNPAD, yourPADC, and yourEOL used in both PAD and DataLink *)
  21.       yourNPAD : CARDINAL;   (* number of padding characters *)
  22.       yourPADC : CHAR;       (* padding characters *)
  23.       yourEOL  : CHAR;       (* End Of Line -- terminator *)
  24.       sFname : ARRAY [0..20] OF CHAR;
  25.       Aborted : BOOLEAN;
  26.  
  27.    PROCEDURE Send;
  28.    (* Sends a file after prompting for filename *)
  29.  
  30.    PROCEDURE Receive;
  31.    (* Receives a file (or files) *)
  32.  
  33.    PROCEDURE DoPADMsg (mp1, mp2 [VALUE] : MPARAM);
  34.    (* Output messages for Packet Assembler/Disassembler *)
  35.  
  36. END PAD.
  37.