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