home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / lilith / m2param.mod < prev    next >
Text File  |  2020-01-01  |  1KB  |  36 lines
  1. IMPLEMENTATION MODULE KermParam;
  2. (************************************************************************)
  3. (*  This module initializes and stores all global parameters            *)
  4. (*  written:            09.10.85     Matthias Aebi                      *)
  5. (*  last modification:  25.02.86     Matthias Aebi                      *)
  6. (************************************************************************)
  7.  
  8. FROM KermMisc IMPORT SetBaud;
  9.  
  10. BEGIN
  11.     LBaudRate     := 9600;
  12.     LCheckType    := 1;
  13.     LCurrPort     := 1;
  14.     LDebug        := FALSE;
  15.     LEcho         := FALSE;
  16.     LEOLChar      := CHR(13);
  17.     LEscChar      := CHR(28);    (* Ctrl-\ *)
  18.     LFileType     := text;
  19.     LFilNamConv   := TRUE;
  20.     LMaxRetries   := 13;
  21.     LNumOfPad     := 0;
  22.     LPackSize     := 94;
  23.     LPadChar      := CHR(0);
  24.     LParity       := none;
  25.     LPrefChar     := "&";
  26.     LPrompt       := "Kermit-M2";
  27.     LQuoteChar    := "#";
  28.     LStartChar    := CHR(1);    (* SOH *)
  29.     LTimeOut      := 10;
  30.     LTimer        := TRUE;
  31.     LWarning      := TRUE;
  32.     REOLChar      := CHR(13);
  33.  
  34.     SetBaud(LBaudRate, LCurrPort);
  35. END KermParam.
  36.