home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / ucsdpecan.zip / helper.text < prev    next >
Text File  |  1990-08-05  |  10KB  |  279 lines
  1. unit helper;
  2.  
  3. interface
  4.  
  5. {Change log:
  6. 13 May 89, V1.1: Added SET INTERFACE, COMMENT, and "client" helps   RTC
  7. 26 Apr 89, V1.1: minor cleanups   RTC
  8. 13 Apr 89, V1.1: Added Version message         RTC
  9. 14 Aug 88: Added command helps for SET SYSTEM command      RTC
  10. 14 Aug 88: Added LOG and CLOSE help commands         RTC
  11. 31 Jul 88: Minor cleanups of help messages      RTC
  12. 30 Jun 88: Added -NAMES, -TYPE, and TAKE command helps   RTC
  13.  
  14. }
  15.  
  16.    procedure help;
  17.  
  18.    procedure hlp_version;
  19.  
  20.  
  21. implementation
  22.  
  23. uses {$U kermglob.code} kermglob;
  24.  
  25. const
  26.   my_version = '   Helper Unit V1.1, 13 May 89';
  27.  
  28. procedure keypress;
  29.  
  30. var ch: char;
  31.  
  32.   begin
  33.     write('---------------Press any key to continue---------------');
  34.     read( keyboard, ch );
  35.     page(output); {SP}
  36.   end; (* keypress *)
  37.  
  38. procedure help1;
  39.  
  40.   var ch: char;
  41.  
  42.   begin { help1 }
  43.     if (noun = nullsym) then begin
  44.       writeln('KERMIT is a family of  programs that do reliable file transfer');
  45.       writeln('between computers over TTY lines.',
  46.               '  KERMIT can also be used to make the ');
  47.       writeln('microcomputer behave as a terminal',
  48.               ' for a mainframe.  These are the ');
  49.       writeln('commands for the UCSD p-System version, KERMIT-UCSD:');
  50.       writeln
  51.     end; (* if *)
  52.  
  53.     if (noun = nullsym) or (noun = consym) then begin
  54.       writeln('  CONNECT     To make a "virtual terminal" connection to a remote');
  55.       writeln('':14, 'system.');
  56.       writeln;
  57.       writeln('':14, 'To break the connection and "escape" back to the micro,');
  58.       writeln('':14, 'type the escape sequence (CTRL-] C, that is Control ');
  59.       writeln('':14, 'rightbracket followed immediately by the letter C.)');
  60.       writeln;
  61.     end; (* if *)
  62.  
  63.     if (noun = nullsym) or (noun = exitsym) then begin
  64.       writeln('  EXIT        To return back to main command level of the p-system.');
  65.     end; (* if *)
  66.  
  67.     if (noun = nullsym) or (noun = quitsym) then begin
  68.       writeln('  QUIT        Same as EXIT.');
  69.       writeln;
  70.     end; (* if *)
  71.  
  72.     if (noun = nullsym) or (noun = helpsym) then begin
  73.       writeln('  HELP        To get a list of KERMIT commands.');
  74.       writeln;
  75.     end; (* if *)
  76.  
  77.     if (noun = nullsym) or (noun = recsym) then begin
  78.       writeln('  RECEIVE     To accept a file from the remote system.');
  79.     end; (* if *)
  80.  
  81.     if (noun = nullsym) or (noun = sendsym) then begin
  82.       writeln('  SEND        To send a file or group of files to the remote system.');
  83.     end; (* if *)
  84.  
  85.     if (noun = nullsym) or (noun = getsym) then begin
  86.       writeln('  GET         To request a file from a remote Kermit in SERVER mode.');
  87.     end; (* if *)
  88.  
  89.     if (noun = nullsym) or (noun = putsym) then begin
  90.       writeln('  PUT         To send a file to a remote Kermit in SERVER mode.');
  91.       writeln;
  92.     end; (* if *)
  93.  
  94.     if (noun = nullsym) or (noun = byesym) then begin
  95.       writeln('  BYE         Shutdown and logout a remote Kermit in SERVER mode.');
  96.     end; (* if *)
  97.  
  98.     if (noun = nullsym) or (noun = finsym) then begin
  99.       writeln('  FINISH      Shutdown a remote Kermit in SERVER mode.');
  100.     end; (* if *)
  101.  
  102.     if (noun = nullsym) then
  103.         keypress;
  104.   end; (* help1 *)
  105.  
  106. procedure help2;
  107.  
  108. var ch: char;
  109.  
  110.   begin { help2 }
  111.     if (noun = nullsym) or (noun = setsym) then begin
  112.       writeln('  SET         To establish system-dependent parameters.  The ');
  113.       writeln('':14, 'SET options are as follows: ');
  114.       writeln;
  115.       if (adj = nullsym) or (adj = debugsym) then begin
  116.         writeln('':14, 'DEBUG            To set debug mode ON or OFF ');
  117.         writeln('':31, '(default is OFF).');
  118.         writeln;
  119.       end; (* if *)
  120.       if (adj = nullsym) or (adj = escsym) then begin
  121.         writeln('':14, 'ESCAPE           To change the escape sequence that ');
  122.         writeln('':31, 'lets you return to the PC Kermit from');
  123.         writeln('':31, 'the remote host.  The default is CTRL-] c.');
  124.         writeln;
  125.       end; (* if *)
  126.       if (adj = nullsym) or (adj = filenamsym) then begin
  127.         writeln('':14, 'FILE-NAMES       LITERAL/CONVERTED, Default is CONVERTED, ');
  128.         writeln('':31, 'In this Kermit LITERAL Names have');
  129.         writeln('':31, 'Volume name Stripped, while CONVERTED');
  130.         writeln('':31, 'Names also have all but the final');
  131.         writeln('':31, '''.'' removed.');
  132.         writeln;
  133.       end; (* if *)
  134.       if (adj = nullsym) or (adj = filetypesym) then begin
  135.         writeln('':14, 'FILE-TYPE        BINARY/TEXT Default is TEXT.');
  136.         writeln;
  137.       end; (* if *)
  138.       if (adj = nullsym) or (adj = filewarnsym) then begin
  139.         writeln('':14, 'FILE-WARNING     ON/OFF, default is OFF.  If ON, ');
  140.         writeln('':31, 'Kermit will warn you and rename an incoming ');
  141.         writeln('':31, 'file so as not to write over a file that ');
  142.         writeln('':31, 'currently exists with the same name');
  143.         writeln;
  144.       end; (* if *)
  145.       if (adj = nullsym) then
  146.         keypress;
  147.     end; (* if *)
  148.   end; (* help2 *)
  149.  
  150. procedure help3;
  151.  
  152.   begin
  153.     if (noun = nullsym) or (noun = setsym) then begin
  154.       if (adj = nullsym) or (adj = baudsym) then begin
  155.         writeln('':14, 'BAUD             To set the serial baud rate.' );
  156.         writeln('':31, 'Choices are dependant on your Hardware.' );
  157.         writeln('':31, 'The default is 1200.');
  158.         writeln;
  159.       end; (* if *)
  160.       if (adj = nullsym) or (adj = ibmsym) then begin
  161.         writeln('':14, 'IBM              ON/OFF, default is OFF.  This flag ');
  162.         writeln('':31, 'should be ON only when transfering files');
  163.         writeln('':31, 'between the micro and an IBM VM/CMS');
  164.         writeln('':31, 'system.  It also causes the parity to');
  165.         writeln('':31, 'be set appropriately (mark) and activates');
  166.         writeln('':31, 'local echoing');
  167.         writeln;
  168.       end; (* if *)
  169.       if (adj = nullsym) or (adj = intsym) then begin
  170.         writeln('':14, 'INTERFACE        KERMIT/UCSD, default is KERMIT.');
  171.         writeln('':31, 'Permits selection of prefered User Interface:');
  172.         writeln('':31, 'KERMIT command line or UCSD menus.');
  173.         writeln;
  174.       end; (* if *)
  175.  
  176.       if (adj = nullsym) or (adj = localsym) then begin
  177.         writeln('':14, 'LOCAL-ECHO       ON/OFF, default is OFF.  This sets the');
  178.         writeln('':31, 'duplex.  It should be ON when using ');
  179.         writeln('':31, 'the IBM and OFF for the DEC-20.');
  180.         writeln;
  181.       end; (* if *)
  182.  
  183.       if (adj = nullsym) or (adj = emulatesym) then begin
  184.         writeln('':14, 'EMULATE          ON/OFF, default is OFF.  This sets the');
  185.         writeln('':31, 'DataMedia 1520A terminal emulation on or off.');
  186.         writeln;
  187.       end; (* if *)
  188.       if (adj = nullsym) then
  189.         keypress;
  190.     end; (* if *)
  191.   end; (* help3 *)
  192.  
  193. procedure help4;
  194.  
  195.   begin
  196.     if (noun = setsym) or (noun = nullsym) then begin
  197.       if (adj = nullsym) or (adj = systemsym) then begin
  198.         writeln('':14, 'SYSTEM-ID        Specify the System-ID for your REMUNIT');
  199.         writeln('':31, 'if your REMUNIT needs it specified.');
  200.         writeln('':31, 'Called "model" in the REMUNIT specs.');
  201.         writeln('':31, 'Default System-ID is UNKNOWN');
  202.         writeln;
  203.       end; (* if *)
  204.  
  205.       if (adj = nullsym) or (adj = paritysym) then begin
  206.         writeln('':14, 'PARITY           EVEN, ODD, MARK, SPACE, or NONE.');
  207.         writeln('':31, 'NONE is the default but if the IBM ');
  208.         writeln('':31, 'flag is set, parity is set to MARK.  ');
  209.         writeln('':31, 'This flag selects the parity for ');
  210.         writeln('':31, 'outgoing and incoming characters during');
  211.         writeln('':31, 'CONNECT and file transfer to match the');
  212.         writeln('':31, 'requirements of the host.');
  213.         writeln;
  214.       end; (* if *)
  215.     end; (* if *)
  216.     if (noun = nullsym) or (noun = showsym) then begin
  217.       writeln('  SHOW        To see the values of parameters that can be modified');
  218.       write('':14, 'via the SET command. ');
  219.       if (adj in [paritysym, localsym, ibmsym, escsym, debugsym,
  220.                   filenamsym, filetypesym, filewarnsym, baudsym,
  221.                   emulatesym, systemsym, nullsym]) then begin
  222.         writeln('For an explanation of the parameter,');
  223.         writeln('':14, 'see the help for the matching SET command.'); write('':14)
  224.       end; (* if *)
  225.       if (adj in [allsym, versionsym, nullsym]) then begin
  226.         writeln('Additional SHOW options are as follows:');
  227.       end; (* if *)
  228.       writeln;
  229.       if (adj = nullsym) or (adj = allsym) then begin
  230.         writeln('':14, 'ALL              Show all parameters.');
  231.         writeln;
  232.       end; (* if *)
  233.       if (adj = nullsym) or (adj = versionsym) then begin
  234.         writeln('':14, 'VERSION          Show version information.');
  235.         writeln;
  236.       end; (* if *)
  237.     end; (* if *)
  238.     if (noun = nullsym) then
  239.         keypress;
  240.  
  241.     if (noun = nullsym) or (noun = takesym) then begin
  242.       writeln('  TAKE        This command instructs Kermit to take further');
  243.       writeln('':14, 'commands from a specified file.');
  244.     end; (* if *)
  245.     if (noun = nullsym) or (noun = comsym) then begin
  246.       writeln('  COMMENT     Comments a TAKE file. (ignored)');
  247.       writeln;
  248.     end; (* if *)
  249.     if (noun = nullsym) or (noun = logsym) then begin
  250.       writeln('  LOG         This command opens a selected log file.');
  251.       writeln('':14, 'LOG options are as follows:');
  252.       writeln;
  253.       if (adj = nullsym) or (adj = debugsym) then begin
  254.         writeln('':14, 'DEBUG            open specified file for debug output.');
  255.         writeln;
  256.       end; (* if *)
  257.     end; (* if *)
  258.     if (noun = nullsym) or (noun = closesym) then begin
  259.       writeln('  CLOSE       This command closes a selected log file previously');
  260.       writeln('':14, 'opened via the LOG command.');
  261.     end; (* if *)
  262.   end; (* help4 *)
  263.  
  264. procedure help;
  265. begin
  266.   help1;
  267.   help2;
  268.   help3;
  269.   help4
  270. end; (* help *)
  271.  
  272. procedure hlp_version;
  273.  
  274.   begin
  275.     writeln(my_version)
  276.   end {hlp_version};
  277.  
  278. end. { unit helper }
  279.