| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081 |
- Listing:
- 1 (* Release 3.10 *)
- 2 (*-------------------------------------------------------------------------*
- 3 * *
- 4 * COMSETUP.DEF - COMMS Toolkit setup *
- 5 * *
- 6 * COPYRIGHT (C) 1988..1992 Clarion Software Corporation. *
- 7 * All Rights Reserved *
- 8 * *
- 9 *--------------------------------------------------------------------------*)
- 10
- 11 DEFINITION MODULE ComSetup;
- 12 IMPORT RS232,Term;
- 13
- 14 TYPE
- 15 String80 = ARRAY[0..80] OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 16 CrTypes = (CR,CRLF);
- 17 SetupRec = RECORD
- 18 Serial : RECORD
- 19 Port : CARDINAL;
- 20 Baud,
- 21 DataBits,
- 22 StopBits : CARDINAL;
- 23 Parity : RS232.ParityCodes;
- ***** ^ not supported yet
- 24 FlowControl : RS232.FlowControls;
- ***** ^ not supported yet
- 25 END;
- ***** ^ not supported yet
- 26 General : RECORD
- 27 MaskBit7 : BOOLEAN;
- 28 CRInTranslation : CrTypes;
- 29 CROutTranslation: CrTypes;
- 30 ScriptDir : String80;
- 31 DownloadDir : String80;
- 32 END;
- ***** ^ not supported yet
- 33 Kermit : RECORD
- 34 Sync : CHAR;
- 35 MaxPacketSize : CARDINAL;
- 36 PadChar : CHAR;
- 37 NumPadChars : CARDINAL;
- 38 CtlQuote : CHAR;
- 39 ReptPrefix : CHAR;
- 40 EightBitQuote : CHAR;
- 41 ImageMode : BOOLEAN;
- 42 IBMMode : BOOLEAN;
- 43 EolChar : CHAR;
- 44 END;
- ***** ^ not supported yet
- 45 ASCII : RECORD
- 46 CharDelayMS : CARDINAL;
- 47 LineDelayMS : CARDINAL;
- 48 END;
- ***** ^ not supported yet
- 49 Emulation : Term.Emulations;
- ***** ^ not supported yet
- 50 Macros : ARRAY[0..9] OF String80;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 51 END;
- ***** ^ not supported yet
- 52
- 53 VAR
- 54 Setup : SetupRec;
- ***** ^ not supported yet
- 55
- 56 PROCEDURE InitSetup;
- 57 PROCEDURE ChangeSetup;
- 58 PROCEDURE SaveSetup;
- 59
- 60 END ComSetup.
- ***** ^ not supported yet
- 61
- 14 errors
|
