{$R-}    {Range checking off}
{$B+}    {Boolean complete evaluation on}
{$S+}    {Stack checking on}
{$I+}    {I/O checking on}
{$N-}    {No numeric coprocessor}
{$M 65500,16384,655360} {Turbo 3 default stack and heap}

program makimage;

Uses
  Crt;

var  screen1 : array[0..4095] of byte;
     screen3 : array[0..1399] of byte;
     screen4 : array[0..1919] of byte;
     video   : array[0..3999] of byte ABSOLUTE $B800:0000;
     inputfile : text;
     outputfile : file;
     line : string[80];
     i : integer;
begin
  assign(inputfile,'SCREEN1.NET');
  assign(outputfile,'NET.IMG');
  ClrScr;
  reset(inputfile);
  rewrite(outputfile);
  while (NOT Eof(inputfile)) do
  begin
    readln(inputfile,line);
    write(line);
  end;
  video[290] := 27;
  video[306] := 26;
  move(video, screen1, 4000);
  blockwrite(outputfile, screen1, 32);
  close(inputfile);
  ClrScr;
  assign(inputfile,'SCREEN3.NET');
  reset(inputfile);
  while (NOT Eof(inputfile)) do
  begin
    readln(inputfile,line);
    writeln(line);
  end;
  for i := 0 to 13 do
    move(video[160*i], screen3[100*i],100);
  blockwrite(outputfile, screen3, 11);
  clrscr;
  assign(inputfile,'SCREEN4.NET');
  reset(inputfile);
  while (NOT Eof(inputfile)) do
  begin
    readln(inputfile,line);
    writeln(line);
  end;
  for i := 0 to 7 do
    move(video[160*i], screen4[100*i],100);
  blockwrite(outputfile, screen4, 15);
  close(outputfile);
end.
