{$X+} program Copy8(ifile,ofile);
var ifile, ofile : file of eightbit {ascii works fine, also};
begin
  reset(ifile);
  if eof(ifile) then halt('ifile empty');
  rewrite(ofile);
  while not eof(ifile) do
    begin
      ofile^ := ifile^;
      put(ofile);
      get(ifile)
    end
end.