{ (c) 1998 CREEQ <creeq@web.de> }
Program Bildschirmschoner;
uses Graph,Crt;
var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
  var x,y : integer;
  label 1,2;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin  { Do graphics }
    randomize;
1:  x := 0;
    y := random(15);
    repeat
      x := x + 1;
      setcolor(y+1);
      circle(0,0,x);
      setcolor(y+2);
      circle(640,0,x);
      setcolor(y+3);
      circle(640,480,x);
      setcolor(y+4);
      circle(0,480,x);
      if keypressed then goto 2;
    until x = 500;
    goto 1;
2:  CloseGraph;
  end;
end.