(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  COMSETUP.DEF - COMMS Toolkit setup                                      *
*                                                                          *
*  COPYRIGHT (C) 1988..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

DEFINITION MODULE ComSetup;
  IMPORT RS232,Term;

  TYPE
    String80            = ARRAY[0..80] OF CHAR;
    CrTypes             = (CR,CRLF);
    SetupRec            = RECORD
                            Serial     : RECORD
                                           Port            : CARDINAL;
                                           Baud,
                                           DataBits,
                                           StopBits        : CARDINAL;
                                           Parity          : RS232.ParityCodes;
                                           FlowControl     : RS232.FlowControls;
                                         END;
                            General    : RECORD
                                           MaskBit7        : BOOLEAN;
                                           CRInTranslation : CrTypes;
                                           CROutTranslation: CrTypes;
                                           ScriptDir       : String80;
                                           DownloadDir     : String80;
                                         END;
                            Kermit     : RECORD
                                           Sync            : CHAR;
                                           MaxPacketSize   : CARDINAL;
                                           PadChar         : CHAR;
                                           NumPadChars     : CARDINAL;
                                           CtlQuote        : CHAR;
                                           ReptPrefix      : CHAR;
                                           EightBitQuote   : CHAR;
                                           ImageMode       : BOOLEAN;
                                           IBMMode         : BOOLEAN;
                                           EolChar         : CHAR;
                                         END;
                            ASCII      : RECORD
                                           CharDelayMS     : CARDINAL;
                                           LineDelayMS     : CARDINAL;
                                         END;
                            Emulation  : Term.Emulations;
                            Macros     : ARRAY[0..9] OF String80;
                          END;

  VAR
    Setup               : SetupRec;

  PROCEDURE InitSetup;
  PROCEDURE ChangeSetup;
  PROCEDURE SaveSetup;

END ComSetup.