Procedure meinSkript;

VAR

{here you have to declare your variables you like to use}

p1X, p1Y, p2X, p2Y:REAL;

i,m : INTEGER;

meinLayerHandle, myHandle : HANDLE;

BEGIN;

For i:=0 to 10 do Begin
BeginPoly;
AddPoint(i*18,0);
AddPoint(i*18+2.9,0);
AddPoint(i*18+2.9,-3);
AddPoint(i*18+3.1,-3);
AddPoint(i*18+3.1,0);
AddPoint(i*18+5.9,0);
AddPoint(i*18+5.9,-3);
AddPoint(i*18+6.1,-3);
AddPoint(i*18+6.1,0);
AddPoint(i*18+8.9,0);
AddPoint(i*18+8.9,-3);
AddPoint(i*18+9.1,-3);
AddPoint(i*18+9.1,0);
AddPoint(i*18+11.9,0);
AddPoint(i*18+11.9,-3);
AddPoint(i*18+12.1,-3);
AddPoint(i*18+12.1,0);
AddPoint(i*18+14.9,0);
AddPoint(i*18+14.9,-3);
AddPoint(i*18+15.1,-3);
AddPoint(i*18+15.1,0);
AddPoint(i*18+18,0);
AddPoint(i*18+18,-12);
AddPoint(i*18+15.1,-12);
AddPoint(i*18+15.1,-9);
AddPoint(i*18+14.9,-9);
AddPoint(i*18+14.9,-12);
AddPoint(i*18+12.1,-12);
AddPoint(i*18+12.1,-9);
AddPoint(i*18+11.9,-9);
AddPoint(i*18+11.9,-12);
AddPoint(i*18+9.1,-12);
AddPoint(i*18+9.1,-9);
AddPoint(i*18+8.9,-9);
AddPoint(i*18+8.9,-12);
AddPoint(i*18+6.1,-12);
AddPoint(i*18+6.1,-9);
AddPoint(i*18+5.9,-9);
AddPoint(i*18+5.9,-12);
AddPoint(i*18+3.1,-12);
AddPoint(i*18+3.1,-9);
AddPoint(i*18+2.9,-9);
AddPoint(i*18+2.9,-12);
AddPoint(i*18,-12);
AddPoint(i*18,0);
EndPoly;
End;

{----- Zeichnen von zehn Rechtecken -----}

For i:=0 TO 9 DO BEGIN

END;

(* Der Datentyp HANDLE wird in einer der folgenden 

   Vorlesungen nochmals erl‰utert. 

   Ein Handle wird f¸r die 'Hausaufgabe' nicht benˆtigt.

*)

(*

meinLayerHandle := ActLayer;

For i:=0 TO 50 DO BEGIN

	myHandle := FObject;

	For m:=0 TO NumObj(meinLayerHandle) DO BEGIN

		HMove(myHandle, 1 - random *2, 1 - random *2);

		myHandle := NextObj(myHandle);

		redraw;

		wait(0.3);

	END;

END;

*)

END;

RUN(meinSkript);