PROCEDURE ArtLine2;

VAR

	i:INTEGER;
	h,j:REAL;
	x,y:INTEGER;
	
BEGIN

	j:=10;
	h:=5;
	FOR x:=1 TO 10 {set number of polys you'd like to produce} DO BEGIN;
		FOR y:=1 TO 10 {set number of polys you'd like to produce} DO BEGIN
			
		MoveTo(10,10);
	LineTo(Random * 199,random * 99);
	Line(Random * 199,Random * 9);
	Relative;
	LineTo(Random * -999,Random * 199);
	Absolute;
	LineTo(Random * 999,Random * 99);
	
	FillBack(random * 65535, random * 65535, random * 65535);
	
		END;
	END;
END;
	{Kopiräit: Gruppe Chrisa}

RUN(ArtLine2);