home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / ucsdmagiscan2 / help.text < prev    next >
Text File  |  2020-01-01  |  8KB  |  235 lines
  1.  
  2. segment procedure help;
  3. UCSD Pascal KERMIT for the Terak p-System, from Kate MacGregor, Cornell U
  4.  Adapted for the Magiscan 2 by H Balen, Lancaster U 
  5.  
  6. procedure keypress;
  7.  
  8. var
  9.   ch: char;
  10.  
  11. begin
  12. writeln;
  13. writeln('---------------Press any key to continue---------------');
  14. repeat
  15. until readch(terminal,ch);
  16. writeln(chr(ff){clearscreen})
  17. end; (* keypress *)
  18.  
  19. procedure help1;
  20.  
  21. var ch: char;
  22.  
  23. begin
  24. write(chr(ff));
  25. if (noun = nullsym) then
  26.   begin
  27.   writeln('KERMIT is a family of  programs that do reliable file transfer');
  28.   writeln('between computers over TTY lines.  KERMIT can also be used to ');
  29.   writeln('make the microcomputer behave as a terminal for a mainframe.  ');
  30.   writeln('These are the commands for theUCSD p-system version, ');
  31.   writeln('KERMIT-UCSD:');
  32.   writeln
  33.   end; (* if *)
  34. if (noun = nullsym) or (noun = consym) then
  35.   begin
  36.   writeln('  CONNECT     To make a "virutual terminal" connection to ');
  37.   writeln('              a remote system. To break the connection and');
  38.   writeln('              "escape" back to the micro, type the escape ');
  39.   writeln('              sequence (CTRL-] C, that is Control rightbracket');
  40.   writeln('              followed immediately by the letter C.)');
  41.   writeln;
  42.   end; (* if *)
  43. if (noun = nullsym) or (noun = exitsym) then
  44.   begin
  45.   writeln('  EXIT        To return back to main command level of the');
  46.   writeln('              p-system.');
  47.   writeln;
  48.   end; (* if *)
  49. if (noun = nullsym) or (noun = helpsym) then
  50.   begin
  51.   writeln('  HELP        To get a list of KERMIT commands.');
  52.   writeln;
  53.   end; (* if *)
  54. if (noun = nullsym) or (noun = quitsym) then
  55.   begin
  56.   writeln('  QUIT        Same as EXIT.');
  57.   writeln;
  58.   end; (* if *)
  59. if (noun = nullsym) or (noun = recsym) then
  60.   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
  69.   ch  : char;
  70.  
  71. begin
  72. if (noun = nullsym) or (noun = loadsym) then
  73.   begin
  74.   writeln('  LOAD        To load an image from the current disk.');
  75.   writeln;
  76.   end; (* if *)
  77. if (noun = nullsym) or (noun = sendsym) then
  78.   begin
  79.   writeln('  SEND        To send a file or group of files to the remote');
  80.   writeln('              system.');
  81.   writeln;
  82.   end; (* if *)
  83. if (noun = nullsym) then
  84.     keypress;
  85. end{help2};
  86.  
  87. procedure help3;
  88.  
  89. var ch: char;
  90.  
  91. begin
  92. if (noun = nullsym) or (noun = setsym) then
  93.   begin
  94.   writeln('  SET         To establish system-dependent parameters.  The ');
  95.   writeln('              SET options are as follows: ');
  96.   writeln;
  97.   if (adj = nullsym) or (adj = baudsym) then
  98.     begin
  99.     writeln('              BAUD             75 to 9600, default is 1200. ');
  100.     writeln('                               This sets the baud rate for the');
  101.     writeln('                               system, should be done before');
  102.     writeln('                               a conect, and is a mutiple of');
  103.     writeln('                               75 by a power of two.');
  104.     writeln;
  105.     end;{if}
  106.   if (adj = nullsym) or (adj = debugsym) then
  107.     begin
  108.     writeln('              DEBUG            To set debug mode ON or OFF ');
  109.     writeln('                               (default is OFF).');
  110.     writeln;
  111.     end; (* if *)
  112.   if (adj = nullsym) or (adj = dirsym) then
  113.     begin
  114.     writeln('              DISK             4/5/9/10, default is 5. This');
  115.     writeln('                               sets the drive to be one of');
  116.     writeln('                               the volumes/disks in existance');
  117.     writeln('                               on the M2.');
  118.     writeln;
  119.     end;{if}
  120.   if (adj = nullsym) then
  121.       keypress;
  122.   end; (* if *)
  123. end; (* help3 *)
  124.  
  125. procedure help4;
  126.  
  127. begin
  128. if (noun = nullsym) or (noun = setsym) then
  129.   begin
  130.   if (adj = nullsym) or (adj = escsym) then
  131.     begin
  132.     writeln('              ESCAPE           To change the escape sequence');
  133.     writeln('                               that lets you return to the ');
  134.     writeln('                               PC Kermit from the remote host.');
  135.     writeln('                               The default is CTRL-] c.');
  136.     writeln;
  137.     end; (* if *)
  138.   if (adj = nullsym) or (adj = filewarnsym) then
  139.     begin
  140.     writeln('              FILE-WARNING     ON/OFF, default is OFF.  If');
  141.     writeln('                               ON, Kermit will warn you and');
  142.     writeln('                               rename an incoming file so as');
  143.     writeln('                               not to write over a file that');
  144.     writeln('                               currently exists with the');
  145.     writeln('                               same name');
  146.     writeln;
  147.     end; (* if *)
  148.   end; (* if *)
  149. end; (* help4 *)
  150.  
  151. procedure help5;
  152.  
  153. begin
  154. if (noun = setsym) or (noun = nullsym) then
  155.   begin
  156.   if (adj = nullsym) or (adj = ibmsym) then
  157.     begin
  158.     writeln('              IBM              ON/OFF, default is OFF.  This');
  159.     writeln('                               flag should be ON only when ');
  160.     writeln('                               transfering files between the');
  161.     writeln('                               micro and an IBM VM/CMS system.');
  162.     writeln('                               It also causes the parity to be');
  163.     writeln('                               set appropriately (mark) and ');
  164.     writeln('                               activates local echoing');
  165.     writeln;
  166.     end; (* if *)
  167.   if (adj = nullsym) then
  168.       keypress;
  169.   if (adj = nullsym) or (adj = localsym) then
  170.     begin
  171.     writeln('              LOCAL-ECHO       ON/OFF, default is OFF. This');
  172.     writeln('                               sets the duplex.  It should be');
  173.     writeln('                               ON when using the IBM and OFF ');
  174.     writeln('                               for the DEC-20.');
  175.     writeln;
  176.     end; (* if *)
  177.   end; (* if *)
  178. end; (* help5 *)
  179.  
  180. procedure Help6;
  181.  
  182. begin
  183. if (noun = setsym) or (noun = nullsym) then
  184.   begin
  185.   if (adj = nullsym) or (adj = paritysym) then
  186.     begin
  187.     writeln('              PARITY           EVEN, ODD, MARK, SPACE, ');
  188.     writeln('                               or NONE. NONE is the default');
  189.     writeln('                               but if the IBM flag is set, ');
  190.     writeln('                               parity is set to MARK. This ');
  191.     writeln('                               flag selects the parity for ');
  192.     writeln('                               outgoing and incoming ');
  193.     writeln('                               characters during CONNECT and');
  194.     writeln('                               file transfer to match the');
  195.     writeln('                               requirements of the host.');
  196.     writeln;
  197.     end; (* if *)
  198.   if (noun = paritysym) then
  199.     KeyPress
  200.   end{if};
  201. if (noun = transym) or (noun = nullsym) then
  202.   begin
  203.   writeln('  TRANSFER    To set the type of transfer, the types can ');
  204.   writeln('              be TEXT, CODE, DATA, IMAGE. The format of the ');
  205.   writeln('              command is TRANSFER TYPE <type>          ');
  206.   writeln;
  207.   if (noun = transym) then
  208.     KeyPress;
  209.   end; (* if *)
  210. end{help6};
  211.  
  212. procedure Help7;
  213.  
  214. begin
  215. if (noun = nullsym) or (noun = showsym) then
  216.   begin
  217.   writeln('  SHOW        To see the values of parameters that can be');
  218.   writeln('              modified via the SET command.  Options are the');
  219.   writeln('              same as for SET,  except that a SHOW ALL ');
  220.   writeln('              command has been added.');
  221.   KeyPress;
  222.   end; (* if *)
  223. end{Help7};
  224.  
  225. begin
  226. help1;
  227. help2;
  228. help3;
  229. help4;
  230. help5;
  231. help6;
  232. help7
  233. end; (* help *)
  234.  
  235.