PROCEDURE Knaeuel;

VAR
	i,m	:INTEGER;

{Begin of Programm}
BEGIN;

	FOR m:=1 TO 25 DO BEGIN
		FOR i:=1 TO 25 DO BEGIN

			{Der "Zeichenstift" wird an die Ausgangsposition bewegt}
			MoveTo(0+i,0);

			{festlegen der Stiftfarbe}
			PenFore(m*2000,m*1000,Random*3000);

			{zeichnen der Linie}
			LineTo(m*2,i*2);

			{rotieren aller bisher gezeichneten Linie}
			Rotate(i*4+m);
		END;
	END;

{End of Programm}
END;
Run(Knaeuel);