{ complete copy -- from file in to file out }
{ Scott Loftesness - 8/25/82 }
program copyprog (inf,outf);
{$line+}
const
    ENDFILE = -1;
    NEWLINE = 10;   { ASCII value }
var inf,outf: file of char;


{ copy -- copy input to output }
procedure copy;
begin
    reset(inf);
    rewrite(outf);
    while (not eof(inf)) do begin
        outf^:=inf^; put(outf);
        get(inf);
    end;
end;

begin   { main program }
    copy
end.