Musterlösung zu Aufgabe 3

MODULE Aufgabe3;

IMPORT C:=ColorPlane;

PROCEDURE ProgMain*;
VAR ch:CHAR; i:INTEGER;

BEGIN
     C. Open ();
     FOR i:=0 TO 9 DO
               C. Box (100+i*20,100,120+i*20,120,1);
     END ;
     ch:= C. ReadKey();
END ProgMain;

END Aufgabe3.

Zurück zum Thema Grafik