program showpal;

uses gfx256;

var
   i,j : integer;
begin
 graph320x200;


 for i:=0 to 15 do
  for j:=0 to 15 do
   bar(j*20,i*12,19,11,j+i*16);

 readln;

 for i:=0 to 63 do
  begin
   SetRGB( 64+i,i,0,0);
   SetRGB(128+i,0,i,0);
   SetRGB(192+i,0,0,i);
  end;

 readln;
 text80x25;
end.