home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 341.img / TCS161S.ZIP / PROCEFL.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  180b  |  8 lines
  1.  
  2.   procedure processfile(fn,todir:lstr);
  3.   var outf:text;
  4.   begin
  5.     write(^P'  processing...');
  6.     exec(getenv('COMSPEC'),' /C PROCESS.BAT '+fn+' '+todir+' >etc.tcs');
  7.   end;
  8.