home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ucsdterak.tar.gz
/
ucsdterak.tar
/
help.text
next >
Wrap
Text File
|
1984-04-11
|
5KB
|
171 lines
segment procedure help;
procedure keypress;
const clearscreen = 12;
var ch: char;
begin
writeln('---------------Press any key to continue---------------');
repeat
until readch(kq,ch);
writeln(chr(clearscreen))
end; (* keypress *)
procedure help1;
var ch: char;
begin
if (noun = nullsym) then
begin
writeln('KERMIT is a family of programs that do reliable file transfer');
write('between computers over TTY lines. KERMIT can also be ');
writeln('used to make the ');
writeln('microcomputer behave as a terminal for a mainframe. These are the ');
writeln('commands for theUCSD p-system version, KERMIT-UCSD:');
writeln
end; (* if *)
if (noun = nullsym) or (noun = consym) then
begin
writeln(' CONNECT To make a "virutual terminal" connection to a remote');
writeln(' system.');
writeln;
write(' To break the connection and "escape" back to the micro,');
writeln;
writeln(' type the escape sequence (CTRL-] C, that is Control ');
writeln(' 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.');
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 = quitsym) then
begin
writeln(' QUIT Same as EXIT.');
writeln;
end; (* if *)
if (noun = nullsym) or (noun = recsym) then
begin
writeln(' RECEIVE To accept a file from the remote system.');
writeln;
end; (* if *)
end; (* help1 *)
procedure help2;
var ch: char;
begin
if (noun = nullsym) or (noun = sendsym) then
begin
writeln(' SEND To send a file or group of files to the remote system.');
writeln;
end; (* if *)
if (noun = nullsym) then
keypress;
if (noun = nullsym) or (noun = setsym) then
begin
writeln(' SET To establish system-dependent parameters. The ');
writeln(' SET options are as follows: ');
writeln;
if (adj = nullsym) or (adj = debugsym) then
begin
writeln(' DEBUG To set debug mode ON or OFF ');
writeln(' (default is OFF).');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = escsym) then
begin
writeln(' ESCAPE To change the escape sequence that ');
writeln(' lets you return to the PC Kermit from');
write(' the remote host.');
writeln(' The default is CTRL-] c.');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = filewarnsym) then
begin
writeln(' FILE-WARNING ON/OFF, default is OFF. If ON, ');
writeln(' Kermit will warn you and rename an ');
writeln(' incoming file so as not to write over');
writeln(' a file that currently exists with the');
writeln(' 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 = ibmsym) then
begin
writeln(' IBM ON/OFF, default is OFF. This flag ');
write(' should be ON only when ');
writeln('transfering files');
writeln(' between the micro and an IBM VM/CMS');
writeln(' system. It also causes the parity to');
write(' be set appropriately ');
writeln('(mark) and activates');
writeln(' local echoing');
writeln;
end; (* if *)
if (adj = nullsym) or (adj = localsym) then
begin
write(' LOCAL-ECHO ON/OFF, default is OFF. This sets the');
writeln;
writeln(' duplex. It should be ON when using ');
writeln(' the IBM and OFF for the DEC-20.');
writeln;
end; (* if *)
end; (* if *)
end; (* help3 *)
procedure help4;
begin
if (noun = setsym) or (noun = nullsym) then
begin
if (adj = nullsym) or (adj = paritysym) then
begin
writeln(' PARITY EVEN, ODD, MARK, SPACE, or NONE.');
writeln(' NONE is the default but if the IBM ');
writeln(' flag is set, parity is set to MARK. ');
writeln(' This flag selects the parity for ');
write(' outgoing and incoming characters during');
writeln;
write(' CONNECT and file transfer to match the');
writeln;
writeln(' 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');
writeln(' via the SET command. Options are the same as for SET,');
writeln(' except that a SHOW ALL command has been added.');
end; (* if *)
end; (* help4 *)
begin
help1;
help2;
help3;
help4
end; (* help *)