home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / archives / ucsdibmpc.zip / helper.text next >
Text File  |  1984-05-23  |  6KB  |  172 lines
  1. unit helper;
  2. interface
  3.  
  4.    procedure help;
  5.  
  6. implementation
  7.  
  8. uses {$U kermglob.code} kermglob;
  9.  
  10. procedure keypress;
  11.  
  12. var ch: char;
  13.  
  14.   begin
  15.     writeln('---------------Press any key to continue---------------');
  16.     read( keyboard, ch );
  17.     page(output); {SP}
  18.   end; (* keypress *)
  19.  
  20. procedure help1;
  21.  
  22.   var ch: char;
  23.  
  24.   begin { help1 }
  25.     if (noun = nullsym) then begin
  26.       writeln('KERMIT is a family of  programs that do reliable file transfer');
  27.       writeln('between computers over TTY lines.',
  28.               '  KERMIT can also be used to make the ');
  29.       writeln('microcomputer behave as a terminal',
  30.               ' for a mainframe.  These are the ');
  31.       writeln('commands for the UCSD p-system version, KERMIT-UCSD:');
  32.       writeln
  33.     end; (* if *)
  34.  
  35.     if (noun = nullsym) or (noun = consym) then begin
  36.       writeln('  CONNECT     To make a "virutual terminal" connection to a remote');
  37.       writeln(' ':14, 'system.');
  38.       writeln;
  39.       writeln(' ':14, 'To break the connection and "escape" back to the micro,');
  40.       writeln(' ':14, 'type the escape sequence (CTRL-] C, that is Control ');
  41.       writeln(' ':14, 'rightbracket followed immediately by the letter C.)');
  42.       writeln;
  43.     end; (* if *)
  44.  
  45.     if (noun = nullsym) or (noun = exitsym) then begin
  46.       writeln('  EXIT        To return back to main command level of the p-system.');
  47.       writeln;
  48.     end; (* if *)
  49.  
  50.     if (noun = nullsym) or (noun = helpsym) then begin
  51.       writeln('  HELP        To get a list of KERMIT commands.');
  52.       writeln;
  53.     end; (* if *)
  54.  
  55.     if (noun = nullsym) or (noun = quitsym) then begin
  56.       writeln('  QUIT        Same as EXIT.');
  57.       writeln;
  58.     end; (* if *)
  59.  
  60.     if (noun = nullsym) or (noun = recsym) then begin
  61.       writeln('  RECEIVE     To accept a file from the remote system.');
  62.       writeln;
  63.     end; (* if *)
  64.   end; (* help1 *)
  65.  
  66. procedure help2;
  67.  
  68. var ch: char;
  69.  
  70.   begin { help2 }
  71.     if (noun = nullsym) or (noun = sendsym) then begin
  72.       writeln('  SEND        To send a file or group of files to the remote system.');
  73.       writeln;
  74.     end; (* if *)
  75.  
  76.     if (noun = nullsym) then
  77.         keypress;
  78.     if (noun = nullsym) or (noun = setsym) then begin
  79.       writeln('  SET         To establish system-dependent parameters.  The ');
  80.       writeln('              SET options are as follows: ');
  81.       writeln;
  82.       if (adj = nullsym) or (adj = debugsym) then begin
  83.         writeln('              DEBUG            To set debug mode ON or OFF ');
  84.         writeln(' ':31, '(default is OFF).');
  85.         writeln;
  86.       end; (* if *)
  87.       if (adj = nullsym) or (adj = escsym) then begin
  88.         writeln(' ':14, 'ESCAPE           To change the escape sequence that ');
  89.         writeln(' ':31, 'lets you return to the PC Kermit from');
  90.         writeln(' ':31, 'the remote host.  The default is CTRL-] c.');
  91.         writeln;
  92.       end; (* if *)
  93.       if (adj = nullsym) or (adj = filewarnsym) then begin
  94.         writeln(' ':14, 'FILE-WARNING     ON/OFF, default is OFF.  If ON, ');
  95.         writeln(' ':31, 'Kermit will warn you and rename an ');
  96.         writeln(' ':31, 'incoming file so as not to write over');
  97.         writeln(' ':31, 'a file that currently exists with the');
  98.         writeln(' ':31, 'same name');
  99.         writeln;
  100.       end; (* if *)
  101.       if (adj = nullsym) or (adj = baudsym) then begin
  102.         writeln(' ':14, 'BAUD             To set the serial baud rate.' );
  103.         writeln(' ':31, 'Choices are: 110/300/1200/2400/4800/9600.' );
  104.         writeln(' ':31, 'The default is 1200.');
  105.         writeln
  106.       end; (* if *)
  107.       if (adj = nullsym) then
  108.         keypress;
  109.     end; (* if *)
  110.   end; (* help2 *)
  111.  
  112. procedure help3;
  113.  
  114.   begin
  115.     if (noun = nullsym) or (noun = setsym) then begin
  116.       if (adj = nullsym) or (adj = ibmsym) then begin
  117.         writeln(' ':14, 'IBM              ON/OFF, default is OFF.  This flag ');
  118.         writeln(' ':31, 'should be ON only when transfering files');
  119.         writeln(' ':31, 'between the micro and an IBM VM/CMS');
  120.         writeln(' ':31, 'system.  It also causes the parity to');
  121.         writeln(' ':31, 'be set appropriately (mark) and activates');
  122.         writeln(' ':31, 'local echoing');
  123.         writeln;
  124.       end; (* if *)
  125.  
  126.       if (adj = nullsym) or (adj = localsym) then begin
  127.         writeln(' ':14, 'LOCAL-ECHO       ON/OFF, default is OFF.  This sets the');
  128.         writeln(' ':31, 'duplex.  It should be ON when using ');
  129.         writeln(' ':31, 'the IBM and OFF for the DEC-20.');
  130.         writeln;
  131.       end; (* if *)
  132.  
  133.       if (adj = nullsym) or (adj = emulatesym) then begin
  134.         writeln(' ':14, 'EMULATE          ON/OFF, default is OFF.  This sets the');
  135.         writeln(' ':31, 'DataMedia 1520A terminal emulation on or off.');
  136.         writeln;
  137.       end; (* if *)
  138.     end; (* if *)
  139.   end; (* help3 *)
  140.  
  141. procedure help4;
  142.  
  143.   begin
  144.     if (noun = setsym) or (noun = nullsym) then begin
  145.       if (adj = nullsym) or (adj = paritysym) then begin
  146.         writeln(' ':14, 'PARITY           EVEN, ODD, MARK, SPACE, or NONE.');
  147.         writeln(' ':31, 'NONE is the default but if the IBM ');
  148.         writeln(' ':31, 'flag is set, parity is set to MARK.  ');
  149.         writeln(' ':31, 'This flag selects the parity for ');
  150.         writeln(' ':31, 'outgoing and incoming characters during');
  151.         writeln(' ':31, 'CONNECT and file transfer to match the');
  152.         writeln(' ':31, 'requirements of the host.');
  153.         writeln;
  154.       end; (* if *)
  155.     end; (* if *)
  156.     if (noun = nullsym) or (noun = showsym) then begin
  157.       writeln('  SHOW        To see the values of parameters that can be modified');
  158.       writeln('              via the SET command.');
  159.     end; (* if *)
  160.   end; (* help4 *)
  161.  
  162. procedure help;
  163. begin
  164.   help1;
  165.   help2;
  166.   help3;
  167.   help4
  168. end; (* help *)
  169.  
  170. end. { unit helper }
  171.  
  172.