home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 05 / t4_upd / execdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-24  |  321 b   |  18 lines
  1. PROGRAM ExecDemo;
  2.  
  3. (* das Programm darf nicht den *)
  4. (* ganzen Speicher belegen:    *)
  5. {$M 16384,0,65536}
  6.  
  7. USES Dos;
  8.  
  9. BEGIN
  10.   WriteLn;
  11.   WriteLn ('Debuggen des Files EXECDEMO.EXE:');
  12.   WriteLn;
  13.   Exec ('C:\DOS\DEBUG.EXE','EXECDEMO.EXE');
  14.   WriteLn;
  15.   WriteLn ('Debug-Sitzung beendet!');
  16.   WriteLn;
  17. END.
  18.