Procedure myScript;

VAR
i,ii,iFrame,a,b,c,d : INTEGER;

BEGIN

For iFrame:=0 TO 10 DO BEGIN

	For i:=0 TO 10 DO BEGIN
		a:=i*10+Random*8;
		b:=0*10+Random*8;
		For ii:=0 TO 29 DO BEGIN

			c:=i*10+Random*8;
			d:=ii*10+Random*8;
		
			Poly(a+iFrame*200,b,c+iFrame*200,d);
		
			a:=c;
			b:=d;
		END;
	END;
END;
Rect(-50,-50,2200,350);

END;
RUN(myScript);