home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / norskdata.tar.gz / norskdata.tar / ndkcon.pas < prev    next >
Pascal/Delphi Source File  |  1985-06-24  |  2KB  |  58 lines
  1. CONST
  2.     Prompt      =   'Kermit-ND>';
  3.     Version     =   '3.1b';  (* based on Kermit Protocol version 3 *)
  4.  
  5.     MaxPack     =    62;
  6.     MyTime      =     5;
  7.     MyPad       =     0;
  8.     MyPChar     =     0;
  9.     MyEoln      =    13;
  10.     MyQuote     =   '#';
  11.     My8Quote    =   '&';
  12.  
  13. (*  New constant for integer-version of time-out calculation: *)
  14.     Del20Chars  =     1;    (* Expected time before 20 characters on input *)
  15.                             (*  - measured in basic time-units (20 ms)     *)
  16.                             (* that is: on a 9600 terminal line            *)
  17.     BUnits      =    1;     (* for monitor call XHOLD                      *)
  18.     SUnits      =    2;     (*      -   "   -                              *)
  19.  
  20.     LongWait    =    4;     (* Multiplication factor for TimeOut during *)
  21.                             (* SendFileHeader (to allow for opening file) *)
  22.  
  23.     InPart      =  FALSE;   (* Hopefully attach some mnemonic significance  *)
  24.     OutPart     =  TRUE;    (* to flag states                               *)
  25.     NoWait      =  TRUE;
  26.     LineDev     =  TRUE;
  27.     TermDev     =  FALSE;
  28.     OldFile     =  FALSE;
  29.     NewFile     =  TRUE;
  30.  
  31.     RemIn       =   202B;   (* Logical device numbers of internal devices   *)
  32.     RemOut      =   201B;   (* connected to remote line server (foreground) *)
  33.  
  34.     Chunk       =   20;     (* Number of characters to read into ringbuffer
  35.                                before starting read operation, i.e. number
  36.                                of consecutive INBT's with no intervening polling *)
  37.  
  38.     DefFtype    =   'SYMB';     (* If no file type is specified -- *)
  39.  
  40.     (* constants used in type-definitions: *)
  41.     MinString   =     0;
  42.     MaxString   =    99;
  43.     MInt        =    51;    (* DIRTY - used in variant-record to get the
  44.                                same effect as FORTRAN EQUIVALENCE *)
  45.     MinName     =     1;
  46.     MaxName     =    80;
  47.     MaxFType    =     4;
  48.  
  49.     MaxWord     =    20;
  50.     MinWord     =     1;
  51.  
  52.     DoTranslate =  TRUE;
  53.     NoTranslate = FALSE;
  54.  
  55.     Success     =  TRUE;
  56.     Failure     = FALSE;
  57. 
  58.