{ (c) 1998 CREEQ <creeq@web.de> }
program Bunter_Kreis;
uses Crt, Graph;

var grdriver, grmode : integer;
    driver : pointer;
    c, b : word;


function initsvga : integer;
begin
  initsvga := 0;
end;

begin
  driver := @initsvga;
  grmode := 0;
  GrDriver := InstallUserDriver('Svga256',driver);
  initgraph(grdriver, grmode, '');
  b := 200;
  repeat
    for c := 50 to 150 do
    begin
      setcolor(c);
      circle(getmaxx div 2,getmaxy div 2,b);
      dec(b);
      if b = 0 then b := 200;
    end;
  until keypressed;
  readkey;
  closegraph;
end.