DEFINITION MODULE PAD; (* Packet Assembler/Disassembler for Kermit *) FROM PMWIN IMPORT MPARAM; EXPORT QUALIFIED WM_PAD, PAD_Quit, PAD_Error, PacketType, yourNPAD, yourPADC, yourEOL, Aborted, sFname, Send, Receive, DoPADMsg; CONST WM_PAD = 5000H; PAD_Quit = 0; PAD_Error = 20; TYPE (* PacketType used in both PAD and DataLink modules *) PacketType = ARRAY [1..100] OF CHAR; VAR (* yourNPAD, yourPADC, and yourEOL used in both PAD and DataLink *) yourNPAD : CARDINAL; (* number of padding characters *) yourPADC : CHAR; (* padding characters *) yourEOL : CHAR; (* End Of Line -- terminator *) sFname : ARRAY [0..20] OF CHAR; Aborted : BOOLEAN; PROCEDURE Send; (* Sends a file after prompting for filename *) PROCEDURE Receive; (* Receives a file (or files) *) PROCEDURE DoPADMsg (mp1, mp2 [VALUE] : MPARAM); (* Output messages for Packet Assembler/Disassembler *) END PAD.