PROCEDURE nameOfScript; VAR x,y,l,my,nx,nLoops,myColorIndex : INTEGER; r,g,b : LONGINT; myHandle : HANDLE; px1,px2,py1,py2 : REAL; BEGIN nLoops:=0; For my := 10 TO 20 DO BEGIN For nx := 10 TO 20 DO BEGIN (*ColorIndexToRGB(my+2,r,g,b); PenFore(r,g,b);*) For x := 1 TO 4 DO BEGIN For y := 1 TO 4 DO BEGIN nLoops:=nLoops+1; px1 := x*5+1 + nx *15; py1 := y*5+1 + my *15; px2 := x*5+10 + nx *15; py2 := y*5+10 + my *15; Rect(px1,py1,px2,py2); (* COMMENT Rect(x*5+1,y*5+1,x*5+10,y*5+10); ColorIndexToRGB(nx+2,r,g,b); PenFore(r,g,b);*) myColorIndex:= (nloops) MOD (3); ColorIndexToRGB(myColorIndex,r,g,b); PenFore(r,g,b); END; END; END; END; END; Run(nameOfScript);