CONST Prompt = 'Kermit-ND>'; Version = '3.1b'; (* based on Kermit Protocol version 3 *) MaxPack = 62; MyTime = 5; MyPad = 0; MyPChar = 0; MyEoln = 13; MyQuote = '#'; My8Quote = '&'; (* New constant for integer-version of time-out calculation: *) Del20Chars = 1; (* Expected time before 20 characters on input *) (* - measured in basic time-units (20 ms) *) (* that is: on a 9600 terminal line *) BUnits = 1; (* for monitor call XHOLD *) SUnits = 2; (* - " - *) LongWait = 4; (* Multiplication factor for TimeOut during *) (* SendFileHeader (to allow for opening file) *) InPart = FALSE; (* Hopefully attach some mnemonic significance *) OutPart = TRUE; (* to flag states *) NoWait = TRUE; LineDev = TRUE; TermDev = FALSE; OldFile = FALSE; NewFile = TRUE; RemIn = 202B; (* Logical device numbers of internal devices *) RemOut = 201B; (* connected to remote line server (foreground) *) Chunk = 20; (* Number of characters to read into ringbuffer before starting read operation, i.e. number of consecutive INBT's with no intervening polling *) DefFtype = 'SYMB'; (* If no file type is specified -- *) (* constants used in type-definitions: *) MinString = 0; MaxString = 99; MInt = 51; (* DIRTY - used in variant-record to get the same effect as FORTRAN EQUIVALENCE *) MinName = 1; MaxName = 80; MaxFType = 4; MaxWord = 20; MinWord = 1; DoTranslate = TRUE; NoTranslate = FALSE; Success = TRUE; Failure = FALSE;