MODULA - M2PROT.ZIP - QCKERMIT.DEF

 
Output of file : QCKERMIT.DEF contained in archive : M2PROT.ZIP

(*# call(o_a_copy => off) *)
(*%F _fdata *)
(*# call(seg_name => null) *)
(*%E *)
(*# module(implementation=>on) *)
(*# data(seg_name => null) *)
DEFINITION MODULE QCkermit;

(* This JPI Modula-2 module is part of *)

(* QC -- a communications program *)
(* by Carl Neiburger *)
(* 169 N. 25th St.*)
(* San Jose, Calif. 95116 *)

(* CompuServe No. 72336,2257 *)

FROM PathFind IMPORT FilePtr;

PROCEDURE SendKermit( FileList: FilePtr );
PROCEDURE ReceiveKermit( Path, GetFile : ARRAY OF CHAR);
(* If GetFile > 0C, R packet will be sent *)

PROCEDURE KermitCmd( Cmd: CHAR );
(* Can send 'L'ogout or 'F'inish *)

END QCkermit.