program makimage;
uses dos,crt;

var  screen1 : array[0..4095] of byte;
     screen2 : array[0..4095] of byte;
     video   : array[0..3999] of byte ABSOLUTE $B800:0000;
     inputfile : text;
     outputfile : file;
     line : string[80];
     i : integer;
begin
  assign(inputfile,'FDSCRN1');
  assign(outputfile,'FIELDDAY.IMG');
  ClrScr;
  reset(inputfile);
  rewrite(outputfile);
  i := 0;
  while (NOT Eof(inputfile)) do
  begin
    i := i + 1;
    readln(inputfile,line);
    if i <> 25 then writeln(line) else write(line);
  end;
  move(video, screen1, 4000);
  blockwrite(outputfile, screen1, 32);
  ClrScr;
  close(inputfile);
  assign(inputfile,'FDSCRN2');
  reset(inputfile);
  i := 0;
  while (NOT Eof(inputfile)) do
  begin
    i := i + 1;
    readln(inputfile,line);
    if i <> 25 then writeln(line) else write(line);
  end;
  move (video,screen2,4000);
  blockwrite(outputfile,screen2,32);
  close(outputfile);
end.
