Musterlösung zu Aufgabe 2

MODULE Aufgabe2;

IMPORT C:=ColorPlane;

PROCEDURE ProgMain*;
VAR ch:CHAR;
BEGIN

     C. Open ();
     C. Box (100,200,500,400,1);
     C. Line (100,200,500,400,1);
     C. Line (100,400,500,200,1);
     C. SetBackColor (255,255,255);
     C. Dot (150,150,0);
     ch:=C.ReadKey();
END ProgMain;

END Aufgabe2.

Zurück zum Thema Grafik