home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
lilith
/
m2show.mod
< prev
next >
Wrap
Text File
|
2020-01-01
|
4KB
|
160 lines
IMPLEMENTATION MODULE KermShow;
(************************************************************************)
(* Show local parameters *)
(* written: 08.10.85 Matthias Aebi *)
(* last modification: 18.03.86 Matthias Aebi *)
(************************************************************************)
FROM Terminal IMPORT WriteString, WriteLn;
FROM OutTerminal IMPORT WriteC;
FROM KermMisc IMPORT WriteChar, ClrScr;
FROM KermParam IMPORT LBaudRate, LCheckType, LCurrPort, LEcho, LEOLChar,
LEscChar, LFileType, LFilNamConv, LMaxRetries,
LNumOfPad, LPackSize, LPadChar, LParity,
LPrefChar, LQuoteChar, LStartChar, LTimeOut,
LTimer, LDebug, LWarning, ParityTyp, FileTyp;
(************************************************************************)
PROCEDURE Show;
(************************************************************************)
BEGIN
ClrScr;
WriteLn;
WriteString("Current state of parameters are:");
WriteLn;
WriteLn;
WriteString(" Baud rate: ");
WriteC(LBaudRate,1);
WriteLn;
WriteString(" Check type: ");
WriteC(LCheckType,1);
WriteLn;
WriteString(" Debugging: ");
IF LDebug
THEN
WriteString("On");
ELSE
WriteString("Off");
END;
WriteLn;
WriteString(" ENd of line character: ");
WriteChar(LEOLChar);
WriteLn;
WriteString(" EScape character: ");
WriteChar(LEscChar);
WriteLn;
WriteString(" Filetype: ");
CASE LFileType OF
text:
WriteString("Text"); |
binary:
WriteString("Binary");
END;
WriteLn;
WriteString(" Local echo: ");
IF LEcho
THEN
WriteString("On");
ELSE
WriteString("Off");
END;
WriteLn;
WriteString(" Name conversion: ");
IF LFilNamConv
THEN
WriteString("On");
ELSE
WriteString("Off");
END;
WriteLn;
WriteString(" PACket length: ");
WriteC(LPackSize,1);
WriteLn;
WriteString(" PAD Character to send: ");
WriteChar(LPadChar);
WriteLn;
WriteString(" PADDing: ");
WriteC(LNumOfPad,1);
WriteLn;
WriteString(" PARity: ");
CASE LParity OF
none:
WriteString("None"); |
even:
WriteString("Even"); |
odd:
WriteString("Odd"); |
mark:
WriteString("Mark"); |
space:
WriteString("Space");
END;
WriteLn;
WriteString(" POrt: ");
WriteC(LCurrPort,1);
WriteLn;
WriteString(" PREfix character for 8-bit: ");
WriteChar(LPrefChar);
WriteLn;
WriteString(" Retries: ");
WriteC(LMaxRetries,1);
WriteLn;
WriteString(" Start of packet character: ");
WriteChar(LStartChar);
WriteLn;
WriteString(" TImer: ");
IF LTimer
THEN
WriteString("On");
ELSE
WriteString("Off");
END;
WriteLn;
WriteString(" Time Out in seconds: ");
WriteC(LTimeOut,1);
WriteLn;
WriteString(" Warning: ");
IF LWarning
THEN
WriteString("On");
ELSE
WriteString("Off");
END;
WriteLn;
WriteLn;
WriteString(" To change a parameter, type: SET <parameter> <value>");
WriteLn;
WriteString(" Abbreviations are capitalized.");
WriteLn;
END Show;
END KermShow.