home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 05 / t4_upd / cmddemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-24  |  305 b   |  17 lines
  1. PROGRAM CommandDemo;
  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 ('Auflisten aller Pascal-Programme:');
  12.   Exec ('C:\COMMAND.COM', '/C DIR *.PAS');
  13.   WriteLn;
  14.   WriteLn ('Das waren alle!');
  15.   WriteLn;
  16. END.
  17.