home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP4INVKE.ZIP / TP4INVKE.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-01-08  |  272 b   |  20 lines
  1. Program Tp4Invke;
  2.  
  3. USES   CRT,
  4.        EZINVOKE;
  5.  
  6. var
  7.   ch          : Char;
  8.  
  9. BEGIN
  10.   ClrScr;
  11.   gotoxy(1,1);
  12.   write('Depress Any Key to Invoke DOS Shell ');
  13.   ch:=ReadKey;
  14.  
  15.   InvokeDOS;
  16.  
  17.   gotoxy(1,1);
  18.   writeln('See How Simple That Was!');
  19.   halt;
  20. END.