{ (c) 1998 CREEQ <creeq@web.de> }
program bildweg3;
uses Crt,Graph;
var
  grDriver : Integer;
  grMode : Integer;
begin
  grDriver := VGA;
  grMode := VGAHi;
  InitGraph(grDriver, grMode,'C:\TP\BIN');
  setfillstyle(1,lightgreen);
  floodfill(getmaxx div 2,getmaxy div 2,lightgreen);
  delay(1000);
  randomize;
  repeat
    putpixel(random(640),random(480),black);
  until keypressed;
end.