home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / perqa / kermithelp.pas < prev    next >
Pascal/Delphi Source File  |  2020-01-01  |  2KB  |  50 lines
  1. MODULE KermitHelp ;
  2.  
  3. EXPORTS
  4.  
  5. PROCEDURE DoHelp ;
  6.  
  7. PRIVATE
  8.  
  9. IMPORTS  KermitUtils FROM KermitUtils ;
  10.  
  11.  
  12. PROCEDURE DoHelp ;
  13. (*)
  14.  * Print out the Kermit help info. Use the utilities to write the
  15.  * commands in inverse video.
  16. (*)
  17. BEGIN (*-DoHelp-*)
  18. Writeln( Chr(#014) ) ; (* Clear the screen *)
  19. Inverse( TRUE ) ;  Writeln(' CONNECT'); Inverse( FALSE ) ;
  20. Writeln('Connect the PERQ to another host.  This allows you to log  into  other');
  21. Writeln('systems.');
  22. Inverse( TRUE ) ;  Writeln(' EXIT'); Inverse( FALSE ) ;
  23. Writeln('Exit from KERMIT back to the PERQ operating system.');
  24. Inverse( TRUE ) ;  Writeln(' HELP'); Inverse( FALSE ) ;
  25. Writeln('Print instructions on various commands available in KERMIT.');
  26. Inverse( TRUE ) ;  Writeln(' QUIT'); Inverse( FALSE ) ;
  27. Writeln('Same as EXIT.');
  28. Inverse( TRUE ) ;  Writeln(' RECEIVE <optional file-name>'); Inverse( FALSE ) ;
  29. Writeln('Receive a file group from the remote host.  If an incoming  file  name');
  30. Writeln('is  not  legal,  then attempt to transform it to a similar legal name,');
  31. Writeln('e.g.  by deleting  illegal  or  excessive  characters.   If  the  file');
  32. Writeln('already exists, it will be superceded unless WARNING is ON.');
  33. Inverse( TRUE ) ;  Writeln(' SEND <file-specification>'); Inverse( FALSE ) ;
  34. Writeln('Sends a file from the PERQ to the remote host.  The name of  the  file');
  35. Writeln('is  passed to the remote host in a special control packet, so that the');
  36. Writeln('remote host can store it with the same name.  Wildcards  are  not  yet');
  37. Writeln('supported.');
  38. Inverse( TRUE ) ;  Writeln(' SET <keyword>'); Inverse( FALSE ) ;
  39. Writeln('Change various system-dependent parameters.  For a list  of  keywords,');
  40. Writeln('type SET ?.');
  41. Inverse( TRUE ) ;  Writeln(' SHOW <keyword>'); Inverse( FALSE ) ;
  42. Writeln('Display various system-dependent parameters  established  by  the  SET');
  43. Writeln('command.  For a list of available keywords type SHOW ?.');
  44. Inverse( TRUE ) ;  Writeln(' STATISTICS'); Inverse( FALSE ) ;
  45. Writeln('Display some statistics about Kermit''s operations.');
  46.  
  47. Writeln
  48. END (*-DoHelp-*) .
  49.  
  50.