begin "nolf"
   require "std.hdr[170,161]" source!file;
   integer inchan,outchan,char,eof;
   write("Name of input file (with extra lfs) -");
   inchan := openin(inchwl,eof);
   write("Name of output file - ");
   outchan := openout(inchwl);
   char := wordin(inchan);
   while not eof do
   begin
      wordout(outchan,char);
      if char = cr then
         begin
            wordin(inchan);
         end;
      char := wordin(inchan);
   end;
end "nolf"