program makescr;
{Make screen template for NG_CLONE}
uses dos,crt;
type
  textel=record                         {See NG_CLONE.PAS}
    cha:byte;
    att:byte;
  end;
  fiftylinebuf=    array[1..50,1..80] of textel;
  halfbuf=    array[1..80] of textel;
  twelwebuf=    array[1..12,1..80] of textel;
  
var
  smallscreen:twelwebuf absolute $B800:$0000;
  largescreen:halfbuf absolute $B800:$0000;
  f:file;
  i:word;
  
procedure frame(w,d:byte);
begin
  write('Ú');for i:=2 to w-1 do write('Ä');write('¿');
  for i:=2 to d-1 do
    begin
      gotoxy(1,i);write('³');gotoxy(w,i);write('³');
    end;
  write('À');for i:=2 to w-1 do write('Ä');write('Ù');
end;
  
begin
assign(f,'ng_clone.scr');
    {You may add a drive and/or directory, if desired}
rewrite(f,1);
textmode(259);
window(1,1,80,12);textattr:= 27;clrscr;
window(1,1,80,13);frame(80,12);
gotoxy(1,3);
write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
textattr:= 27;
gotoxy(80,4);write(#24);
for i:=5 to 10 do
  begin
    gotoxy(80,i);write(#177);
  end;
gotoxy(80,11);write(#25);
gotoxy(1,13);
blockwrite(f,smallscreen,sizeof(smallscreen));
for i:=1 to 80 do smallscreen[1,i]:=smallscreen[2,i];
textattr:=$70;gotoxy(3,1);write('See also:');
blockwrite(f,largescreen,sizeof(largescreen));
close(f);
end.