home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PJ8_3.ZIP / UNEW.PAS < prev    next >
Pascal/Delphi Source File  |  1990-02-15  |  399b  |  30 lines
  1. (* unew.pas -- (c) 1989 by Tom Swan *)
  2.  
  3. unit unew;
  4.  
  5. interface
  6.  
  7. uses crt, ucmds, uprogram;
  8.  
  9. type
  10.  
  11.    newObj = object( command )
  12.       procedure processItem; virtual;
  13.    end;
  14.  
  15. var
  16.  
  17.    newCmd   : newObj;
  18.  
  19. implementation
  20.  
  21. procedure newObj.processItem;
  22. begin
  23.    clrscr;
  24.    writeln( 'You selected the New command' );
  25. end;
  26.  
  27. begin
  28.    newCmd.init(  @theMenu, 'N', 'New'  );
  29. end.
  30.