{ (c) 1998 CREEQ <creeq@web.de> }
Program Bildschirmschoner;
uses Graph,Crt;
var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
  var x,y,z : integer;
  label 1;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin  { Do graphics }
    randomize;
    repeat
1:    z := y;
      x := 500;
      z := random(15);
      setcolor(z);
      if z = 0 then goto 1;
      if z = y then goto 1;
      repeat
        x := x -1;
        circle(320,240,x);



      until x = 0;
    until keypressed;
    CloseGraph;
  end;
end.