MODULE Aufgabe4;
IMPORT C:=ColorPlane;
PROCEDURE ProgMain*;
VAR ch:CHAR;
i:INTEGER;
BEGIN
C. Open ();
FOR i:=0 TO 9 DO
C. Box (100,100,120+i*20,120+i*20,1);
END ;
ch:= C. ReadKey();
END ProgMain;
END Aufgabe4.
Zurück zum Thema Grafik