program tgraf;

Var
  ax,ay,c,n,m  : integer;
  xi,xo,yo,ans,colr : byte;
  ch           : char;
  scrn         : array [0..16383] of byte;

{$I dhr.inc}

begin
  grafix;
  grafmode (bw);
  clrgraf($7f);

  ax := 0;
  for m := 0 to 183 do begin
    ax := m*2;
    for ay := 0 to 191 do begin
      unplot (ax,ay);
      ax := ax+1;
      end;
    end;

  n := 567;
  for m := 566 downto 376 do begin
    n := n-3;
    ax := n;
    for ay := 0 to 191 do begin
      unplot (ax,ay);
      ax := ax-1;
      end
    end;

  Upload (Addr(scrn));
  grafmode (colour);
  grafix;
  for colr := $00 to $0f do begin
    clrgraf (colr shl 4);
    for n := 0 to 31000 do;
    for n := 0 to 31000 do;
    for n := 0 to 31000 do;
    for n := 0 to 31000 do;
    for n := 0 to 31000 do;
    for n := 0 to 31000 do;
    for n := 0 to 31000 do;
    end;

  DownLoad (Addr(scrn));

  While Not KeyPressed do;
  read (Kbd,ch);

  text;

end.