1 program doctext(input,output,infile,outfile);
\r
6 infile,outfile:file of char;
\r
8 reset(infile); rewrite(outfile);
\r
10 if c <> '1' then write(outfile,c);
\r
11 while not eof(infile) do
\r
16 if not eof(infile) then
\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