Listing: 1 MODULE MGdemo; 2 3 IMPORT Graph, IO, Lib, SYSTEM, Storage; 4 5 TYPE 6 PieInfo = RECORD 7 state: CARDINAL; 8 x1, y1, x2, y2: CARDINAL; 9 startx, starty: CARDINAL; 10 CurrentX: CARDINAL; 11 CurrentY: CARDINAL; 12 fill: BOOLEAN; 13 color: CARDINAL; 14 END; ***** ^ not supported yet 15 PieHandle = POINTER TO PieInfo; ***** ^ not supported yet 16 17 TYPE 18 ColorArray = ARRAY [0..15] OF LONGCARD; ***** ^ not supported yet ***** ^ undeclared identifier 19 SmallColorArray = ARRAY [0..3] OF CARDINAL; ***** ^ not supported yet ***** ^ not supported yet 20 CONST 21 Colors = ColorArray( Graph._BLACK, Graph._BLUE, Graph._GREEN, Graph._CYAN, Graph._RED, Graph._MAGENTA, Graph._BROWN, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 22 Graph._WHITE, Graph._GRAY, Graph._LIGHTBLUE, Graph._LIGHTGREEN, Graph._LIGHTCYAN, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 23 Graph._LIGHTRED, Graph._LIGHTMAGENTA, Graph._LIGHTYELLOW, Graph._BRIGHTWHITE); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 24 25 VAR 26 Mono: BOOLEAN; 27 XValues: ARRAY [0..3] OF CARDINAL; ***** ^ not supported yet ***** ^ not supported yet 28 YValues: ARRAY [0..3] OF CARDINAL; ***** ^ not supported yet ***** ^ not supported yet 29 cv: Graph.VideoConfig; ***** ^ not supported yet 30 Patterns: ARRAY [0..4] OF Graph.FillMaskType; ***** ^ not supported yet ***** ^ not supported yet 31 32 PROCEDURE Max(V1, V2: CARDINAL): CARDINAL; 33 34 BEGIN 35 IF V1 > V2 THEN 36 RETURN V1; 37 ELSE 38 RETURN V2; 39 END; 40 END Max; ***** ^ not supported yet 41 42 43 PROCEDURE TestKey; 44 BEGIN 45 IF CAP(IO.RdKey()) = 'X' THEN ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 46 SYSTEM.Eval(Graph.SetVideoMode(Graph._DEFAULTMODE)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 47 HALT; ***** ^ undeclared identifier 48 END; (*IF*) 49 END TestKey; ***** ^ not supported yet 50 51 PROCEDURE InitPalette(); 52 53 VAR 54 i: CARDINAL; 55 red, green, blue: CARDINAL; 56 color: LONGCARD; ***** ^ undeclared identifier 57 colors: ARRAY [0..255] OF LONGCARD; ***** ^ not supported yet ***** ^ undeclared identifier 58 BEGIN 59 i:=0; 60 SYSTEM.Eval(Graph.SetVideoMode(Graph._MRES256COLOR)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 61 WHILE i < 256 DO 62 red :=CARDINAL(BITSET(i)* BITSET(0E0H))>>2; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ arithmetic operand must be numeric 63 green:=CARDINAL(BITSET(i) * BITSET(01CH))<<1; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ arithmetic operand must be numeric 64 blue :=CARDINAL(BITSET(i) * BITSET(3))<<4; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ arithmetic operand must be numeric 65 color:= (LONGCARD(blue)<<16) + (LONGCARD(green)<<8) + LONGCARD(red); ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ arithmetic operand must be numeric ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ arithmetic operand must be numeric ***** ^ undeclared identifier ***** ^ not supported yet 66 colors[i]:=color; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 67 INC(i); ***** ^ undeclared identifier ***** ^ not supported yet 68 END; 69 SYSTEM.Eval(Graph.RemapAllPalette(colors)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 70 END InitPalette; ***** ^ not supported yet 71 72 PROCEDURE AdjustRGB(VAR red, green, blue: CARDINAL); 73 74 VAR 75 nr, nb, ng: CARDINAL; 76 BEGIN 77 IF (red >= blue) AND (red >= green) THEN 78 nr:=255; 79 ng:=(green*255) DIV red; 80 nb:=(blue*255) DIV red; 81 ELSIF (green >= red) AND (green >= blue) THEN 82 ng:=255; 83 nr:=(red*255) DIV green; 84 nb:=(blue*255) DIV green; 85 ELSE 86 nb:=255; 87 ng:=(green*255) DIV blue; 88 nr:=(red*255) DIV blue; 89 END; 90 red:=nr; 91 blue:=nb; 92 green:=ng; 93 END AdjustRGB; ***** ^ not supported yet 94 95 PROCEDURE PlotRGB(x, y, red, green, blue: CARDINAL); 96 97 VAR 98 r, g, b, color: CARDINAL; 99 BEGIN 100 r:=CARDINAL(BITSET(red) * BITSET(0E0H)); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 101 g:=CARDINAL(BITSET(green) * BITSET(0E0H))>>3; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ arithmetic operand must be numeric 102 b:=CARDINAL(BITSET(blue) * BITSET(0C0H))>>6; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ arithmetic operand must be numeric 103 color:= CARDINAL(BITSET(r) + BITSET(g) + BITSET(b)); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 104 Graph.Plot(x+20, y, color); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 105 END PlotRGB; ***** ^ not supported yet 106 107 PROCEDURE VGATriangle(); 108 109 VAR 110 x, y: CARDINAL; 111 red, green, blue: CARDINAL; 112 BEGIN 113 InitPalette(); ***** ^ not supported yet ***** ^ not supported yet 114 x:=0; 115 WHILE x < 256 DO 116 y:=0; 117 WHILE y < 200 DO 118 red:=x; 119 green:=(y*255) DIV 200; 120 IF (red+green) < 255 THEN 121 blue:=255-(red+green); 122 AdjustRGB(red, green, blue); ***** ^ not supported yet ***** ^ not supported yet 123 PlotRGB(x, y, red, green, blue); ***** ^ not supported yet ***** ^ not supported yet 124 END; 125 INC(y); ***** ^ undeclared identifier ***** ^ not supported yet 126 END; 127 INC(x); ***** ^ undeclared identifier ***** ^ not supported yet 128 END; 129 SYSTEM.Eval(Graph.SetTextColor(10)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 130 SYSTEM.Eval(Graph.SetTextPosition(25, 5)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 131 Graph.OutText('Hit Any Key To Continue,X To Exit.'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 132 TestKey; ***** ^ not supported yet 133 SYSTEM.Eval(Graph.SetVideoMode(Graph._ERESCOLOR)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 134 END VGATriangle; ***** ^ not supported yet 135 136 137 PROCEDURE DrawEllipses(); 138 139 VAR 140 n: INTEGER; 141 f: BOOLEAN; 142 x1, x2, y1, y2: CARDINAL; 143 c: CARDINAL; 144 BEGIN 145 n:=0; 146 c:=1; 147 f:=Graph._GFILLINTERIOR; ***** ^ not supported yet ***** ^ not supported yet 148 Patterns[0] := Graph.FillMaskType(88H, 44H, 22H, 11H, 88H, 44H, 22H, 11H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 149 Patterns[1] := Graph.FillMaskType(0AAH, 0AAH, 0AAH, 0AAH, 0AAH, 0AAH, 0AAH, 0AAH); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 150 Patterns[2] := Graph.FillMaskType(0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 151 Patterns[3] := Graph.FillMaskType(0FFH, 40H, 0FFH, 40H, 0FFH, 40H, 0FFH, 40H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 152 Patterns[4] := Graph.FillMaskType(80H, 40H, 20H, 10H, 08H, 04H, 02H, 01H); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 153 LOOP 154 IF n = 100 THEN 155 EXIT; 156 END; 157 INC(n); ***** ^ undeclared identifier ***** ^ not supported yet 158 IF IO.KeyPressed() THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 159 EXIT; 160 END; 161 Graph.SetFillMask(Patterns[Lib.RANDOM(5)]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 162 x1:=Lib.RANDOM(cv.numxpixels-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 163 y1:=Lib.RANDOM(cv.numypixels-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 164 x2:=Lib.RANDOM(cv.numxpixels-x1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 165 y2:=Lib.RANDOM(cv.numypixels-y1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 166 IF f = Graph._GFILLINTERIOR THEN ***** ^ not supported yet ***** ^ not supported yet 167 f:=Graph._GBORDER; ***** ^ not supported yet ***** ^ not supported yet 168 ELSE 169 f:=Graph._GFILLINTERIOR; ***** ^ not supported yet ***** ^ not supported yet 170 END; 171 Graph.Ellipse(x1, y1, x2, y2, c, f); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 172 INC(c); ***** ^ undeclared identifier ***** ^ not supported yet 173 IF c = cv.numcolors THEN ***** ^ not supported yet ***** ^ not supported yet 174 c:=1; 175 END; 176 END; 177 IF NOT Mono THEN 178 SYSTEM.Eval(Graph.SetTextPosition(25, 1)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 179 Graph.OutText('Press Any Key To Continue, X To Exit'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 180 END; 181 TestKey; ***** ^ not supported yet 182 END DrawEllipses; ***** ^ not supported yet 183 184 PROCEDURE Ellipses(scale: CARDINAL); 185 186 BEGIN 187 Graph.SetClipRgn(0, 0, cv.numxpixels-1, cv.numypixels-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 188 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 189 DrawEllipses(); ***** ^ not supported yet ***** ^ not supported yet 190 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 191 Graph.Rectangle(49 DIV scale, 24 DIV scale, 501 DIV scale, 291 DIV scale, 3, Graph._GBORDER); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 192 Graph.SetClipRgn(50 DIV scale, 25 DIV scale, 500 DIV scale, 290 DIV scale); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 193 DrawEllipses(); ***** ^ not supported yet ***** ^ not supported yet 194 Graph.SetClipRgn(0, 0, cv.numxpixels-1, cv.numypixels-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 195 END Ellipses; ***** ^ not supported yet 196 197 PROCEDURE InitPie(x1, y1, x2, y2: CARDINAL; InitState, scale: CARDINAL; fill: BOOLEAN): PieHandle; 198 199 VAR 200 p: PieHandle; ***** ^ not supported yet 201 BEGIN 202 Storage.ALLOCATE(p, SIZE(PieInfo)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 203 p^.x1:=x1 DIV scale; ***** ^ not supported yet ***** ^ not supported yet 204 p^.y1:=y1 DIV scale; ***** ^ not supported yet ***** ^ not supported yet 205 p^.x2:=x2 DIV scale; ***** ^ not supported yet ***** ^ not supported yet 206 p^.y2:=y2 DIV scale; ***** ^ not supported yet ***** ^ not supported yet 207 p^.CurrentX:=XValues[InitState]; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 208 p^.CurrentY:=YValues[InitState]; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 209 p^.startx:=XValues[InitState]; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 210 p^.starty:=YValues[InitState]; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 211 p^.state:=InitState; ***** ^ not supported yet ***** ^ not supported yet 212 p^.fill:=fill; ***** ^ not supported yet ***** ^ not supported yet 213 IF Mono THEN 214 p^.color:=1; ***** ^ not supported yet ***** ^ not supported yet 215 ELSE 216 p^.color:=Lib.RANDOM(cv.numcolors-2)+1; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 217 END; 218 Graph.Pie(p^.x1, p^.y1, p^.x2, p^.y2, p^.CurrentX, p^.CurrentY, p^.CurrentX, p^.CurrentY, p^.color, fill); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 219 RETURN p; ***** ^ not supported yet 220 END InitPie; ***** ^ not supported yet 221 222 PROCEDURE DisposePie(p: PieHandle); 223 224 BEGIN 225 Storage.DEALLOCATE(p, SIZE(PieInfo)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 226 END DisposePie; ***** ^ not supported yet 227 228 PROCEDURE Circulate(p: PieHandle); 229 230 BEGIN 231 Graph.SetFillMask(Patterns[2]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 232 Graph.Rectangle(p^.x1-p^.x2, p^.y1-p^.y2, p^.x1+p^.x2, p^.y1+p^.y2, 0, Graph._GFILLINTERIOR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 233 IF p^.state = 0 THEN ***** ^ not supported yet ***** ^ not supported yet 234 IF p^.CurrentY > 0 THEN ***** ^ not supported yet ***** ^ not supported yet 235 DEC(p^.CurrentY, 4); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 236 ELSE 237 INC(p^.state); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 238 END; 239 END; 240 IF p^.state = 1 THEN ***** ^ not supported yet ***** ^ not supported yet 241 IF p^.CurrentX > 0 THEN ***** ^ not supported yet ***** ^ not supported yet 242 DEC(p^.CurrentX, 8); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 243 ELSE 244 INC(p^.state); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 245 END; 246 END; 247 IF p^.state = 2 THEN ***** ^ not supported yet ***** ^ not supported yet 248 IF p^.CurrentY < cv.numypixels THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 249 INC(p^.CurrentY, 4); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 250 ELSE 251 INC(p^.state); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 252 END; 253 END; 254 IF p^.state = 3 THEN ***** ^ not supported yet ***** ^ not supported yet 255 IF p^.CurrentX < cv.numxpixels THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 256 INC(p^.CurrentX, 8); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 257 ELSE 258 p^.state:=0; ***** ^ not supported yet ***** ^ not supported yet 259 END; 260 END; 261 IF p^.fill = Graph._GFILLINTERIOR THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 262 Graph.SetFillMask(Patterns[Lib.RANDOM(5)]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 263 END; 264 Graph.Pie(p^.x1, p^.y1, p^.x2, p^.y2, p^.CurrentX, p^.CurrentY, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 265 p^.startx, p^.starty, p^.color, p^.fill); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 266 END Circulate; ***** ^ not supported yet 267 268 PROCEDURE Pies(scale: INTEGER); 269 270 VAR 271 p: ARRAY [0..4] OF PieHandle; ***** ^ not supported yet ***** ^ not supported yet 272 n: INTEGER; 273 BEGIN 274 n:=0; 275 XValues[0]:=cv.numxpixels-1; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 276 XValues[1]:=cv.numxpixels-1; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 277 XValues[2]:=0; ***** ^ not supported yet ***** ^ not supported yet 278 XValues[3]:=0; ***** ^ not supported yet ***** ^ not supported yet 279 YValues[0]:=cv.numypixels-1; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 280 YValues[1]:=0; ***** ^ not supported yet ***** ^ not supported yet 281 YValues[2]:=0; ***** ^ not supported yet ***** ^ not supported yet 282 YValues[3]:=cv.numypixels-1; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 283 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 284 Graph.SetClipRgn(0, 0, cv.numxpixels-1, cv.numypixels-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 285 p[0]:=InitPie(80, 60, 50, 30, 0, scale, Graph._GBORDER); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 286 p[1]:=InitPie(510, 70, 60, 60, 1, scale, Graph._GFILLINTERIOR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 287 p[2]:=InitPie(70, 255, 30, 55, 2, scale, Graph._GFILLINTERIOR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 288 p[3]:=InitPie(450, 200, 55, 35, 3, scale, Graph._GBORDER); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 289 p[4]:=InitPie(320, 160, 45, 45, 0, scale, Graph._GFILLINTERIOR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 290 291 IF NOT Mono THEN 292 SYSTEM.Eval(Graph.SetTextPosition(25, 1)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 293 Graph.OutText('Press Any Key To Continue, X To Exit'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 294 END; 295 WHILE NOT IO.KeyPressed() DO ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 296 IF n = 5 THEN 297 n:=0; 298 END; 299 Circulate(p[n]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 300 INC(n); ***** ^ undeclared identifier ***** ^ not supported yet 301 END; 302 TestKey; ***** ^ not supported yet 303 n:=0; 304 WHILE n < 5 DO 305 DisposePie(p[n]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 306 INC(n); ***** ^ undeclared identifier ***** ^ not supported yet 307 END; 308 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 309 Graph.SetFillMask(Patterns[2]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 310 END Pies; ***** ^ not supported yet 311 312 313 314 VAR 315 spotlist: ARRAY [0..5] OF ARRAY [0..5] OF Graph.GraphCoords; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 316 317 PROCEDURE DrawCircles(patnum, start, depth, width: INTEGER); 318 319 VAR 320 n: INTEGER; 321 x, y, xpos, ypos: CARDINAL; 322 BEGIN 323 n:=0; 324 LOOP 325 x:=spotlist[patnum-1][n].xcoord; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 326 IF x = 0 THEN EXIT END; 327 xpos:=CARDINAL(width>>2)*x; ***** ^ not supported yet 328 y:=spotlist[patnum-1][n].ycoord; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 329 ypos:=CARDINAL(depth>>3)*y+CARDINAL(start); ***** ^ not supported yet ***** ^ not supported yet 330 Graph.Ellipse(xpos, ypos, 4, 4, cv.numcolors-1, Graph._GFILLINTERIOR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 331 INC(n); ***** ^ undeclared identifier ***** ^ not supported yet 332 IF n = 6 THEN 333 EXIT; 334 END; 335 END; 336 END DrawCircles; ***** ^ not supported yet 337 338 339 PROCEDURE MoveSideways(image: ADDRESS; pos: ARRAY OF CARDINAL; ***** ^ undeclared identifier ***** ^ not supported yet 340 limit: CARDINAL; incr: INTEGER): CARDINAL; 341 342 VAR 343 x, y: CARDINAL; 344 ret: INTEGER; 345 BEGIN 346 x:=0; 347 y:=0; 348 ret:=0; 349 LOOP 350 IF x = pos[limit] THEN EXIT END; ***** ^ not supported yet ***** ^ not supported yet 351 Graph.PutImage(x, y, image, Graph._GXOR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 352 INC(x, incr); ***** ^ undeclared identifier ***** ^ not supported yet 353 Graph.PutImage(x, y, image, Graph._GPSET); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 354 IF IO.KeyPressed() THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 355 TestKey; ***** ^ not supported yet 356 ret:=1; 357 EXIT; 358 END; 359 END; 360 RETURN ret; 361 END MoveSideways; ***** ^ not supported yet 362 363 PROCEDURE MoveDown(image: ADDRESS; pos: ARRAY OF CARDINAL; ***** ^ undeclared identifier ***** ^ not supported yet 364 limit: CARDINAL; xpos: CARDINAL; incr: INTEGER): INTEGER; 365 366 VAR 367 y: CARDINAL; 368 ret: INTEGER; 369 BEGIN 370 y:=0; 371 ret:=0; 372 LOOP 373 IF y = pos[limit] THEN EXIT END; ***** ^ not supported yet ***** ^ not supported yet 374 Graph.PutImage(xpos, y, image, Graph._GXOR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 375 INC(y, incr); ***** ^ undeclared identifier ***** ^ not supported yet 376 Graph.PutImage(xpos, y, image, Graph._GPSET); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 377 IF IO.KeyPressed() THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 378 TestKey; ***** ^ not supported yet 379 ret:=1; 380 EXIT; 381 END; 382 END; 383 RETURN ret; 384 END MoveDown; ***** ^ not supported yet 385 386 PROCEDURE DrawSpots(number, start, depth, width: INTEGER); 387 388 VAR 389 pattern: ARRAY [0..2] OF CARDINAL; ***** ^ not supported yet ***** ^ not supported yet 390 n: CARDINAL; 391 BEGIN 392 IF number = 0 THEN RETURN END; 393 CASE number OF 394 | 1: 395 pattern[0]:=1; ***** ^ not supported yet ***** ^ not supported yet 396 pattern[1]:=0; ***** ^ not supported yet ***** ^ not supported yet 397 | 2: 398 pattern[0]:=2; ***** ^ not supported yet ***** ^ not supported yet 399 pattern[1]:=0; ***** ^ not supported yet ***** ^ not supported yet 400 | 3: 401 pattern[0]:=2; ***** ^ not supported yet ***** ^ not supported yet 402 pattern[1]:=1; ***** ^ not supported yet ***** ^ not supported yet 403 pattern[2]:=0; ***** ^ not supported yet ***** ^ not supported yet 404 | 4: 405 pattern[0]:=4; ***** ^ not supported yet ***** ^ not supported yet 406 pattern[1]:=0; ***** ^ not supported yet ***** ^ not supported yet 407 | 5: 408 pattern[0]:=4; ***** ^ not supported yet ***** ^ not supported yet 409 pattern[1]:=1; ***** ^ not supported yet ***** ^ not supported yet 410 pattern[2]:=0; ***** ^ not supported yet ***** ^ not supported yet 411 | 6: 412 pattern[0]:=6; ***** ^ not supported yet ***** ^ not supported yet 413 pattern[1]:=0; ***** ^ not supported yet ***** ^ not supported yet 414 END; 415 n:=0; 416 WHILE pattern[n] # 0 DO ***** ^ not supported yet ***** ^ not supported yet 417 DrawCircles(pattern[n], start, depth, width); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 418 INC(n); ***** ^ undeclared identifier ***** ^ not supported yet 419 END; 420 END DrawSpots; ***** ^ not supported yet 421 422 PROCEDURE DrawDomino(depth, width: INTEGER); 423 424 VAR 425 spots: INTEGER; 426 BEGIN 427 Graph.Rectangle(0, 0, width, depth, cv.numcolors-1, Graph._GBORDER); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 428 Graph.Line(0, depth DIV 2, width, depth DIV 2, cv.numcolors-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 429 spots:=Lib.RANDOM(7); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 430 DrawSpots(spots, 0, depth, width); ***** ^ not supported yet ***** ^ not supported yet 431 spots:=Lib.RANDOM(7); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 432 DrawSpots(spots, depth DIV 2, depth, width); ***** ^ not supported yet ***** ^ not supported yet 433 END DrawDomino; ***** ^ not supported yet 434 435 436 PROCEDURE MakeDomino(depth, width: INTEGER): ADDRESS; ***** ^ undeclared identifier 437 438 VAR 439 Buffer: ADDRESS; ***** ^ undeclared identifier 440 size: LONGCARD; ***** ^ undeclared identifier 441 BEGIN 442 size:=Graph.ImageSize(0, 0, width, depth); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 443 Storage.ALLOCATE(Buffer, CARDINAL(size)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 444 DrawDomino(depth, width); ***** ^ not supported yet ***** ^ not supported yet 445 Graph.GetImage(0, 0, width, depth, Buffer); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 446 RETURN Buffer; ***** ^ not supported yet 447 END MakeDomino; ***** ^ not supported yet 448 449 PROCEDURE Animation(adapter: CARDINAL); 450 451 VAR 452 ColPosition: ARRAY [0..10] OF CARDINAL; ***** ^ not supported yet ***** ^ not supported yet 453 RowPosition: ARRAY [0..2] OF CARDINAL; ***** ^ not supported yet ***** ^ not supported yet 454 count, width, depth, incr: INTEGER; 455 MaxRow, MaxCol, clear: INTEGER; 456 CurrentRow, CurrentCol: INTEGER; 457 image: ADDRESS; ***** ^ undeclared identifier 458 BEGIN 459 spotlist[0][0]:= Graph.GraphCoords(2, 2); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 460 spotlist[1][0]:= Graph.GraphCoords(1, 1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 461 spotlist[1][1]:= Graph.GraphCoords(3, 3); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 462 spotlist[2][0]:= Graph.GraphCoords(0, 0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 463 spotlist[3][0]:= Graph.GraphCoords(1, 1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 464 spotlist[3][1]:= Graph.GraphCoords(3, 1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 465 spotlist[3][2]:= Graph.GraphCoords(1, 3); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 466 spotlist[3][3]:= Graph.GraphCoords(3, 3); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 467 spotlist[4][0]:= Graph.GraphCoords(0, 0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 468 spotlist[5][0]:= Graph.GraphCoords(1, 1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 469 spotlist[5][1]:= Graph.GraphCoords(3, 1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 470 spotlist[5][2]:= Graph.GraphCoords(1, 2); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 471 spotlist[5][3]:= Graph.GraphCoords(3, 2); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 472 spotlist[5][4]:= Graph.GraphCoords(1, 3); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 473 spotlist[5][5]:= Graph.GraphCoords(3, 3); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 474 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 475 Graph.SetFillMask(Patterns[2]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 476 IF (adapter = Graph._EGA) OR (adapter = Graph._HGC) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 477 width:=50; 478 depth:=100; 479 MaxRow:=2; 480 MaxCol:=9; 481 clear:=20; 482 incr:=10; 483 ELSE 484 width:=50; 485 depth:=90; 486 MaxRow:=1; 487 MaxCol:=4; 488 clear:=10; 489 incr:=5; 490 END; 491 count:=0; 492 WHILE count <= MaxCol DO 493 ColPosition[count]:=count*(width+10); ***** ^ not supported yet ***** ^ not supported yet 494 INC(count); ***** ^ undeclared identifier ***** ^ not supported yet 495 END; 496 count:=0; 497 WHILE count <= MaxRow DO 498 RowPosition[count]:=count*(depth+clear); ***** ^ not supported yet ***** ^ not supported yet 499 INC(count); ***** ^ undeclared identifier ***** ^ not supported yet 500 END; 501 CurrentCol:=MaxCol; 502 CurrentRow:=MaxRow; 503 504 LOOP 505 IF CurrentCol < 0 THEN EXIT END; 506 image:=MakeDomino(depth, width); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 507 IF CurrentCol > 0 THEN 508 IF MoveSideways(image, ColPosition, CurrentCol, incr) # 0 THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 509 EXIT; 510 END; 511 END; 512 IF CurrentRow > 0 THEN 513 IF MoveDown(image, RowPosition, CurrentRow, ColPosition[CurrentCol], incr) # 0 THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 514 EXIT; 515 END; 516 DEC(CurrentRow); ***** ^ undeclared identifier ***** ^ not supported yet 517 ELSE 518 DEC(CurrentCol); ***** ^ undeclared identifier ***** ^ not supported yet 519 CurrentRow:=MaxRow; 520 END; 521 Storage.DEALLOCATE(image, CARDINAL(Graph.ImageSize(0, 0, width, depth))); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 522 IF IO.KeyPressed() THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 523 EXIT; 524 END; 525 END; 526 IF NOT Mono THEN 527 SYSTEM.Eval(Graph.SetTextPosition(25, 1)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 528 Graph.OutText('Press Any Key To Continue, X To Exit.'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 529 END; 530 TestKey; ***** ^ not supported yet 531 END Animation; ***** ^ not supported yet 532 533 534 535 536 PROCEDURE Bars(scale: INTEGER); 537 538 VAR 539 x1, y1,x2, y2, x3, y3, x4, y4: CARDINAL; 540 NewMask: Graph.FillMaskType; ***** ^ not supported yet 541 BEGIN 542 Graph.SetClipRgn(0, 0, cv.numxpixels-1, cv.numypixels-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 543 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 544 x1:=460 DIV scale; 545 y1:=150 DIV scale; 546 x2:=140 DIV scale; 547 y2:=130 DIV scale; 548 x4:=300 DIV scale; 549 y4:=260 DIV scale; 550 x3:=620 DIV scale; 551 y3:=260 DIV scale; 552 Graph.Pie(x1, y1, x2, y2, x3, y3, x4, y4, Max(4 MOD cv.numcolors, 1), Graph._GFILLINTERIOR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 553 554 x1:=460 DIV scale; 555 y1:=170 DIV scale; 556 x2:=140 DIV scale; 557 y2:=130 DIV scale; 558 x3:=300 DIV scale; 559 y3:=280 DIV scale; 560 x4:=620 DIV scale; 561 y4:=280 DIV scale; 562 Graph.Pie(x1, y1, x2, y2, x3, y3, x4, y4, Max(3 MOD cv.numcolors, 1), Graph._GBORDER); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 563 564 565 NewMask[0]:=88H; ***** ^ not supported yet ***** ^ not supported yet 566 NewMask[1]:=44H; ***** ^ not supported yet ***** ^ not supported yet 567 NewMask[2]:=22H; ***** ^ not supported yet ***** ^ not supported yet 568 NewMask[3]:=11H; ***** ^ not supported yet ***** ^ not supported yet 569 NewMask[4]:=88H; ***** ^ not supported yet ***** ^ not supported yet 570 NewMask[5]:=44H; ***** ^ not supported yet ***** ^ not supported yet 571 NewMask[6]:=22H; ***** ^ not supported yet ***** ^ not supported yet 572 NewMask[7]:=11H; ***** ^ not supported yet ***** ^ not supported yet 573 Graph.SetFillMask(NewMask); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 574 x1:=19 DIV scale; 575 y1:=10 DIV scale; 576 x2:=x1; 577 y2:=321 DIV scale; 578 x3:=600 DIV scale; 579 y3:=y2; 580 581 Graph.Line(x1, y1, x2, y2, cv.numcolors-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 582 Graph.Line(x2, y2, x3, y3, cv.numcolors-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 583 IF NOT Mono THEN 584 SYSTEM.Eval(Graph.SetTextPosition(25, 13 DIV scale)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 585 Graph.OutText('Bar Graphs and Pie Charts'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 586 END; 587 x1:=20 DIV scale; 588 y1:=20 DIV scale; 589 x2:=59 DIV scale; 590 y2:=320 DIV scale; 591 Graph.Cube(Graph._GTOP, x1, y1, x2, y2, 20 DIV scale, Max(1 MOD cv.numcolors, 1), Graph._GFILLINTERIOR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 592 593 594 x1:=60 DIV scale; 595 y1:=120 DIV scale; 596 x2:=99 DIV scale; 597 y2:=320 DIV scale; 598 Graph.Cube(Graph._GTOP, x1, y1, x2, y2, 20 DIV scale, Max(2 MOD cv.numcolors, 1),Graph._GFILLINTERIOR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 599 600 601 x1:=100 DIV scale; 602 y1:=80 DIV scale; 603 x2:=139 DIV scale; 604 y2:=320 DIV scale; 605 Graph.Cube(Graph._GTOP, x1, y1, x2, y2, 20 DIV scale, Max(3 MOD cv.numcolors, 1), Graph._GFILLINTERIOR ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 606 607 608 x1:=140 DIV scale; 609 y1:=200 DIV scale; 610 x2:=179 DIV scale; 611 y2:=320 DIV scale; 612 Graph.Cube(Graph._GTOP, x1, y1, x2, y2, 20 DIV scale, Max(4 MOD cv.numcolors, 1), Graph._GFILLINTERIOR); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 613 614 SYSTEM.Eval(IO.RdKey()); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 615 END Bars; ***** ^ not supported yet 616 617 618 PROCEDURE RandColor(): CARDINAL; 619 620 VAR 621 color: CARDINAL; 622 BEGIN 623 color:=Lib.RANDOM(cv.numcolors); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 624 IF color = 0 THEN 625 color:=cv.numcolors-1; ***** ^ not supported yet ***** ^ not supported yet 626 END; 627 RETURN color; 628 END RandColor; ***** ^ not supported yet 629 630 631 PROCEDURE DrawLines(); 632 633 VAR 634 x, y, col: CARDINAL; 635 MaxX, MaxY: CARDINAL; 636 top, left, bottom, right: CARDINAL; 637 i, limit: INTEGER; 638 BEGIN 639 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 640 top:=0; 641 left:=0; 642 bottom:=cv.numypixels - 1; ***** ^ not supported yet ***** ^ not supported yet 643 right :=cv.numxpixels - 1; ***** ^ not supported yet ***** ^ not supported yet 644 MaxX:=cv.numxpixels - 1; ***** ^ not supported yet ***** ^ not supported yet 645 MaxY:=cv.numypixels - 1; ***** ^ not supported yet ***** ^ not supported yet 646 limit:=cv.numcolors-1; ***** ^ not supported yet ***** ^ not supported yet 647 col:=0; 648 i := 0; 649 WHILE (i <= limit) & ~IO.KeyPressed() DO ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 650 INC(col); ***** ^ undeclared identifier ***** ^ not supported yet 651 Graph.SetClipRgn(left, top, right, bottom); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 652 INC(top, 4); ***** ^ undeclared identifier ***** ^ not supported yet 653 INC(left, 4); ***** ^ undeclared identifier ***** ^ not supported yet 654 DEC(bottom, 4); ***** ^ undeclared identifier ***** ^ not supported yet 655 DEC(right, 4); ***** ^ undeclared identifier ***** ^ not supported yet 656 x := 0; 657 WHILE x <= MaxX DO 658 Graph.Line(x, 0, MaxX - x,MaxY, col); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 659 INC(x, 4); ***** ^ undeclared identifier ***** ^ not supported yet 660 END; 661 y := 0; 662 WHILE y <= MaxY DO 663 Graph.Line(MaxX, y, 0, MaxY - y, col); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 664 INC(y, 2); ***** ^ undeclared identifier ***** ^ not supported yet 665 END; 666 INC(i); ***** ^ undeclared identifier ***** ^ not supported yet 667 END; 668 SYSTEM.Eval(Graph.SetTextPosition(25, 1)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 669 Graph.SetClipRgn(0, 0, cv.numxpixels-1, cv.numypixels-1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 670 IF NOT Mono THEN 671 Graph.OutText('Press Any Key To Continue, X To Exit.'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 672 END; 673 TestKey; ***** ^ not supported yet 674 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 675 END DrawLines; ***** ^ not supported yet 676 677 PROCEDURE DrawLogo(scale: INTEGER; Cols: SmallColorArray); 678 679 VAR 680 mode: BOOLEAN; 681 BEGIN 682 IF Mono THEN 683 mode:=Graph._GBORDER; ***** ^ not supported yet ***** ^ not supported yet 684 ELSE 685 mode:=Graph._GFILLINTERIOR; ***** ^ not supported yet ***** ^ not supported yet 686 END; 687 Graph.Rectangle(140 DIV scale, 20 DIV scale, 500 DIV scale, 330 DIV scale, Cols[0], mode); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 688 Graph.Line(225 DIV scale, 110 DIV scale, 320 DIV scale, 140 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 689 Graph.Line(320 DIV scale, 140 DIV scale, 415 DIV scale, 110 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 690 Graph.Line(415 DIV scale, 110 DIV scale, 460 DIV scale, 125 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 691 Graph.Line(460 DIV scale, 125 DIV scale, 460 DIV scale, 225 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 692 Graph.Line(460 DIV scale, 225 DIV scale, 365 DIV scale, 255 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 693 Graph.Line(365 DIV scale, 255 DIV scale, 365 DIV scale, 285 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 694 Graph.Line(365 DIV scale, 285 DIV scale, 320 DIV scale, 300 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 695 Graph.Line(320 DIV scale, 300 DIV scale, 180 DIV scale, 255 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 696 Graph.Line(180 DIV scale, 255 DIV scale, 180 DIV scale, 190 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 697 Graph.Line(180 DIV scale, 190 DIV scale, 225 DIV scale, 205 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 698 Graph.Line(225 DIV scale, 205 DIV scale, 225 DIV scale, 235 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 699 Graph.Line(225 DIV scale, 235 DIV scale, 270 DIV scale, 250 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 700 Graph.Line(270 DIV scale, 250 DIV scale, 270 DIV scale, 190 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 701 Graph.Line(270 DIV scale, 190 DIV scale, 180 DIV scale, 160 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 702 Graph.Line(180 DIV scale, 160 DIV scale, 180 DIV scale, 125 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 703 Graph.Line(180 DIV scale, 125 DIV scale, 225 DIV scale, 110 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 704 705 Graph.Line(180 DIV scale, 125 DIV scale, 320 DIV scale, 170 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 706 Graph.Line(320 DIV scale, 170 DIV scale, 460 DIV scale, 125 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 707 Graph.Line(320 DIV scale, 170 DIV scale, 320 DIV scale, 300 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 708 709 Graph.Line(365 DIV scale, 190 DIV scale, 415 DIV scale, 175 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 710 Graph.Line(415 DIV scale, 175 DIV scale, 415 DIV scale, 210 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 711 Graph.Line(415 DIV scale, 210 DIV scale, 365 DIV scale, 225 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 712 Graph.Line(365 DIV scale, 225 DIV scale, 365 DIV scale, 190 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 713 Graph.Line(365 DIV scale, 190 DIV scale, 415 DIV scale, 210 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 714 715 Graph.Line(225 DIV scale, 205 DIV scale, 270 DIV scale, 190 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 716 Graph.Line(225 DIV scale, 235 DIV scale, 270 DIV scale, 220 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 717 Graph.Line(180 DIV scale, 190 DIV scale, 225 DIV scale, 175 DIV scale, Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 718 719 IF NOT Mono THEN 720 Graph.FloodFill(250 DIV scale, 130 DIV scale, Cols[1], Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 721 Graph.FloodFill(230 DIV scale, 180 DIV scale, Cols[1], Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 722 Graph.FloodFill(260 DIV scale, 240 DIV scale, Cols[1], Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 723 Graph.FloodFill(380 DIV scale, 210 DIV scale, Cols[1], Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 724 725 Graph.FloodFill(200 DIV scale, 230 DIV scale, Cols[2], Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 726 Graph.FloodFill(250 DIV scale, 220 DIV scale, Cols[2], Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 727 Graph.FloodFill(400 DIV scale, 190 DIV scale, Cols[2], Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 728 Graph.FloodFill(440 DIV scale, 190 DIV scale, Cols[2], Cols[1]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 729 END; 730 END DrawLogo; ***** ^ not supported yet 731 732 PROCEDURE Rotate(Colors: ARRAY OF LONGCARD); ***** ^ undeclared identifier 733 734 VAR 735 n: CARDINAL; 736 BEGIN 737 n:=0; 738 Colors[15]:=Colors[0]; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 739 WHILE n < 15 DO 740 Colors[n]:=Colors[n+1]; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 741 INC(n); ***** ^ undeclared identifier ***** ^ not supported yet 742 END; 743 END Rotate; ***** ^ not supported yet 744 745 PROCEDURE CGAIntro(); 746 747 VAR 748 c: SmallColorArray; ***** ^ not supported yet 749 BEGIN 750 c:=SmallColorArray(1,2,3,4); ***** ^ not supported yet ***** ^ not supported yet 751 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 752 DrawLogo(2, c); ***** ^ not supported yet ***** ^ not supported yet 753 SYSTEM.Eval(Graph.SetTextPosition(4, 9)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 754 SYSTEM.Eval(Graph.SetTextColor(2)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 755 Graph.OutText('TopSpeed Modula-2 Graphics'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 756 SYSTEM.Eval(Graph.SetTextPosition(25, 1)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 757 Graph.OutText('Press Any Key To Continue, X To Exit.'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 758 TestKey; ***** ^ not supported yet 759 END CGAIntro; ***** ^ not supported yet 760 761 PROCEDURE EGAIntro(); 762 763 VAR 764 n : INTEGER; 765 c : SmallColorArray; ***** ^ not supported yet 766 767 PROCEDURE GetKey():CHAR; 768 VAR 769 c : CHAR; 770 BEGIN 771 c := IO.RdKey(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 772 IF CAP(c) = 'X' THEN ***** ^ undeclared identifier ***** ^ not supported yet 773 SYSTEM.Eval(Graph.SetVideoMode(Graph._DEFAULTMODE)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 774 HALT; ***** ^ undeclared identifier 775 END; (*IF*) 776 RETURN c; 777 END GetKey; ***** ^ not supported yet 778 779 BEGIN 780 c:=SmallColorArray(9, 8, 15, 6); ***** ^ not supported yet ***** ^ not supported yet 781 Graph.OutText('TopSpeed Modula-2 Graphics'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 782 SYSTEM.Eval(Graph.SetActivePage(1)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 783 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 784 DrawLogo(1, c); ***** ^ not supported yet ***** ^ not supported yet 785 SYSTEM.Eval(Graph.SetTextPosition(4, 20)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 786 SYSTEM.Eval(Graph.SetTextColor(4)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 787 Graph.OutText('TopSpeed Modula-2 Graphics Library Demo'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 788 SYSTEM.Eval(Graph.SetVisualPage(1)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 789 SYSTEM.Eval(Graph.SetTextColor(10)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 790 SYSTEM.Eval(Graph.SetTextPosition(25, 23)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 791 Graph.OutText('Press Any Key To Continue, X To Exit'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 792 IF CAP(GetKey()) = 'C' THEN ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 793 n:=1; 794 WHILE NOT IO.KeyPressed() DO ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 795 SYSTEM.Eval(Graph.RemapPalette(6, Colors[(6+n) MOD 16])); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 796 SYSTEM.Eval(Graph.RemapPalette(8, Colors[(8+n) MOD 16])); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 797 SYSTEM.Eval(Graph.RemapPalette(9, Colors[(9+n) MOD 16])); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 798 SYSTEM.Eval(Graph.RemapPalette(15, Colors[(15+n) MOD 16])); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 799 Lib.Delay(100); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 800 INC(n); ***** ^ undeclared identifier ***** ^ not supported yet 801 END; 802 SYSTEM.Eval(IO.RdKey()); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 803 WHILE NOT IO.KeyPressed() DO ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 804 SYSTEM.Eval(Graph.RemapAllPalette(Colors)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 805 Lib.Delay(1000); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 806 Rotate(Colors); ***** ^ not supported yet ***** ^ not supported yet 807 END; 808 SYSTEM.Eval(IO.RdKey()); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 809 END; 810 SYSTEM.Eval(Graph.SetActivePage(0)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 811 SYSTEM.Eval(Graph.SetVisualPage(0)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 812 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 813 END EGAIntro; ***** ^ not supported yet 814 815 PROCEDURE HercIntro(); 816 817 VAR 818 c: SmallColorArray; ***** ^ not supported yet 819 BEGIN 820 c:=SmallColorArray(1, 1, 1, 1); ***** ^ not supported yet ***** ^ not supported yet 821 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 822 DrawLogo(1, c); ***** ^ not supported yet ***** ^ not supported yet 823 TestKey; ***** ^ not supported yet 824 Graph.ClearScreen(Graph._GCLEARSCREEN); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 825 END HercIntro; ***** ^ not supported yet 826 827 PROCEDURE HercDemo(); 828 829 830 BEGIN 831 SYSTEM.Eval(Graph.SetVideoMode(Graph._HERCMONO)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 832 Graph.GetVideoConfig(cv); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 833 HercIntro(); ***** ^ not supported yet ***** ^ not supported yet 834 Ellipses(1); ***** ^ not supported yet ***** ^ not supported yet 835 DrawLines(); ***** ^ not supported yet ***** ^ not supported yet 836 Animation(Graph._HGC); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 837 Pies(1); ***** ^ not supported yet ***** ^ not supported yet 838 Bars(1); ***** ^ not supported yet ***** ^ not supported yet 839 END HercDemo; ***** ^ not supported yet 840 841 PROCEDURE EGADemo(); 842 843 BEGIN 844 SYSTEM.Eval(Graph.SetVideoMode(Graph._ERESCOLOR)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 845 Graph.GetVideoConfig(cv); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 846 EGAIntro(); ***** ^ not supported yet ***** ^ not supported yet 847 Ellipses(1); ***** ^ not supported yet ***** ^ not supported yet 848 DrawLines(); ***** ^ not supported yet ***** ^ not supported yet 849 Animation(Graph._EGA); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 850 Pies(1); ***** ^ not supported yet ***** ^ not supported yet 851 Bars(1); ***** ^ not supported yet ***** ^ not supported yet 852 END EGADemo; ***** ^ not supported yet 853 854 PROCEDURE VGADemo(); 855 856 BEGIN 857 SYSTEM.Eval(Graph.SetVideoMode(Graph._ERESCOLOR)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 858 Graph.GetVideoConfig(cv); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 859 EGAIntro(); ***** ^ not supported yet ***** ^ not supported yet 860 VGATriangle(); ***** ^ not supported yet ***** ^ not supported yet 861 Ellipses(1); ***** ^ not supported yet ***** ^ not supported yet 862 DrawLines(); ***** ^ not supported yet ***** ^ not supported yet 863 Animation(Graph._EGA); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 864 Pies(1); ***** ^ not supported yet ***** ^ not supported yet 865 Bars(1); ***** ^ not supported yet ***** ^ not supported yet 866 END VGADemo; ***** ^ not supported yet 867 868 PROCEDURE CGADemo(); 869 870 BEGIN 871 SYSTEM.Eval(Graph.SetVideoMode(Graph._MRES4COLOR)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 872 Graph.GetVideoConfig(cv); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 873 CGAIntro(); ***** ^ not supported yet ***** ^ not supported yet 874 Ellipses(2); ***** ^ not supported yet ***** ^ not supported yet 875 DrawLines(); ***** ^ not supported yet ***** ^ not supported yet 876 Animation(Graph._CGA); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 877 Pies(2); ***** ^ not supported yet ***** ^ not supported yet 878 Bars(2); ***** ^ not supported yet ***** ^ not supported yet 879 END CGADemo; ***** ^ not supported yet 880 881 882 BEGIN 883 Mono := FALSE; 884 Graph.GetVideoConfig(cv); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 885 CASE cv.adapter OF ***** ^ not supported yet ***** ^ not supported yet 886 | Graph._HGC : ***** ^ not supported yet ***** ^ not supported yet 887 Mono:= TRUE; 888 HercDemo(); ***** ^ not supported yet ***** ^ not supported yet 889 | Graph._MDPA : ***** ^ not supported yet ***** ^ not supported yet 890 IO.WrStr('A Color Graphics Card Is Not Installed'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 891 IO.WrLn(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 892 HALT; ***** ^ undeclared identifier 893 | Graph._CGA, Graph._MCGA : ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 894 CGADemo(); ***** ^ not supported yet ***** ^ not supported yet 895 | Graph._VGA : ***** ^ not supported yet ***** ^ not supported yet 896 VGADemo(); ***** ^ not supported yet ***** ^ not supported yet 897 | Graph._EGA : ***** ^ not supported yet ***** ^ not supported yet 898 EGADemo(); ***** ^ not supported yet ***** ^ not supported yet 899 ELSE 900 IO.WrStr('Graphics Card Not Supported'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 901 IO.WrLn(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 902 HALT; ***** ^ undeclared identifier 903 END; 904 SYSTEM.Eval(Graph.SetVideoMode(Graph._DEFAULTMODE)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 905 END MGdemo. 1512 errors