DEFINITION MODULE XModem;

(* (C) Copyright 1987 Fitted Software Tools. All rights reserved.

    This module is part of the example multitasking communications program
    provided with the Fitted Software Tools' Modula-2 development system.

    Registered users may use this program as is, or they may modify it to
    suit their needs or as an exercise.

    If you develop interesting derivatives of this program and would like
    to share it with others, we encourage you to upload a copy to our BBS.
*)


(*
    This module provides procedures that implement the XMODEM file
    transfer protocol.

    The file to be sent/received must be openned by the caller.

    The name of the file and its file descriptor are passed to these
    procedures.

    ok will reflect the success of the transfer.
*)

PROCEDURE SendFile( filename :ARRAY OF CHAR; fd :INTEGER; VAR ok :BOOLEAN );

PROCEDURE ReceiveFile( filename :ARRAY OF CHAR; fd :INTEGER; VAR ok :BOOLEAN );

END XModem.