Listing: 1 MODULE MIX_MOD; 2 3 IMPORT GWinC2M,IO; 4 5 TYPE 6 A6G=ARRAY[1..6] OF GWinC2M.GCoord; ***** ^ not supported yet ***** ^ not supported yet 7 A4G=ARRAY[1..4] OF GWinC2M.GCoord; ***** ^ not supported yet ***** ^ not supported yet 8 9 VAR 10 W:GWinC2M.GWindow; ***** ^ not supported yet 11 it:INTEGER; 12 penx,peny:A6G; ***** ^ not supported yet 13 trix,triy:A4G; ***** ^ not supported yet 14 I:INTEGER; 15 16 BEGIN 17 W.ct__@Fssssi(0,0,1024,1024,4); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 18 FOR it:=0 TO 4 DO 19 W.ReSize(it*75,it*75,1024-it*25,1024-it*25); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 20 W.SetColor(1,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 21 W.Clear(-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 22 penx:=A6G(300,700,1000,512,30,0); ***** ^ not supported yet ***** ^ not supported yet 23 peny:=A6G(1000,1000,300,10,300,0); ***** ^ not supported yet ***** ^ not supported yet 24 trix:=A4G(300,700,512,0); ***** ^ not supported yet ***** ^ not supported yet 25 triy:=A4G(800,800,300,0); ***** ^ not supported yet ***** ^ not supported yet 26 W.Polygon(5,ADR(penx),ADR(peny),-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 27 W.Polygon(3,ADR(trix),ADR(triy),-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 28 W.Fill(512,900,-1,TRUE); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 29 W.SetColor(3,-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 30 W.CursorPosition(200,512); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 31 GWinC2M.cputs(ADR('C++/Modula-2 Graphics Library Class Interface'+0C)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ arithmetic operand must be numeric 32 FOR I:=0 TO 1023 DO 33 W.SetColor(I,-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 34 W.Plot(I,I,-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 35 W.Plot(I,1024-I,-1) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 36 END; 37 W.SetColor(4,-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 38 I:=511; 39 WHILE I>0 DO 40 W.EllipticArc(512,512,I,I,I,I+90); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 41 I:=I-20 42 END; 43 I:=0; 44 WHILE I<360 DO 45 W.SetColor(I DIV 30,-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 46 W.EllipticPie(900,500,100,500,I,I+30,1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 47 I:=I+30 48 END; 49 I:=900; 50 WHILE I>0 DO 51 W.SetColor(I DIV 100+1,-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 52 W.Cuboid(1000-I,I,I DIV 10,I DIV 10,I DIV 10,0,0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 53 I:=I-100 54 END; 55 W.CursorPosition(362,512+W.CharHeight()); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 56 GWinC2M.cputs(ADR('Press any key to continue'+0C)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ arithmetic operand must be numeric 57 IF (IO.RdKey()=0C) AND (IO.RdKey()=0C) THEN END; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 58 END; 59 W.dt__; ***** ^ not supported yet ***** ^ not supported yet 60 END MIX_MOD. 100 errors