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