ameise.pas

  PROGRAM Grafik0;
  USES Graph;
  VAR  Treiber, Modus, Zeile, Spalte, Farbe, Zufall, counter: Integer;

  BEGIN
    Randomize;
    counter := 0;
    Treiber := Detect;
    InitGraph (Treiber, Modus, 'c:\turbo\bgi');
    repeat
    for zeile := 1 to 480 do begin
    for spalte  := 1 to 640 do begin
    zufall := random (2) + 1;
    if (zufall = 1) then farbe := random(15) + 1
    else farbe := random (15) + 1;
    putpixel (spalte, zeile, farbe);

    end;
    end;
     inc(counter);
    until counter > 10;

   { hier stehen deine Grafikanweisungen }

    Readln;
  END.