home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / lilith / m2show.mod < prev    next >
Text File  |  2020-01-01  |  4KB  |  160 lines
  1. IMPLEMENTATION MODULE KermShow;
  2. (************************************************************************)
  3. (*  Show local parameters                                               *)
  4. (*  written:            08.10.85     Matthias Aebi                      *)
  5. (*  last modification:  18.03.86     Matthias Aebi                      *)
  6. (************************************************************************)
  7.  
  8. FROM Terminal    IMPORT WriteString, WriteLn;
  9. FROM OutTerminal IMPORT WriteC;
  10. FROM KermMisc    IMPORT WriteChar, ClrScr;
  11. FROM KermParam   IMPORT LBaudRate, LCheckType, LCurrPort, LEcho, LEOLChar,
  12.                         LEscChar, LFileType, LFilNamConv, LMaxRetries,
  13.                         LNumOfPad, LPackSize, LPadChar, LParity,
  14.                         LPrefChar, LQuoteChar, LStartChar, LTimeOut,
  15.                         LTimer, LDebug, LWarning, ParityTyp, FileTyp;
  16.  
  17. (************************************************************************)
  18.                            PROCEDURE Show;
  19. (************************************************************************)
  20. BEGIN
  21.     ClrScr;
  22.     WriteLn;
  23.     WriteString("Current state of parameters are:");
  24.     WriteLn;
  25.     WriteLn;
  26.  
  27.     WriteString("    Baud rate:                  ");
  28.     WriteC(LBaudRate,1);
  29.     WriteLn;
  30.  
  31.     WriteString("    Check type:                 ");
  32.     WriteC(LCheckType,1);
  33.     WriteLn;
  34.  
  35.     WriteString("    Debugging:                  ");
  36.     IF LDebug
  37.     THEN
  38.         WriteString("On");
  39.     ELSE
  40.         WriteString("Off");
  41.     END;
  42.     WriteLn;
  43.  
  44.     WriteString("    ENd of line character:      ");
  45.     WriteChar(LEOLChar);
  46.     WriteLn;
  47.  
  48.     WriteString("    EScape character:           ");
  49.     WriteChar(LEscChar);
  50.     WriteLn;
  51.  
  52.     WriteString("    Filetype:                   ");
  53.     CASE LFileType OF
  54.         text:
  55.             WriteString("Text"); |
  56.  
  57.         binary:
  58.             WriteString("Binary");
  59.  
  60.     END;
  61.     WriteLn;
  62.  
  63.     WriteString("    Local echo:                 ");
  64.     IF LEcho
  65.     THEN
  66.         WriteString("On");
  67.     ELSE
  68.         WriteString("Off");
  69.     END;
  70.     WriteLn;
  71.  
  72.     WriteString("    Name conversion:            ");
  73.     IF LFilNamConv
  74.     THEN
  75.         WriteString("On");
  76.     ELSE
  77.         WriteString("Off");
  78.     END;
  79.     WriteLn;
  80.  
  81.     WriteString("    PACket length:              ");
  82.     WriteC(LPackSize,1);
  83.     WriteLn;
  84.  
  85.     WriteString("    PAD Character to send:      ");
  86.     WriteChar(LPadChar);
  87.     WriteLn;
  88.  
  89.     WriteString("    PADDing:                    ");
  90.     WriteC(LNumOfPad,1);
  91.     WriteLn;
  92.  
  93.     WriteString("    PARity:                     ");
  94.     CASE LParity OF
  95.         none:
  96.             WriteString("None"); |
  97.  
  98.         even:
  99.             WriteString("Even"); |
  100.  
  101.         odd:
  102.             WriteString("Odd");  |
  103.  
  104.         mark:
  105.             WriteString("Mark"); |
  106.  
  107.         space:
  108.             WriteString("Space");
  109.  
  110.     END;
  111.     WriteLn;
  112.  
  113.     WriteString("    POrt:                       ");
  114.     WriteC(LCurrPort,1);
  115.     WriteLn;
  116.  
  117.     WriteString("    PREfix character for 8-bit: ");
  118.     WriteChar(LPrefChar);
  119.     WriteLn;
  120.  
  121.     WriteString("    Retries:                    ");
  122.     WriteC(LMaxRetries,1);
  123.     WriteLn;
  124.  
  125.     WriteString("    Start of packet character:  ");
  126.     WriteChar(LStartChar);
  127.     WriteLn;
  128.  
  129.     WriteString("    TImer:                      ");
  130.     IF LTimer
  131.     THEN
  132.         WriteString("On");
  133.     ELSE
  134.         WriteString("Off");
  135.     END;
  136.     WriteLn;
  137.  
  138.     WriteString("    Time Out in seconds:        ");
  139.     WriteC(LTimeOut,1);
  140.     WriteLn;
  141.  
  142.     WriteString("    Warning:                    ");
  143.     IF LWarning
  144.     THEN
  145.         WriteString("On");
  146.     ELSE
  147.         WriteString("Off");
  148.     END;
  149.     WriteLn;
  150.  
  151.     WriteLn;
  152.     WriteString("  To change a parameter, type: SET <parameter> <value>");
  153.     WriteLn;
  154.     WriteString("  Abbreviations are capitalized.");
  155.     WriteLn;
  156.  
  157. END Show;
  158.  
  159. END KermShow.
  160.