home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ucsdpecan.tar.gz
/
ucsdpecan.tar
/
helper.text
< prev
next >
Wrap
Text File
|
1990-08-05
|
10KB
|
279 lines
unit helper;
interface
{Change log:
13 May 89, V1.1: Added SET INTERFACE, COMMENT, and "client" helps RTC
26 Apr 89, V1.1: minor cleanups RTC
13 Apr 89, V1.1: Added Version message RTC
14 Aug 88: Added command helps for SET SYSTEM command RTC
14 Aug 88: Added LOG and CLOSE help commands RTC
31 Jul 88: Minor cleanups of help messages RTC
30 Jun 88: Added -NAMES, -TYPE, and TAKE command helps RTC
}
procedure help;
procedure hlp_version;
implementation
uses {$U kermglob.code} kermglob;
const
my_version = ' Helper Unit V1.1, 13 May 89';
procedure keypress;
var ch: char;
begin
write('---------------Press any key to continue---------------');
read( keyboard, ch );
page(output); {SP}
end; (* keypress *)
procedure help1;
var ch: char;
begin { help1 }
if (noun = nullsym) then begin
writeln('KERMIT is a family of programs that do reliable file transfer');
writeln('between computers over TTY lines.',
' KERMIT can also be used to make the ');
writeln('microcomputer behave as a terminal',
' for a mainframe. These are the ');
writeln('commands for the UCSD p-System version, KERMIT-UCSD:');
writeln
end; (* if *)
if (noun = nullsym) or (noun = consym) then begin
writeln(' CONNECT To make a "virtual terminal" connection to a remote');
writeln('':14, 'system.');
writeln;
writeln('':14, 'To break the connection and "escape" back to the micro,');
writeln('':14, 'type the escape sequence (CTRL-] C, that is Control ');
writeln('':14, 'rightbracket followed immediately by the letter C.)');
writeln;
end; (* if *)
if (noun = nullsym) or (noun = exitsym) then begin
writeln(' EXIT To return back to main command level of the p-system.');
end; (* if *)
if (noun = nullsym) or (noun = quitsym) then begin
writeln(' QUIT Same as EXIT.');
writeln;
end; (* if *)
if (noun = nullsym) or (noun = helpsym) then begin
writeln(' HELP To get a list of KERMIT commands.');
writeln;
end; (* if *)
if (noun = nullsym) or (noun = recsym) then begin
writeln(' RECEIVE To accept a file from the remote system.');
end; (* if *)
if (noun = nullsym) or (noun = sendsym) then begin
writeln(' SEND To send a file or group of files to the remote system.');
end; (* if *)
if (noun = nullsym) or (noun = getsym) then begin
writeln(' GET To request a file from a remote Kermit in SERVER mode.');
end; (* if *)
if (noun = nullsym) or (noun = putsym) then begin
writeln(' PUT To send a file to a remote Kermit in SERVER mode.');
writeln;
end; (* if *)
if (noun = nullsym) or (noun = byesym) then begin
writeln(' BYE Shutdown and logout a remote Kermit in SERVER mode.');
end; (* if *)
if (noun = nullsym) or (noun = finsym) then begin
writeln(' FINISH Shutdown a remote Kermit in SERVER mode.');
end; (* if *)
if (noun = nullsym) then
keypress;
end; (* help1 *)
procedure help2;
var ch: char;
begin { help2 }
if (noun = nullsym) or (noun = setsym) then begin
writeln(' SET To establish system-dependent parameters. The ');
writeln('':14, 'SET options are as follows: ');
writeln;
if (adj = nullsym) or (adj = debugsym) then begin
writeln('':14, 'DEBUG To set debug mode ON or OFF ');
writeln('':31, '(default is OFF).');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = escsym) then begin
writeln('':14, 'ESCAPE To change the escape sequence that ');
writeln('':31, 'lets you return to the PC Kermit from');
writeln('':31, 'the remote host. The default is CTRL-] c.');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = filenamsym) then begin
writeln('':14, 'FILE-NAMES LITERAL/CONVERTED, Default is CONVERTED, ');
writeln('':31, 'In this Kermit LITERAL Names have');
writeln('':31, 'Volume name Stripped, while CONVERTED');
writeln('':31, 'Names also have all but the final');
writeln('':31, '''.'' removed.');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = filetypesym) then begin
writeln('':14, 'FILE-TYPE BINARY/TEXT Default is TEXT.');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = filewarnsym) then begin
writeln('':14, 'FILE-WARNING ON/OFF, default is OFF. If ON, ');
writeln('':31, 'Kermit will warn you and rename an incoming ');
writeln('':31, 'file so as not to write over a file that ');
writeln('':31, 'currently exists with the same name');
writeln;
end; (* if *)
if (adj = nullsym) then
keypress;
end; (* if *)
end; (* help2 *)
procedure help3;
begin
if (noun = nullsym) or (noun = setsym) then begin
if (adj = nullsym) or (adj = baudsym) then begin
writeln('':14, 'BAUD To set the serial baud rate.' );
writeln('':31, 'Choices are dependant on your Hardware.' );
writeln('':31, 'The default is 1200.');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = ibmsym) then begin
writeln('':14, 'IBM ON/OFF, default is OFF. This flag ');
writeln('':31, 'should be ON only when transfering files');
writeln('':31, 'between the micro and an IBM VM/CMS');
writeln('':31, 'system. It also causes the parity to');
writeln('':31, 'be set appropriately (mark) and activates');
writeln('':31, 'local echoing');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = intsym) then begin
writeln('':14, 'INTERFACE KERMIT/UCSD, default is KERMIT.');
writeln('':31, 'Permits selection of prefered User Interface:');
writeln('':31, 'KERMIT command line or UCSD menus.');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = localsym) then begin
writeln('':14, 'LOCAL-ECHO ON/OFF, default is OFF. This sets the');
writeln('':31, 'duplex. It should be ON when using ');
writeln('':31, 'the IBM and OFF for the DEC-20.');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = emulatesym) then begin
writeln('':14, 'EMULATE ON/OFF, default is OFF. This sets the');
writeln('':31, 'DataMedia 1520A terminal emulation on or off.');
writeln;
end; (* if *)
if (adj = nullsym) then
keypress;
end; (* if *)
end; (* help3 *)
procedure help4;
begin
if (noun = setsym) or (noun = nullsym) then begin
if (adj = nullsym) or (adj = systemsym) then begin
writeln('':14, 'SYSTEM-ID Specify the System-ID for your REMUNIT');
writeln('':31, 'if your REMUNIT needs it specified.');
writeln('':31, 'Called "model" in the REMUNIT specs.');
writeln('':31, 'Default System-ID is UNKNOWN');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = paritysym) then begin
writeln('':14, 'PARITY EVEN, ODD, MARK, SPACE, or NONE.');
writeln('':31, 'NONE is the default but if the IBM ');
writeln('':31, 'flag is set, parity is set to MARK. ');
writeln('':31, 'This flag selects the parity for ');
writeln('':31, 'outgoing and incoming characters during');
writeln('':31, 'CONNECT and file transfer to match the');
writeln('':31, 'requirements of the host.');
writeln;
end; (* if *)
end; (* if *)
if (noun = nullsym) or (noun = showsym) then begin
writeln(' SHOW To see the values of parameters that can be modified');
write('':14, 'via the SET command. ');
if (adj in [paritysym, localsym, ibmsym, escsym, debugsym,
filenamsym, filetypesym, filewarnsym, baudsym,
emulatesym, systemsym, nullsym]) then begin
writeln('For an explanation of the parameter,');
writeln('':14, 'see the help for the matching SET command.'); write('':14)
end; (* if *)
if (adj in [allsym, versionsym, nullsym]) then begin
writeln('Additional SHOW options are as follows:');
end; (* if *)
writeln;
if (adj = nullsym) or (adj = allsym) then begin
writeln('':14, 'ALL Show all parameters.');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = versionsym) then begin
writeln('':14, 'VERSION Show version information.');
writeln;
end; (* if *)
end; (* if *)
if (noun = nullsym) then
keypress;
if (noun = nullsym) or (noun = takesym) then begin
writeln(' TAKE This command instructs Kermit to take further');
writeln('':14, 'commands from a specified file.');
end; (* if *)
if (noun = nullsym) or (noun = comsym) then begin
writeln(' COMMENT Comments a TAKE file. (ignored)');
writeln;
end; (* if *)
if (noun = nullsym) or (noun = logsym) then begin
writeln(' LOG This command opens a selected log file.');
writeln('':14, 'LOG options are as follows:');
writeln;
if (adj = nullsym) or (adj = debugsym) then begin
writeln('':14, 'DEBUG open specified file for debug output.');
writeln;
end; (* if *)
end; (* if *)
if (noun = nullsym) or (noun = closesym) then begin
writeln(' CLOSE This command closes a selected log file previously');
writeln('':14, 'opened via the LOG command.');
end; (* if *)
end; (* help4 *)
procedure help;
begin
help1;
help2;
help3;
help4
end; (* help *)
procedure hlp_version;
begin
writeln(my_version)
end {hlp_version};
end. { unit helper }