home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBCS / DEMOS / ALIGN.PAS next >
Encoding:
Pascal/Delphi Source File  |  1993-03-09  |  468 b   |  25 lines
  1. uses
  2.   eco_lib
  3.  
  4.   ;
  5.  
  6.  
  7. var
  8.   bin,
  9.   bou : array[1..16384] of char;
  10.   lin : string;
  11.   fou,
  12.   fin :   text;
  13.  
  14. begin
  15.   assign(fin, paramstr(1)); reset(fin);
  16.   assign(fou, '$$.out'); rewrite(fou);
  17.   settextbuf(fin, bin); settextbuf(fou, bou);
  18.   while not eof(fin) do begin
  19.     readln(fin, lin);
  20.     writeln(fou, __cvtstr(lin, _rem_lead_white_str + _rem_trail_white_str));
  21.   end;
  22.   close(fin); close(fou);
  23.   erase(fin); rename(fou, paramstr(1));
  24. end.
  25.