MODULA - M2PROT.ZIP - QCXM.DEF

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

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

(* 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;
FROM FioAsm IMPORT PathStr;
FROM QCxmzero IMPORT ProtoSet;
FROM QCcomm IMPORT XModem, XModem1K;

CONST
SimpleXmProtos = ProtoSet{XModem, XModem1K};

PROCEDURE ReceiveXmodem( FilePath, FileName : PathStr );

PROCEDURE SendXmodem( ThisFile: FilePtr );

END QCxm.