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