home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PJ8_3.ZIP / UHELP.PAS < prev    next >
Pascal/Delphi Source File  |  1990-02-15  |  553b  |  36 lines
  1. (* uhelp.pas -- (c) 1989 by Tom Swan *)
  2.  
  3. unit uhelp;
  4.  
  5. interface
  6.  
  7. uses crt, ucmds, uprogram;
  8.  
  9. type
  10.  
  11.    helpObj = object( command )
  12.       procedure processItem; virtual;
  13.    end;
  14.  
  15. var
  16.  
  17.    helpCmd  : helpObj;
  18.  
  19. implementation
  20.  
  21. { ----- Display sample help screen. }
  22.  
  23. procedure helpObj.processItem;
  24. begin
  25.    clrscr;
  26.    writeln( 'Help!' );
  27.    writeln;
  28.    writeln( 'Type the first letter of a command.  Type Q' );
  29.    writeln( 'or <Esc> to quit and return to DOS.' );
  30. end;
  31.  
  32. begin
  33.    helpCmd.init( @theMenu, 'H', 'Help' );
  34. end.
  35.  
  36.