sources/pass1/names/doctext.pas

   1 program doctext(input,output,infile,outfile);\r
   2 const ff = 12;\r
   3       lf = 10;\r
   4       cr = 13;\r
   5 var c:char;\r
   6     infile,outfile:file of char;\r
   7 begin\r
   8    reset(infile); rewrite(outfile);\r
   9    read(infile,c);\r
  10    if c <> '1' then write(outfile,c);\r
  11    while not eof(infile) do\r
  12    begin\r
  13       read(infile,c);\r
  14       if ord(c) = lf then\r
  15       begin\r
  16         if not eof(infile) then\r
  17         begin\r
  18            read(infile,c);\r
  19            if c = '1' then write(outfile,chr(ff)) else\r
  20            if c <> '+' then write(outfile,chr(lf));\r
  21         end else write(outfile,chr(lf));\r
  22       end else write(outfile,c);\r
  23     end\r
  24   end.