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