Почетна Преглед Помоћ
Пријавите се
eric
/
Topspeed_JPI
1
0
Креирај огранак 0
Датотеке Дискусије 0 Захтеви за спајање 0 Вики
Грана: master
Гране Ознаке
Topspeed_JPI
/
TS-V3
/
EXAMPLES
/
MGDEMO.LST

MGDEMO.LST 108 KB
Пермалинк Историја Датотека

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423 
  1. Listing:
    2. 

  2. 

  3.     1  MODULE MGdemo;
    4. 

  4.     2  
    5. 

  5.     3  IMPORT Graph, IO, Lib, SYSTEM, Storage;
    6. 

  6.     4  
    7. 

  7.     5  TYPE
    8. 

  8.     6      PieInfo = RECORD
    9. 

  9.     7          state: CARDINAL;
    10. 

  10.     8          x1, y1, x2, y2: CARDINAL;
    11. 

  11.     9          startx, starty: CARDINAL;
    12. 

  12.    10          CurrentX: CARDINAL;
    13. 

  13.    11          CurrentY: CARDINAL;
    14. 

  14.    12          fill: BOOLEAN;
    15. 

  15.    13          color: CARDINAL;
    16. 

  16.    14      END;
    17. 

  17. *****      ^ not supported yet
    18. 

  18.    15      PieHandle = POINTER TO PieInfo;
    19. 

  19. *****                             ^ not supported yet
    20. 

  20.    16  
    21. 

  21.    17  TYPE
    22. 

  22.    18      ColorArray = ARRAY [0..15] OF LONGCARD;
    23. 

  23. *****                             ^ not supported yet
    24. 

  24. *****                                    ^ undeclared identifier
    25. 

  25.    19      SmallColorArray = ARRAY [0..3] OF CARDINAL;
    26. 

  26. *****                                  ^ not supported yet
    27. 

  27. *****                                        ^ not supported yet
    28. 

  28.    20  CONST
    29. 

  29.    21      Colors = ColorArray( Graph._BLACK, Graph._BLUE, Graph._GREEN, Graph._CYAN, Graph._RED, Graph._MAGENTA, Graph._BROWN,
    30. 

  30. *****                           ^ not supported yet
    31. 

  31. *****                                 ^ not supported yet
    32. 

  32. *****                                         ^ not supported yet
    33. 

  33. *****                                               ^ not supported yet
    34. 

  34. *****                                                      ^ not supported yet
    35. 

  35. *****                                                            ^ not supported yet
    36. 

  36. *****                                                                    ^ not supported yet
    37. 

  37. *****                                                                          ^ not supported yet
    38. 

  38. *****                                                                                 ^ not supported yet
    39. 

  39. *****                                                                                       ^ not supported yet
    40. 

  40. *****                                                                                             ^ not supported yet
    41. 

  41. *****                                                                                                   ^ not supported yet
    42. 

  42. *****                                                                                                             ^ not supported yet
    43. 

  43. *****                                                                                                                   ^ not supported yet
    44. 

  44.    22                     Graph._WHITE, Graph._GRAY, Graph._LIGHTBLUE, Graph._LIGHTGREEN, Graph._LIGHTCYAN,
    45. 

  45. *****                     ^ not supported yet
    46. 

  46. *****                           ^ not supported yet
    47. 

  47. *****                                   ^ not supported yet
    48. 

  48. *****                                         ^ not supported yet
    49. 

  49. *****                                                ^ not supported yet
    50. 

  50. *****                                                      ^ not supported yet
    51. 

  51. *****                                                                  ^ not supported yet
    52. 

  52. *****                                                                        ^ not supported yet
    53. 

  53. *****                                                                                     ^ not supported yet
    54. 

  54. *****                                                                                           ^ not supported yet
    55. 

  55.    23                     Graph._LIGHTRED, Graph._LIGHTMAGENTA, Graph._LIGHTYELLOW, Graph._BRIGHTWHITE);
    56. 

  56. *****                     ^ not supported yet
    57. 

  57. *****                           ^ not supported yet
    58. 

  58. *****                                      ^ not supported yet
    59. 

  59. *****                                            ^ not supported yet
    60. 

  60. *****                                                           ^ not supported yet
    61. 

  61. *****                                                                 ^ not supported yet
    62. 

  62. *****                                                                               ^ not supported yet
    63. 

  63. *****                                                                                     ^ not supported yet
    64. 

  64.    24  
    65. 

  65.    25  VAR
    66. 

  66.    26      Mono: BOOLEAN;
    67. 

  67.    27      XValues: ARRAY [0..3] OF CARDINAL;
    68. 

  68. *****                         ^ not supported yet
    69. 

  69. *****                               ^ not supported yet
    70. 

  70.    28      YValues: ARRAY [0..3] OF CARDINAL;
    71. 

  71. *****                         ^ not supported yet
    72. 

  72. *****                               ^ not supported yet
    73. 

  73.    29      cv: Graph.VideoConfig;
    74. 

  74. *****                ^ not supported yet
    75. 

  75.    30      Patterns: ARRAY [0..4] OF Graph.FillMaskType;
    76. 

  76. *****                          ^ not supported yet
    77. 

  77. *****                                      ^ not supported yet
    78. 

  78.    31  
    79. 

  79.    32  PROCEDURE Max(V1, V2: CARDINAL): CARDINAL;
    80. 

  80.    33  
    81. 

  81.    34  BEGIN
    82. 

  82.    35      IF V1 > V2 THEN
    83. 

  83.    36          RETURN V1;
    84. 

  84.    37      ELSE
    85. 

  85.    38          RETURN V2;
    86. 

  86.    39      END;
    87. 

  87.    40  END Max;
    88. 

  88. *****      ^ not supported yet
    89. 

  89.    41  
    90. 

  90.    42  
    91. 

  91.    43    PROCEDURE TestKey;
    92. 

  92.    44      BEGIN
    93. 

  93.    45        IF CAP(IO.RdKey()) = 'X' THEN
    94. 

  94. *****           ^ undeclared identifier
    95. 

  95. *****               ^ not supported yet
    96. 

  96. *****                  ^ not supported yet
    97. 

  97. *****                        ^ not supported yet
    98. 

  98.    46          SYSTEM.Eval(Graph.SetVideoMode(Graph._DEFAULTMODE));
    99. 

  99. *****          ^ not supported yet
    100. 

  100. *****                 ^ not supported yet
    101. 

  101. *****                      ^ not supported yet
    102. 

  102. *****                            ^ not supported yet
    103. 

  103. *****                                         ^ not supported yet
    104. 

  104. *****                                               ^ not supported yet
    105. 

  105.    47          HALT;
    106. 

  106. *****          ^ undeclared identifier
    107. 

  107.    48        END; (*IF*)
    108. 

  108.    49      END TestKey;
    109. 

  109. *****          ^ not supported yet
    110. 

  110.    50  
    111. 

  111.    51  PROCEDURE InitPalette();
    112. 

  112.    52  
    113. 

  113.    53  VAR
    114. 

  114.    54      i: CARDINAL;
    115. 

  115.    55      red, green, blue: CARDINAL;
    116. 

  116.    56      color: LONGCARD;
    117. 

  117. *****             ^ undeclared identifier
    118. 

  118.    57      colors: ARRAY [0..255] OF LONGCARD;
    119. 

  119. *****                        ^ not supported yet
    120. 

  120. *****                                ^ undeclared identifier
    121. 

  121.    58  BEGIN
    122. 

  122.    59      i:=0;
    123. 

  123.    60      SYSTEM.Eval(Graph.SetVideoMode(Graph._MRES256COLOR));
    124. 

  124. *****      ^ not supported yet
    125. 

  125. *****             ^ not supported yet
    126. 

  126. *****                  ^ not supported yet
    127. 

  127. *****                        ^ not supported yet
    128. 

  128. *****                                     ^ not supported yet
    129. 

  129. *****                                           ^ not supported yet
    130. 

  130.    61      WHILE i < 256 DO
    131. 

  131.    62          red  :=CARDINAL(BITSET(i)* BITSET(0E0H))>>2;
    132. 

  132. *****                          ^ undeclared identifier
    133. 

  133. *****                                  ^ not supported yet
    134. 

  134. *****                                     ^ undeclared identifier
    135. 

  135. *****                                                ^ not supported yet
    136. 

  136. *****                                                    ^ arithmetic operand must be numeric
    137. 

  137.    63          green:=CARDINAL(BITSET(i) * BITSET(01CH))<<1;
    138. 

  138. *****                          ^ undeclared identifier
    139. 

  139. *****                                  ^ not supported yet
    140. 

  140. *****                                      ^ undeclared identifier
    141. 

  141. *****                                                 ^ not supported yet
    142. 

  142. *****                                                     ^ arithmetic operand must be numeric
    143. 

  143.    64          blue :=CARDINAL(BITSET(i) * BITSET(3))<<4;
    144. 

  144. *****                          ^ undeclared identifier
    145. 

  145. *****                                  ^ not supported yet
    146. 

  146. *****                                      ^ undeclared identifier
    147. 

  147. *****                                              ^ not supported yet
    148. 

  148. *****                                                  ^ arithmetic operand must be numeric
    149. 

  149.    65          color:= (LONGCARD(blue)<<16) + (LONGCARD(green)<<8) + LONGCARD(red);
    150. 

  150. *****          ^ not supported yet
    151. 

  151. *****                   ^ undeclared identifier
    152. 

  152. *****                                ^ not supported yet
    153. 

  153. *****                                   ^ arithmetic operand must be numeric
    154. 

  154. *****                                          ^ undeclared identifier
    155. 

  155. *****                                                        ^ not supported yet
    156. 

  156. *****                                                           ^ arithmetic operand must be numeric
    157. 

  157. *****                                                                ^ undeclared identifier
    158. 

  158. *****                                                                            ^ not supported yet
    159. 

  159.    66          colors[i]:=color;
    160. 

  160. *****          ^ not supported yet
    161. 

  161. *****                  ^ not supported yet
    162. 

  162. *****                     ^ not supported yet
    163. 

  163.    67          INC(i);
    164. 

  164. *****          ^ undeclared identifier
    165. 

  165. *****               ^ not supported yet
    166. 

  166.    68      END;
    167. 

  167.    69      SYSTEM.Eval(Graph.RemapAllPalette(colors));
    168. 

  168. *****      ^ not supported yet
    169. 

  169. *****             ^ not supported yet
    170. 

  170. *****                  ^ not supported yet
    171. 

  171. *****                        ^ not supported yet
    172. 

  172. *****                                        ^ not supported yet
    173. 

  173.    70  END InitPalette;
    174. 

  174. *****      ^ not supported yet
    175. 

  175.    71  
    176. 

  176.    72  PROCEDURE AdjustRGB(VAR red, green, blue: CARDINAL);
    177. 

  177.    73  
    178. 

  178.    74  VAR
    179. 

  179.    75      nr, nb, ng: CARDINAL;
    180. 

  180.    76  BEGIN
    181. 

  181.    77      IF (red >= blue) AND (red >= green) THEN
    182. 

  182.    78          nr:=255;
    183. 

  183.    79          ng:=(green*255) DIV red;
    184. 

  184.    80          nb:=(blue*255) DIV red;
    185. 

  185.    81      ELSIF (green >= red) AND (green >= blue) THEN
    186. 

  186.    82          ng:=255;
    187. 

  187.    83          nr:=(red*255) DIV green;
    188. 

  188.    84          nb:=(blue*255) DIV green;
    189. 

  189.    85      ELSE
    190. 

  190.    86          nb:=255;
    191. 

  191.    87          ng:=(green*255) DIV blue;
    192. 

  192.    88          nr:=(red*255) DIV blue;
    193. 

  193.    89      END;
    194. 

  194.    90      red:=nr;
    195. 

  195.    91      blue:=nb;
    196. 

  196.    92      green:=ng;
    197. 

  197.    93  END AdjustRGB;
    198. 

  198. *****      ^ not supported yet
    199. 

  199.    94  
    200. 

  200.    95  PROCEDURE PlotRGB(x, y, red, green, blue: CARDINAL);
    201. 

  201.    96  
    202. 

  202.    97  VAR
    203. 

  203.    98      r, g, b, color: CARDINAL;
    204. 

  204.    99  BEGIN
    205. 

  205.   100      r:=CARDINAL(BITSET(red) * BITSET(0E0H));
    206. 

  206. *****                  ^ undeclared identifier
    207. 

  207. *****                            ^ not supported yet
    208. 

  208. *****                                ^ undeclared identifier
    209. 

  209. *****                                           ^ not supported yet
    210. 

  210.   101      g:=CARDINAL(BITSET(green) * BITSET(0E0H))>>3;
    211. 

  211. *****                  ^ undeclared identifier
    212. 

  212. *****                              ^ not supported yet
    213. 

  213. *****                                  ^ undeclared identifier
    214. 

  214. *****                                             ^ not supported yet
    215. 

  215. *****                                                 ^ arithmetic operand must be numeric
    216. 

  216.   102      b:=CARDINAL(BITSET(blue) * BITSET(0C0H))>>6;
    217. 

  217. *****                  ^ undeclared identifier
    218. 

  218. *****                             ^ not supported yet
    219. 

  219. *****                                 ^ undeclared identifier
    220. 

  220. *****                                            ^ not supported yet
    221. 

  221. *****                                                ^ arithmetic operand must be numeric
    222. 

  222.   103      color:= CARDINAL(BITSET(r) + BITSET(g) + BITSET(b));
    223. 

  223. *****                       ^ undeclared identifier
    224. 

  224. *****                               ^ not supported yet
    225. 

  225. *****                                   ^ undeclared identifier
    226. 

  226. *****                                           ^ not supported yet
    227. 

  227. *****                                               ^ undeclared identifier
    228. 

  228. *****                                                       ^ not supported yet
    229. 

  229.   104      Graph.Plot(x+20, y, color);
    230. 

  230. *****      ^ not supported yet
    231. 

  231. *****            ^ not supported yet
    232. 

  232. *****                               ^ not supported yet
    233. 

  233.   105  END PlotRGB;
    234. 

  234. *****      ^ not supported yet
    235. 

  235.   106  
    236. 

  236.   107  PROCEDURE VGATriangle();
    237. 

  237.   108  
    238. 

  238.   109  VAR
    239. 

  239.   110      x, y: CARDINAL;
    240. 

  240.   111      red, green, blue: CARDINAL;
    241. 

  241.   112  BEGIN
    242. 

  242.   113      InitPalette();
    243. 

  243. *****      ^ not supported yet
    244. 

  244. *****                  ^ not supported yet
    245. 

  245.   114      x:=0;
    246. 

  246.   115      WHILE x < 256 DO
    247. 

  247.   116          y:=0;
    248. 

  248.   117          WHILE y < 200 DO
    249. 

  249.   118              red:=x;
    250. 

  250.   119              green:=(y*255) DIV 200;
    251. 

  251.   120              IF (red+green) < 255 THEN
    252. 

  252.   121                  blue:=255-(red+green);
    253. 

  253.   122                  AdjustRGB(red, green, blue);
    254. 

  254. *****                  ^ not supported yet
    255. 

  255. *****                                            ^ not supported yet
    256. 

  256.   123                  PlotRGB(x, y, red, green, blue);
    257. 

  257. *****                  ^ not supported yet
    258. 

  258. *****                                                ^ not supported yet
    259. 

  259.   124              END;
    260. 

  260.   125              INC(y);
    261. 

  261. *****              ^ undeclared identifier
    262. 

  262. *****                   ^ not supported yet
    263. 

  263.   126          END;
    264. 

  264.   127          INC(x);
    265. 

  265. *****          ^ undeclared identifier
    266. 

  266. *****               ^ not supported yet
    267. 

  267.   128      END;
    268. 

  268.   129      SYSTEM.Eval(Graph.SetTextColor(10));
    269. 

  269. *****      ^ not supported yet
    270. 

  270. *****             ^ not supported yet
    271. 

  271. *****                  ^ not supported yet
    272. 

  272. *****                        ^ not supported yet
    273. 

  273. *****                                       ^ not supported yet
    274. 

  274.   130      SYSTEM.Eval(Graph.SetTextPosition(25, 5));
    275. 

  275. *****      ^ not supported yet
    276. 

  276. *****             ^ not supported yet
    277. 

  277. *****                  ^ not supported yet
    278. 

  278. *****                        ^ not supported yet
    279. 

  279. *****                                             ^ not supported yet
    280. 

  280.   131      Graph.OutText('Hit Any Key To Continue,X To Exit.');
    281. 

  281. *****      ^ not supported yet
    282. 

  282. *****            ^ not supported yet
    283. 

  283. *****                    ^ not supported yet
    284. 

  284.   132      TestKey;
    285. 

  285. *****      ^ not supported yet
    286. 

  286.   133      SYSTEM.Eval(Graph.SetVideoMode(Graph._ERESCOLOR));
    287. 

  287. *****      ^ not supported yet
    288. 

  288. *****             ^ not supported yet
    289. 

  289. *****                  ^ not supported yet
    290. 

  290. *****                        ^ not supported yet
    291. 

  291. *****                                     ^ not supported yet
    292. 

  292. *****                                           ^ not supported yet
    293. 

  293.   134  END VGATriangle;
    294. 

  294. *****      ^ not supported yet
    295. 

  295.   135  
    296. 

  296.   136  
    297. 

  297.   137  PROCEDURE DrawEllipses();
    298. 

  298.   138  
    299. 

  299.   139  VAR
    300. 

  300.   140      n: INTEGER;
    301. 

  301.   141      f: BOOLEAN;
    302. 

  302.   142      x1, x2, y1, y2: CARDINAL;
    303. 

  303.   143      c: CARDINAL;
    304. 

  304.   144  BEGIN
    305. 

  305.   145      n:=0;
    306. 

  306.   146      c:=1;
    307. 

  307.   147      f:=Graph._GFILLINTERIOR;
    308. 

  308. *****         ^ not supported yet
    309. 

  309. *****               ^ not supported yet
    310. 

  310.   148      Patterns[0] := Graph.FillMaskType(88H,  44H,  22H,  11H,  88H,  44H,  22H,  11H);
    311. 

  311. *****      ^ not supported yet
    312. 

  312. *****                ^ not supported yet
    313. 

  313. *****                     ^ not supported yet
    314. 

  314. *****                           ^ not supported yet
    315. 

  315. *****                                                                                     ^ not supported yet
    316. 

  316.   149      Patterns[1] := Graph.FillMaskType(0AAH, 0AAH, 0AAH, 0AAH, 0AAH, 0AAH, 0AAH, 0AAH);
    317. 

  317. *****      ^ not supported yet
    318. 

  318. *****                ^ not supported yet
    319. 

  319. *****                     ^ not supported yet
    320. 

  320. *****                           ^ not supported yet
    321. 

  321. *****                                                                                      ^ not supported yet
    322. 

  322.   150      Patterns[2] := Graph.FillMaskType(0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH, 0FFH);
    323. 

  323. *****      ^ not supported yet
    324. 

  324. *****                ^ not supported yet
    325. 

  325. *****                     ^ not supported yet
    326. 

  326. *****                           ^ not supported yet
    327. 

  327. *****                                                                                      ^ not supported yet
    328. 

  328.   151      Patterns[3] := Graph.FillMaskType(0FFH, 40H,  0FFH, 40H,  0FFH, 40H,  0FFH, 40H);
    329. 

  329. *****      ^ not supported yet
    330. 

  330. *****                ^ not supported yet
    331. 

  331. *****                     ^ not supported yet
    332. 

  332. *****                           ^ not supported yet
    333. 

  333. *****                                                                                     ^ not supported yet
    334. 

  334.   152      Patterns[4] := Graph.FillMaskType(80H,  40H,  20H,  10H,  08H,  04H,  02H,  01H);
    335. 

  335. *****      ^ not supported yet
    336. 

  336. *****                ^ not supported yet
    337. 

  337. *****                     ^ not supported yet
    338. 

  338. *****                           ^ not supported yet
    339. 

  339. *****                                                                                     ^ not supported yet
    340. 

  340.   153      LOOP
    341. 

  341.   154          IF n = 100 THEN
    342. 

  342.   155              EXIT;
    343. 

  343.   156          END;
    344. 

  344.   157          INC(n);
    345. 

  345. *****          ^ undeclared identifier
    346. 

  346. *****               ^ not supported yet
    347. 

  347.   158          IF IO.KeyPressed() THEN
    348. 

  348. *****             ^ not supported yet
    349. 

  349. *****                ^ not supported yet
    350. 

  350. *****                           ^ not supported yet
    351. 

  351.   159              EXIT;
    352. 

  352.   160          END;
    353. 

  353.   161          Graph.SetFillMask(Patterns[Lib.RANDOM(5)]);
    354. 

  354. *****          ^ not supported yet
    355. 

  355. *****                ^ not supported yet
    356. 

  356. *****                            ^ not supported yet
    357. 

  357. *****                                     ^ not supported yet
    358. 

  358. *****                                         ^ not supported yet
    359. 

  359. *****                                                 ^ not supported yet
    360. 

  360.   162          x1:=Lib.RANDOM(cv.numxpixels-1);
    361. 

  361. *****              ^ not supported yet
    362. 

  362. *****                  ^ not supported yet
    363. 

  363. *****                         ^ not supported yet
    364. 

  364. *****                            ^ not supported yet
    365. 

  365. *****                                        ^ not supported yet
    366. 

  366.   163          y1:=Lib.RANDOM(cv.numypixels-1);
    367. 

  367. *****              ^ not supported yet
    368. 

  368. *****                  ^ not supported yet
    369. 

  369. *****                         ^ not supported yet
    370. 

  370. *****                            ^ not supported yet
    371. 

  371. *****                                        ^ not supported yet
    372. 

  372.   164          x2:=Lib.RANDOM(cv.numxpixels-x1);
    373. 

  373. *****              ^ not supported yet
    374. 

  374. *****                  ^ not supported yet
    375. 

  375. *****                         ^ not supported yet
    376. 

  376. *****                            ^ not supported yet
    377. 

  377. *****                                         ^ not supported yet
    378. 

  378.   165          y2:=Lib.RANDOM(cv.numypixels-y1);
    379. 

  379. *****              ^ not supported yet
    380. 

  380. *****                  ^ not supported yet
    381. 

  381. *****                         ^ not supported yet
    382. 

  382. *****                            ^ not supported yet
    383. 

  383. *****                                         ^ not supported yet
    384. 

  384.   166          IF f = Graph._GFILLINTERIOR THEN
    385. 

  385. *****                 ^ not supported yet
    386. 

  386. *****                       ^ not supported yet
    387. 

  387.   167              f:=Graph._GBORDER;
    388. 

  388. *****                 ^ not supported yet
    389. 

  389. *****                       ^ not supported yet
    390. 

  390.   168          ELSE
    391. 

  391.   169              f:=Graph._GFILLINTERIOR;
    392. 

  392. *****                 ^ not supported yet
    393. 

  393. *****                       ^ not supported yet
    394. 

  394.   170          END;
    395. 

  395.   171          Graph.Ellipse(x1, y1, x2, y2, c, f);
    396. 

  396. *****          ^ not supported yet
    397. 

  397. *****                ^ not supported yet
    398. 

  398. *****                                            ^ not supported yet
    399. 

  399.   172          INC(c);
    400. 

  400. *****          ^ undeclared identifier
    401. 

  401. *****               ^ not supported yet
    402. 

  402.   173          IF c = cv.numcolors THEN
    403. 

  403. *****                 ^ not supported yet
    404. 

  404. *****                    ^ not supported yet
    405. 

  405.   174              c:=1;
    406. 

  406.   175          END;
    407. 

  407.   176      END;
    408. 

  408.   177      IF NOT Mono THEN
    409. 

  409.   178          SYSTEM.Eval(Graph.SetTextPosition(25, 1));
    410. 

  410. *****          ^ not supported yet
    411. 

  411. *****                 ^ not supported yet
    412. 

  412. *****                      ^ not supported yet
    413. 

  413. *****                            ^ not supported yet
    414. 

  414. *****                                                 ^ not supported yet
    415. 

  415.   179          Graph.OutText('Press Any Key To Continue, X To Exit');
    416. 

  416. *****          ^ not supported yet
    417. 

  417. *****                ^ not supported yet
    418. 

  418. *****                        ^ not supported yet
    419. 

  419.   180      END;
    420. 

  420.   181      TestKey;
    421. 

  421. *****      ^ not supported yet
    422. 

  422.   182  END DrawEllipses;
    423. 

  423. *****      ^ not supported yet
    424. 

  424.   183  
    425. 

  425.   184  PROCEDURE Ellipses(scale: CARDINAL);
    426. 

  426.   185  
    427. 

  427.   186  BEGIN
    428. 

  428.   187      Graph.SetClipRgn(0, 0, cv.numxpixels-1, cv.numypixels-1);
    429. 

  429. *****      ^ not supported yet
    430. 

  430. *****            ^ not supported yet
    431. 

  431. *****                             ^ not supported yet
    432. 

  432. *****                                ^ not supported yet
    433. 

  433. *****                                              ^ not supported yet
    434. 

  434. *****                                                 ^ not supported yet
    435. 

  435. *****                                                             ^ not supported yet
    436. 

  436.   188      Graph.ClearScreen(Graph._GCLEARSCREEN);
    437. 

  437. *****      ^ not supported yet
    438. 

  438. *****            ^ not supported yet
    439. 

  439. *****                        ^ not supported yet
    440. 

  440. *****                              ^ not supported yet
    441. 

  441.   189      DrawEllipses();
    442. 

  442. *****      ^ not supported yet
    443. 

  443. *****                   ^ not supported yet
    444. 

  444.   190      Graph.ClearScreen(Graph._GCLEARSCREEN);
    445. 

  445. *****      ^ not supported yet
    446. 

  446. *****            ^ not supported yet
    447. 

  447. *****                        ^ not supported yet
    448. 

  448. *****                              ^ not supported yet
    449. 

  449.   191      Graph.Rectangle(49 DIV scale, 24 DIV scale, 501 DIV scale, 291 DIV scale, 3, Graph._GBORDER);
    450. 

  450. *****      ^ not supported yet
    451. 

  451. *****            ^ not supported yet
    452. 

  452. *****                                                                                   ^ not supported yet
    453. 

  453. *****                                                                                         ^ not supported yet
    454. 

  454.   192      Graph.SetClipRgn(50 DIV scale, 25 DIV scale, 500 DIV scale, 290 DIV scale);
    455. 

  455. *****      ^ not supported yet
    456. 

  456. *****            ^ not supported yet
    457. 

  457. *****                                                                               ^ not supported yet
    458. 

  458.   193      DrawEllipses();
    459. 

  459. *****      ^ not supported yet
    460. 

  460. *****                   ^ not supported yet
    461. 

  461.   194      Graph.SetClipRgn(0, 0, cv.numxpixels-1, cv.numypixels-1);
    462. 

  462. *****      ^ not supported yet
    463. 

  463. *****            ^ not supported yet
    464. 

  464. *****                             ^ not supported yet
    465. 

  465. *****                                ^ not supported yet
    466. 

  466. *****                                              ^ not supported yet
    467. 

  467. *****                                                 ^ not supported yet
    468. 

  468. *****                                                             ^ not supported yet
    469. 

  469.   195  END Ellipses;
    470. 

  470. *****      ^ not supported yet
    471. 

  471.   196  
    472. 

  472.   197  PROCEDURE InitPie(x1, y1, x2, y2: CARDINAL; InitState, scale: CARDINAL; fill: BOOLEAN): PieHandle;
    473. 

  473.   198  
    474. 

  474.   199  VAR
    475. 

  475.   200      p: PieHandle;
    476. 

  476. *****         ^ not supported yet
    477. 

  477.   201  BEGIN
    478. 

  478.   202      Storage.ALLOCATE(p, SIZE(PieInfo));
    479. 

  479. *****      ^ not supported yet
    480. 

  480. *****              ^ not supported yet
    481. 

  481. *****                       ^ not supported yet
    482. 

  482. *****                          ^ undeclared identifier
    483. 

  483. *****                                      ^ not supported yet
    484. 

  484.   203      p^.x1:=x1 DIV scale;
    485. 

  485. *****      ^ not supported yet
    486. 

  486. *****         ^ not supported yet
    487. 

  487.   204      p^.y1:=y1 DIV scale;
    488. 

  488. *****      ^ not supported yet
    489. 

  489. *****         ^ not supported yet
    490. 

  490.   205      p^.x2:=x2 DIV scale;
    491. 

  491. *****      ^ not supported yet
    492. 

  492. *****         ^ not supported yet
    493. 

  493.   206      p^.y2:=y2 DIV scale;
    494. 

  494. *****      ^ not supported yet
    495. 

  495. *****         ^ not supported yet
    496. 

  496.   207      p^.CurrentX:=XValues[InitState];
    497. 

  497. *****      ^ not supported yet
    498. 

  498. *****         ^ not supported yet
    499. 

  499. *****                   ^ not supported yet
    500. 

  500. *****                                    ^ not supported yet
    501. 

  501.   208      p^.CurrentY:=YValues[InitState];
    502. 

  502. *****      ^ not supported yet
    503. 

  503. *****         ^ not supported yet
    504. 

  504. *****                   ^ not supported yet
    505. 

  505. *****                                    ^ not supported yet
    506. 

  506.   209      p^.startx:=XValues[InitState];
    507. 

  507. *****      ^ not supported yet
    508. 

  508. *****         ^ not supported yet
    509. 

  509. *****                 ^ not supported yet
    510. 

  510. *****                                  ^ not supported yet
    511. 

  511.   210      p^.starty:=YValues[InitState];
    512. 

  512. *****      ^ not supported yet
    513. 

  513. *****         ^ not supported yet
    514. 

  514. *****                 ^ not supported yet
    515. 

  515. *****                                  ^ not supported yet
    516. 

  516.   211      p^.state:=InitState;
    517. 

  517. *****      ^ not supported yet
    518. 

  518. *****         ^ not supported yet
    519. 

  519.   212      p^.fill:=fill;
    520. 

  520. *****      ^ not supported yet
    521. 

  521. *****         ^ not supported yet
    522. 

  522.   213      IF Mono THEN
    523. 

  523.   214          p^.color:=1;
    524. 

  524. *****          ^ not supported yet
    525. 

  525. *****             ^ not supported yet
    526. 

  526.   215      ELSE
    527. 

  527.   216          p^.color:=Lib.RANDOM(cv.numcolors-2)+1;
    528. 

  528. *****          ^ not supported yet
    529. 

  529. *****             ^ not supported yet
    530. 

  530. *****                    ^ not supported yet
    531. 

  531. *****                        ^ not supported yet
    532. 

  532. *****                               ^ not supported yet
    533. 

  533. *****                                  ^ not supported yet
    534. 

  534. *****                                             ^ not supported yet
    535. 

  535.   217      END;
    536. 

  536.   218      Graph.Pie(p^.x1, p^.y1, p^.x2, p^.y2, p^.CurrentX, p^.CurrentY, p^.CurrentX, p^.CurrentY, p^.color, fill);
    537. 

  537. *****      ^ not supported yet
    538. 

  538. *****            ^ not supported yet
    539. 

  539. *****                ^ not supported yet
    540. 

  540. *****                   ^ not supported yet
    541. 

  541. *****                       ^ not supported yet
    542. 

  542. *****                          ^ not supported yet
    543. 

  543. *****                              ^ not supported yet
    544. 

  544. *****                                 ^ not supported yet
    545. 

  545. *****                                     ^ not supported yet
    546. 

  546. *****                                        ^ not supported yet
    547. 

  547. *****                                            ^ not supported yet
    548. 

  548. *****                                               ^ not supported yet
    549. 

  549. *****                                                         ^ not supported yet
    550. 

  550. *****                                                            ^ not supported yet
    551. 

  551. *****                                                                      ^ not supported yet
    552. 

  552. *****                                                                         ^ not supported yet
    553. 

  553. *****                                                                                   ^ not supported yet
    554. 

  554. *****                                                                                      ^ not supported yet
    555. 

  555. *****                                                                                                ^ not supported yet
    556. 

  556. *****                                                                                                   ^ not supported yet
    557. 

  557. *****                                                                                                              ^ not supported yet
    558. 

  558.   219      RETURN p;
    559. 

  559. *****             ^ not supported yet
    560. 

  560.   220  END InitPie;
    561. 

  561. *****      ^ not supported yet
    562. 

  562.   221  
    563. 

  563.   222  PROCEDURE DisposePie(p: PieHandle);
    564. 

  564.   223  
    565. 

  565.   224  BEGIN
    566. 

  566.   225      Storage.DEALLOCATE(p, SIZE(PieInfo));
    567. 

  567. *****      ^ not supported yet
    568. 

  568. *****              ^ not supported yet
    569. 

  569. *****                         ^ not supported yet
    570. 

  570. *****                            ^ undeclared identifier
    571. 

  571. *****                                        ^ not supported yet
    572. 

  572.   226  END DisposePie;
    573. 

  573. *****      ^ not supported yet
    574. 

  574.   227  
    575. 

  575.   228  PROCEDURE Circulate(p: PieHandle);
    576. 

  576.   229  
    577. 

  577.   230  BEGIN
    578. 

  578.   231      Graph.SetFillMask(Patterns[2]);
    579. 

  579. *****      ^ not supported yet
    580. 

  580. *****            ^ not supported yet
    581. 

  581. *****                        ^ not supported yet
    582. 

  582. *****                                  ^ not supported yet
    583. 

  583.   232      Graph.Rectangle(p^.x1-p^.x2, p^.y1-p^.y2, p^.x1+p^.x2, p^.y1+p^.y2, 0, Graph._GFILLINTERIOR);
    584. 

  584. *****      ^ not supported yet
    585. 

  585. *****            ^ not supported yet
    586. 

  586. *****                      ^ not supported yet
    587. 

  587. *****                         ^ not supported yet
    588. 

  588. *****                            ^ not supported yet
    589. 

  589. *****                               ^ not supported yet
    590. 

  590. *****                                   ^ not supported yet
    591. 

  591. *****                                      ^ not supported yet
    592. 

  592. *****                                         ^ not supported yet
    593. 

  593. *****                                            ^ not supported yet
    594. 

  594. *****                                                ^ not supported yet
    595. 

  595. *****                                                   ^ not supported yet
    596. 

  596. *****                                                      ^ not supported yet
    597. 

  597. *****                                                         ^ not supported yet
    598. 

  598. *****                                                             ^ not supported yet
    599. 

  599. *****                                                                ^ not supported yet
    600. 

  600. *****                                                                   ^ not supported yet
    601. 

  601. *****                                                                      ^ not supported yet
    602. 

  602. *****                                                                             ^ not supported yet
    603. 

  603. *****                                                                                   ^ not supported yet
    604. 

  604.   233      IF p^.state = 0 THEN
    605. 

  605. *****         ^ not supported yet
    606. 

  606. *****            ^ not supported yet
    607. 

  607.   234          IF p^.CurrentY > 0 THEN
    608. 

  608. *****             ^ not supported yet
    609. 

  609. *****                ^ not supported yet
    610. 

  610.   235              DEC(p^.CurrentY, 4);
    611. 

  611. *****              ^ undeclared identifier
    612. 

  612. *****                  ^ not supported yet
    613. 

  613. *****                     ^ not supported yet
    614. 

  614. *****                                ^ not supported yet
    615. 

  615.   236          ELSE
    616. 

  616.   237             INC(p^.state);
    617. 

  617. *****             ^ undeclared identifier
    618. 

  618. *****                 ^ not supported yet
    619. 

  619. *****                    ^ not supported yet
    620. 

  620.   238          END;
    621. 

  621.   239      END;
    622. 

  622.   240      IF p^.state = 1 THEN
    623. 

  623. *****         ^ not supported yet
    624. 

  624. *****            ^ not supported yet
    625. 

  625.   241          IF p^.CurrentX > 0 THEN
    626. 

  626. *****             ^ not supported yet
    627. 

  627. *****                ^ not supported yet
    628. 

  628.   242              DEC(p^.CurrentX, 8);
    629. 

  629. *****              ^ undeclared identifier
    630. 

  630. *****                  ^ not supported yet
    631. 

  631. *****                     ^ not supported yet
    632. 

  632. *****                                ^ not supported yet
    633. 

  633.   243          ELSE
    634. 

  634.   244              INC(p^.state);
    635. 

  635. *****              ^ undeclared identifier
    636. 

  636. *****                  ^ not supported yet
    637. 

  637. *****                     ^ not supported yet
    638. 

  638.   245          END;
    639. 

  639.   246      END;
    640. 

  640.   247      IF p^.state = 2 THEN
    641. 

  641. *****         ^ not supported yet
    642. 

  642. *****            ^ not supported yet
    643. 

  643.   248          IF p^.CurrentY < cv.numypixels THEN
    644. 

  644. *****             ^ not supported yet
    645. 

  645. *****                ^ not supported yet
    646. 

  646. *****                           ^ not supported yet
    647. 

  647. *****                              ^ not supported yet
    648. 

  648.   249              INC(p^.CurrentY, 4);
    649. 

  649. *****              ^ undeclared identifier
    650. 

  650. *****                  ^ not supported yet
    651. 

  651. *****                     ^ not supported yet
    652. 

  652. *****                                ^ not supported yet
    653. 

  653.   250          ELSE
    654. 

  654.   251              INC(p^.state);
    655. 

  655. *****              ^ undeclared identifier
    656. 

  656. *****                  ^ not supported yet
    657. 

  657. *****                     ^ not supported yet
    658. 

  658.   252          END;
    659. 

  659.   253      END;
    660. 

  660.   254      IF p^.state = 3 THEN
    661. 

  661. *****         ^ not supported yet
    662. 

  662. *****            ^ not supported yet
    663. 

  663.   255          IF p^.CurrentX < cv.numxpixels THEN
    664. 

  664. *****             ^ not supported yet
    665. 

  665. *****                ^ not supported yet
    666. 

  666. *****                           ^ not supported yet
    667. 

  667. *****                              ^ not supported yet
    668. 

  668.   256              INC(p^.CurrentX, 8);
    669. 

  669. *****              ^ undeclared identifier
    670. 

  670. *****                  ^ not supported yet
    671. 

  671. *****                     ^ not supported yet
    672. 

  672. *****                                ^ not supported yet
    673. 

  673.   257          ELSE
    674. 

  674.   258              p^.state:=0;
    675. 

  675. *****              ^ not supported yet
    676. 

  676. *****                 ^ not supported yet
    677. 

  677.   259          END;
    678. 

  678.   260      END;
    679. 

  679.   261      IF p^.fill = Graph._GFILLINTERIOR THEN
    680. 

  680. *****         ^ not supported yet
    681. 

  681. *****            ^ not supported yet
    682. 

  682. *****                   ^ not supported yet
    683. 

  683. *****                         ^ not supported yet
    684. 

  684.   262          Graph.SetFillMask(Patterns[Lib.RANDOM(5)]);
    685. 

  685. *****          ^ not supported yet
    686. 

  686. *****                ^ not supported yet
    687. 

  687. *****                            ^ not supported yet
    688. 

  688. *****                                     ^ not supported yet
    689. 

  689. *****                                         ^ not supported yet
    690. 

  690. *****                                                 ^ not supported yet
    691. 

  691.   263      END;
    692. 

  692.   264      Graph.Pie(p^.x1, p^.y1, p^.x2, p^.y2, p^.CurrentX, p^.CurrentY,
    693. 

  693. *****      ^ not supported yet
    694. 

  694. *****            ^ not supported yet
    695. 

  695. *****                ^ not supported yet
    696. 

  696. *****                   ^ not supported yet
    697. 

  697. *****                       ^ not supported yet
    698. 

  698. *****                          ^ not supported yet
    699. 

  699. *****                              ^ not supported yet
    700. 

  700. *****                                 ^ not supported yet
    701. 

  701. *****                                     ^ not supported yet
    702. 

  702. *****                                        ^ not supported yet
    703. 

  703. *****                                            ^ not supported yet
    704. 

  704. *****                                               ^ not supported yet
    705. 

  705. *****                                                         ^ not supported yet
    706. 

  706. *****                                                            ^ not supported yet
    707. 

  707.   265                     p^.startx, p^.starty, p^.color, p^.fill);
    708. 

  708. *****                     ^ not supported yet
    709. 

  709. *****                        ^ not supported yet
    710. 

  710. *****                                ^ not supported yet
    711. 

  711. *****                                   ^ not supported yet
    712. 

  712. *****                                           ^ not supported yet
    713. 

  713. *****                                              ^ not supported yet
    714. 

  714. *****                                                     ^ not supported yet
    715. 

  715. *****                                                        ^ not supported yet
    716. 

  716.   266  END Circulate;
    717. 

  717. *****      ^ not supported yet
    718. 

  718.   267  
    719. 

  719.   268  PROCEDURE Pies(scale: INTEGER);
    720. 

  720.   269  
    721. 

  721.   270  VAR
    722. 

  722.   271      p: ARRAY [0..4] OF PieHandle;
    723. 

  723. *****                   ^ not supported yet
    724. 

  724. *****                         ^ not supported yet
    725. 

  725.   272      n: INTEGER;
    726. 

  726.   273  BEGIN
    727. 

  727.   274      n:=0;
    728. 

  728.   275      XValues[0]:=cv.numxpixels-1;
    729. 

  729. *****      ^ not supported yet
    730. 

  730. *****               ^ not supported yet
    731. 

  731. *****                  ^ not supported yet
    732. 

  732. *****                     ^ not supported yet
    733. 

  733.   276      XValues[1]:=cv.numxpixels-1;
    734. 

  734. *****      ^ not supported yet
    735. 

  735. *****               ^ not supported yet
    736. 

  736. *****                  ^ not supported yet
    737. 

  737. *****                     ^ not supported yet
    738. 

  738.   277      XValues[2]:=0;
    739. 

  739. *****      ^ not supported yet
    740. 

  740. *****               ^ not supported yet
    741. 

  741.   278      XValues[3]:=0;
    742. 

  742. *****      ^ not supported yet
    743. 

  743. *****               ^ not supported yet
    744. 

  744.   279      YValues[0]:=cv.numypixels-1;
    745. 

  745. *****      ^ not supported yet
    746. 

  746. *****               ^ not supported yet
    747. 

  747. *****                  ^ not supported yet
    748. 

  748. *****                     ^ not supported yet
    749. 

  749.   280      YValues[1]:=0;
    750. 

  750. *****      ^ not supported yet
    751. 

  751. *****               ^ not supported yet
    752. 

  752.   281      YValues[2]:=0;
    753. 

  753. *****      ^ not supported yet
    754. 

  754. *****               ^ not supported yet
    755. 

  755.   282      YValues[3]:=cv.numypixels-1;
    756. 

  756. *****      ^ not supported yet
    757. 

  757. *****               ^ not supported yet
    758. 

  758. *****                  ^ not supported yet
    759. 

  759. *****                     ^ not supported yet
    760. 

  760.   283      Graph.ClearScreen(Graph._GCLEARSCREEN);
    761. 

  761. *****      ^ not supported yet
    762. 

  762. *****            ^ not supported yet
    763. 

  763. *****                        ^ not supported yet
    764. 

  764. *****                              ^ not supported yet
    765. 

  765.   284      Graph.SetClipRgn(0, 0, cv.numxpixels-1, cv.numypixels-1);
    766. 

  766. *****      ^ not supported yet
    767. 

  767. *****            ^ not supported yet
    768. 

  768. *****                             ^ not supported yet
    769. 

  769. *****                                ^ not supported yet
    770. 

  770. *****                                              ^ not supported yet
    771. 

  771. *****                                                 ^ not supported yet
    772. 

  772. *****                                                             ^ not supported yet
    773. 

  773.   285      p[0]:=InitPie(80, 60, 50, 30, 0, scale, Graph._GBORDER);
    774. 

  774. *****      ^ not supported yet
    775. 

  775. *****         ^ not supported yet
    776. 

  776. *****            ^ not supported yet
    777. 

  777. *****                                              ^ not supported yet
    778. 

  778. *****                                                    ^ not supported yet
    779. 

  779.   286      p[1]:=InitPie(510, 70, 60, 60, 1, scale, Graph._GFILLINTERIOR);
    780. 

  780. *****      ^ not supported yet
    781. 

  781. *****         ^ not supported yet
    782. 

  782. *****            ^ not supported yet
    783. 

  783. *****                                               ^ not supported yet
    784. 

  784. *****                                                     ^ not supported yet
    785. 

  785.   287      p[2]:=InitPie(70, 255, 30, 55, 2, scale, Graph._GFILLINTERIOR);
    786. 

  786. *****      ^ not supported yet
    787. 

  787. *****         ^ not supported yet
    788. 

  788. *****            ^ not supported yet
    789. 

  789. *****                                               ^ not supported yet
    790. 

  790. *****                                                     ^ not supported yet
    791. 

  791.   288      p[3]:=InitPie(450, 200, 55, 35, 3, scale, Graph._GBORDER);
    792. 

  792. *****      ^ not supported yet
    793. 

  793. *****         ^ not supported yet
    794. 

  794. *****            ^ not supported yet
    795. 

  795. *****                                                ^ not supported yet
    796. 

  796. *****                                                      ^ not supported yet
    797. 

  797.   289      p[4]:=InitPie(320, 160, 45, 45, 0, scale, Graph._GFILLINTERIOR);
    798. 

  798. *****      ^ not supported yet
    799. 

  799. *****         ^ not supported yet
    800. 

  800. *****            ^ not supported yet
    801. 

  801. *****                                                ^ not supported yet
    802. 

  802. *****                                                      ^ not supported yet
    803. 

  803.   290  
    804. 

  804.   291      IF NOT Mono THEN
    805. 

  805.   292          SYSTEM.Eval(Graph.SetTextPosition(25, 1));
    806. 

  806. *****          ^ not supported yet
    807. 

  807. *****                 ^ not supported yet
    808. 

  808. *****                      ^ not supported yet
    809. 

  809. *****                            ^ not supported yet
    810. 

  810. *****                                                 ^ not supported yet
    811. 

  811.   293          Graph.OutText('Press Any Key To Continue, X To Exit');
    812. 

  812. *****          ^ not supported yet
    813. 

  813. *****                ^ not supported yet
    814. 

  814. *****                        ^ not supported yet
    815. 

  815.   294      END;
    816. 

  816.   295      WHILE NOT IO.KeyPressed() DO
    817. 

  817. *****                ^ not supported yet
    818. 

  818. *****                   ^ not supported yet
    819. 

  819. *****                              ^ not supported yet
    820. 

  820.   296          IF n = 5 THEN
    821. 

  821.   297              n:=0;
    822. 

  822.   298          END;
    823. 

  823.   299          Circulate(p[n]);
    824. 

  824. *****          ^ not supported yet
    825. 

  825. *****                    ^ not supported yet
    826. 

  826. *****                       ^ not supported yet
    827. 

  827.   300          INC(n);
    828. 

  828. *****          ^ undeclared identifier
    829. 

  829. *****               ^ not supported yet
    830. 

  830.   301      END;
    831. 

  831.   302      TestKey;
    832. 

  832. *****      ^ not supported yet
    833. 

  833.   303      n:=0;
    834. 

  834.   304      WHILE n < 5 DO
    835. 

  835.   305          DisposePie(p[n]);
    836. 

  836. *****          ^ not supported yet
    837. 

  837. *****                     ^ not supported yet
    838. 

  838. *****                        ^ not supported yet
    839. 

  839.   306          INC(n);
    840. 

  840. *****          ^ undeclared identifier
    841. 

  841. *****               ^ not supported yet
    842. 

  842.   307      END;
    843. 

  843.   308      Graph.ClearScreen(Graph._GCLEARSCREEN);
    844. 

  844. *****      ^ not supported yet
    845. 

  845. *****            ^ not supported yet
    846. 

  846. *****                        ^ not supported yet
    847. 

  847. *****                              ^ not supported yet
    848. 

  848.   309      Graph.SetFillMask(Patterns[2]);
    849. 

  849. *****      ^ not supported yet
    850. 

  850. *****            ^ not supported yet
    851. 

  851. *****                        ^ not supported yet
    852. 

  852. *****                                  ^ not supported yet
    853. 

  853.   310  END Pies;
    854. 

  854. *****      ^ not supported yet
    855. 

  855.   311  
    856. 

  856.   312  
    857. 

  857.   313  
    858. 

  858.   314  VAR
    859. 

  859.   315      spotlist: ARRAY [0..5] OF ARRAY [0..5] OF Graph.GraphCoords;
    860. 

  860. *****                          ^ not supported yet
    861. 

  861. *****                                          ^ not supported yet
    862. 

  862. *****                                                      ^ not supported yet
    863. 

  863.   316  
    864. 

  864.   317  PROCEDURE DrawCircles(patnum, start, depth, width: INTEGER);
    865. 

  865.   318  
    866. 

  866.   319  VAR
    867. 

  867.   320      n: INTEGER;
    868. 

  868.   321      x, y, xpos, ypos: CARDINAL;
    869. 

  869.   322  BEGIN
    870. 

  870.   323      n:=0;
    871. 

  871.   324      LOOP
    872. 

  872.   325          x:=spotlist[patnum-1][n].xcoord;
    873. 

  873. *****             ^ not supported yet
    874. 

  874. *****                              ^ not supported yet
    875. 

  875. *****                                 ^ not supported yet
    876. 

  876. *****                                   ^ not supported yet
    877. 

  877.   326          IF x = 0 THEN EXIT END;
    878. 

  878.   327          xpos:=CARDINAL(width>>2)*x;
    879. 

  879. *****                                 ^ not supported yet
    880. 

  880.   328          y:=spotlist[patnum-1][n].ycoord;
    881. 

  881. *****             ^ not supported yet
    882. 

  882. *****                              ^ not supported yet
    883. 

  883. *****                                 ^ not supported yet
    884. 

  884. *****                                   ^ not supported yet
    885. 

  885.   329          ypos:=CARDINAL(depth>>3)*y+CARDINAL(start);
    886. 

  886. *****                                 ^ not supported yet
    887. 

  887. *****                                                   ^ not supported yet
    888. 

  888.   330          Graph.Ellipse(xpos, ypos, 4, 4, cv.numcolors-1, Graph._GFILLINTERIOR);
    889. 

  889. *****          ^ not supported yet
    890. 

  890. *****                ^ not supported yet
    891. 

  891. *****                                          ^ not supported yet
    892. 

  892. *****                                             ^ not supported yet
    893. 

  893. *****                                                          ^ not supported yet
    894. 

  894. *****                                                                ^ not supported yet
    895. 

  895.   331          INC(n);
    896. 

  896. *****          ^ undeclared identifier
    897. 

  897. *****               ^ not supported yet
    898. 

  898.   332          IF n = 6 THEN
    899. 

  899.   333              EXIT;
    900. 

  900.   334          END;
    901. 

  901.   335      END;
    902. 

  902.   336  END DrawCircles;
    903. 

  903. *****      ^ not supported yet
    904. 

  904.   337  
    905. 

  905.   338  
    906. 

  906.   339  PROCEDURE MoveSideways(image: ADDRESS; pos: ARRAY OF CARDINAL;
    907. 

  907. *****                                ^ undeclared identifier
    908. 

  908. *****                                                       ^ not supported yet
    909. 

  909.   340                         limit: CARDINAL; incr: INTEGER): CARDINAL;
    910. 

  910.   341  
    911. 

  911.   342  VAR
    912. 

  912.   343      x, y: CARDINAL;
    913. 

  913.   344      ret: INTEGER;
    914. 

  914.   345  BEGIN
    915. 

  915.   346      x:=0;
    916. 

  916.   347      y:=0;
    917. 

  917.   348      ret:=0;
    918. 

  918.   349      LOOP
    919. 

  919.   350          IF x = pos[limit] THEN EXIT END;
    920. 

  920. *****                 ^ not supported yet
    921. 

  921. *****                          ^ not supported yet
    922. 

  922.   351          Graph.PutImage(x, y, image, Graph._GXOR);
    923. 

  923. *****          ^ not supported yet
    924. 

  924. *****                ^ not supported yet
    925. 

  925. *****                               ^ not supported yet
    926. 

  926. *****                                      ^ not supported yet
    927. 

  927. *****                                            ^ not supported yet
    928. 

  928.   352          INC(x, incr);
    929. 

  929. *****          ^ undeclared identifier
    930. 

  930. *****                     ^ not supported yet
    931. 

  931.   353          Graph.PutImage(x, y, image, Graph._GPSET);
    932. 

  932. *****          ^ not supported yet
    933. 

  933. *****                ^ not supported yet
    934. 

  934. *****                               ^ not supported yet
    935. 

  935. *****                                      ^ not supported yet
    936. 

  936. *****                                            ^ not supported yet
    937. 

  937.   354          IF IO.KeyPressed() THEN
    938. 

  938. *****             ^ not supported yet
    939. 

  939. *****                ^ not supported yet
    940. 

  940. *****                           ^ not supported yet
    941. 

  941.   355              TestKey;
    942. 

  942. *****              ^ not supported yet
    943. 

  943.   356              ret:=1;
    944. 

  944.   357              EXIT;
    945. 

  945.   358          END;
    946. 

  946.   359      END;
    947. 

  947.   360      RETURN ret;
    948. 

  948.   361  END MoveSideways;
    949. 

  949. *****      ^ not supported yet
    950. 

  950.   362  
    951. 

  951.   363  PROCEDURE MoveDown(image: ADDRESS; pos: ARRAY OF CARDINAL;
    952. 

  952. *****                            ^ undeclared identifier
    953. 

  953. *****                                                   ^ not supported yet
    954. 

  954.   364                     limit: CARDINAL; xpos: CARDINAL; incr: INTEGER): INTEGER;
    955. 

  955.   365  
    956. 

  956.   366  VAR
    957. 

  957.   367      y: CARDINAL;
    958. 

  958.   368      ret: INTEGER;
    959. 

  959.   369  BEGIN
    960. 

  960.   370      y:=0;
    961. 

  961.   371      ret:=0;
    962. 

  962.   372      LOOP
    963. 

  963.   373          IF y = pos[limit] THEN EXIT END;
    964. 

  964. *****                 ^ not supported yet
    965. 

  965. *****                          ^ not supported yet
    966. 

  966.   374          Graph.PutImage(xpos, y, image, Graph._GXOR);
    967. 

  967. *****          ^ not supported yet
    968. 

  968. *****                ^ not supported yet
    969. 

  969. *****                                  ^ not supported yet
    970. 

  970. *****                                         ^ not supported yet
    971. 

  971. *****                                               ^ not supported yet
    972. 

  972.   375          INC(y, incr);
    973. 

  973. *****          ^ undeclared identifier
    974. 

  974. *****                     ^ not supported yet
    975. 

  975.   376          Graph.PutImage(xpos, y, image, Graph._GPSET);
    976. 

  976. *****          ^ not supported yet
    977. 

  977. *****                ^ not supported yet
    978. 

  978. *****                                  ^ not supported yet
    979. 

  979. *****                                         ^ not supported yet
    980. 

  980. *****                                               ^ not supported yet
    981. 

  981.   377          IF IO.KeyPressed() THEN
    982. 

  982. *****             ^ not supported yet
    983. 

  983. *****                ^ not supported yet
    984. 

  984. *****                           ^ not supported yet
    985. 

  985.   378              TestKey;
    986. 

  986. *****              ^ not supported yet
    987. 

  987.   379              ret:=1;
    988. 

  988.   380              EXIT;
    989. 

  989.   381          END;
    990. 

  990.   382      END;
    991. 

  991.   383      RETURN ret;
    992. 

  992.   384  END MoveDown;
    993. 

  993. *****      ^ not supported yet
    994. 

  994.   385  
    995. 

  995.   386  PROCEDURE DrawSpots(number, start, depth, width: INTEGER);
    996. 

  996.   387  
    997. 

  997.   388  VAR
    998. 

  998.   389      pattern: ARRAY [0..2] OF CARDINAL;
    999. 

  999. *****                         ^ not supported yet
    1000. 

  1000. *****                               ^ not supported yet
    1001. 

  1001.   390      n: CARDINAL;
    1002. 

  1002.   391  BEGIN
    1003. 

  1003.   392      IF number = 0 THEN RETURN END;
    1004. 

  1004.   393      CASE number OF
    1005. 

  1005.   394          | 1:
    1006. 

  1006.   395              pattern[0]:=1;
    1007. 

  1007. *****              ^ not supported yet
    1008. 

  1008. *****                       ^ not supported yet
    1009. 

  1009.   396              pattern[1]:=0;
    1010. 

  1010. *****              ^ not supported yet
    1011. 

  1011. *****                       ^ not supported yet
    1012. 

  1012.   397          | 2:
    1013. 

  1013.   398              pattern[0]:=2;
    1014. 

  1014. *****              ^ not supported yet
    1015. 

  1015. *****                       ^ not supported yet
    1016. 

  1016.   399              pattern[1]:=0;
    1017. 

  1017. *****              ^ not supported yet
    1018. 

  1018. *****                       ^ not supported yet
    1019. 

  1019.   400          | 3:
    1020. 

  1020.   401              pattern[0]:=2;
    1021. 

  1021. *****              ^ not supported yet
    1022. 

  1022. *****                       ^ not supported yet
    1023. 

  1023.   402              pattern[1]:=1;
    1024. 

  1024. *****              ^ not supported yet
    1025. 

  1025. *****                       ^ not supported yet
    1026. 

  1026.   403              pattern[2]:=0;
    1027. 

  1027. *****              ^ not supported yet
    1028. 

  1028. *****                       ^ not supported yet
    1029. 

  1029.   404          | 4:
    1030. 

  1030.   405              pattern[0]:=4;
    1031. 

  1031. *****              ^ not supported yet
    1032. 

  1032. *****                       ^ not supported yet
    1033. 

  1033.   406              pattern[1]:=0;
    1034. 

  1034. *****              ^ not supported yet
    1035. 

  1035. *****                       ^ not supported yet
    1036. 

  1036.   407          | 5:
    1037. 

  1037.   408              pattern[0]:=4;
    1038. 

  1038. *****              ^ not supported yet
    1039. 

  1039. *****                       ^ not supported yet
    1040. 

  1040.   409              pattern[1]:=1;
    1041. 

  1041. *****              ^ not supported yet
    1042. 

  1042. *****                       ^ not supported yet
    1043. 

  1043.   410              pattern[2]:=0;
    1044. 

  1044. *****              ^ not supported yet
    1045. 

  1045. *****                       ^ not supported yet
    1046. 

  1046.   411          | 6:
    1047. 

  1047.   412              pattern[0]:=6;
    1048. 

  1048. *****              ^ not supported yet
    1049. 

  1049. *****                       ^ not supported yet
    1050. 

  1050.   413              pattern[1]:=0;
    1051. 

  1051. *****              ^ not supported yet
    1052. 

  1052. *****                       ^ not supported yet
    1053. 

  1053.   414      END;
    1054. 

  1054.   415      n:=0;
    1055. 

  1055.   416      WHILE pattern[n] # 0 DO
    1056. 

  1056. *****            ^ not supported yet
    1057. 

  1057. *****                     ^ not supported yet
    1058. 

  1058.   417          DrawCircles(pattern[n], start, depth, width);
    1059. 

  1059. *****          ^ not supported yet
    1060. 

  1060. *****                      ^ not supported yet
    1061. 

  1061. *****                               ^ not supported yet
    1062. 

  1062. *****                                                     ^ not supported yet
    1063. 

  1063.   418          INC(n);
    1064. 

  1064. *****          ^ undeclared identifier
    1065. 

  1065. *****               ^ not supported yet
    1066. 

  1066.   419      END;
    1067. 

  1067.   420  END DrawSpots;
    1068. 

  1068. *****      ^ not supported yet
    1069. 

  1069.   421  
    1070. 

  1070.   422  PROCEDURE DrawDomino(depth, width: INTEGER);
    1071. 

  1071.   423  
    1072. 

  1072.   424  VAR
    1073. 

  1073.   425      spots: INTEGER;
    1074. 

  1074.   426  BEGIN
    1075. 

  1075.   427      Graph.Rectangle(0, 0, width, depth, cv.numcolors-1, Graph._GBORDER);
    1076. 

  1076. *****      ^ not supported yet
    1077. 

  1077. *****            ^ not supported yet
    1078. 

  1078. *****                                          ^ not supported yet
    1079. 

  1079. *****                                             ^ not supported yet
    1080. 

  1080. *****                                                          ^ not supported yet
    1081. 

  1081. *****                                                                ^ not supported yet
    1082. 

  1082.   428      Graph.Line(0, depth DIV 2, width, depth DIV 2, cv.numcolors-1);
    1083. 

  1083. *****      ^ not supported yet
    1084. 

  1084. *****            ^ not supported yet
    1085. 

  1085. *****                                                     ^ not supported yet
    1086. 

  1086. *****                                                        ^ not supported yet
    1087. 

  1087. *****                                                                   ^ not supported yet
    1088. 

  1088.   429      spots:=Lib.RANDOM(7);
    1089. 

  1089. *****             ^ not supported yet
    1090. 

  1090. *****                 ^ not supported yet
    1091. 

  1091. *****                         ^ not supported yet
    1092. 

  1092.   430      DrawSpots(spots, 0, depth, width);
    1093. 

  1093. *****      ^ not supported yet
    1094. 

  1094. *****                                      ^ not supported yet
    1095. 

  1095.   431      spots:=Lib.RANDOM(7);
    1096. 

  1096. *****             ^ not supported yet
    1097. 

  1097. *****                 ^ not supported yet
    1098. 

  1098. *****                         ^ not supported yet
    1099. 

  1099.   432      DrawSpots(spots, depth DIV 2, depth, width);
    1100. 

  1100. *****      ^ not supported yet
    1101. 

  1101. *****                                                ^ not supported yet
    1102. 

  1102.   433  END DrawDomino;
    1103. 

  1103. *****      ^ not supported yet
    1104. 

  1104.   434  
    1105. 

  1105.   435  
    1106. 

  1106.   436  PROCEDURE MakeDomino(depth, width: INTEGER): ADDRESS;
    1107. 

  1107. *****                                               ^ undeclared identifier
    1108. 

  1108.   437  
    1109. 

  1109.   438  VAR
    1110. 

  1110.   439      Buffer: ADDRESS;
    1111. 

  1111. *****              ^ undeclared identifier
    1112. 

  1112.   440      size: LONGCARD;
    1113. 

  1113. *****            ^ undeclared identifier
    1114. 

  1114.   441  BEGIN
    1115. 

  1115.   442      size:=Graph.ImageSize(0, 0, width, depth);
    1116. 

  1116. *****      ^ not supported yet
    1117. 

  1117. *****            ^ not supported yet
    1118. 

  1118. *****                  ^ not supported yet
    1119. 

  1119. *****                                              ^ not supported yet
    1120. 

  1120.   443      Storage.ALLOCATE(Buffer, CARDINAL(size));
    1121. 

  1121. *****      ^ not supported yet
    1122. 

  1122. *****              ^ not supported yet
    1123. 

  1123. *****                       ^ not supported yet
    1124. 

  1124. *****                                        ^ not supported yet
    1125. 

  1125.   444      DrawDomino(depth, width);
    1126. 

  1126. *****      ^ not supported yet
    1127. 

  1127. *****                             ^ not supported yet
    1128. 

  1128.   445      Graph.GetImage(0, 0, width, depth, Buffer);
    1129. 

  1129. *****      ^ not supported yet
    1130. 

  1130. *****            ^ not supported yet
    1131. 

  1131. *****                                         ^ not supported yet
    1132. 

  1132.   446      RETURN Buffer;
    1133. 

  1133. *****             ^ not supported yet
    1134. 

  1134.   447  END MakeDomino;
    1135. 

  1135. *****      ^ not supported yet
    1136. 

  1136.   448  
    1137. 

  1137.   449  PROCEDURE Animation(adapter: CARDINAL);
    1138. 

  1138.   450  
    1139. 

  1139.   451  VAR
    1140. 

  1140.   452      ColPosition: ARRAY [0..10] OF CARDINAL;
    1141. 

  1141. *****                             ^ not supported yet
    1142. 

  1142. *****                                    ^ not supported yet
    1143. 

  1143.   453      RowPosition: ARRAY [0..2] OF CARDINAL;
    1144. 

  1144. *****                             ^ not supported yet
    1145. 

  1145. *****                                   ^ not supported yet
    1146. 

  1146.   454      count, width, depth, incr: INTEGER;
    1147. 

  1147.   455      MaxRow, MaxCol, clear: INTEGER;
    1148. 

  1148.   456      CurrentRow, CurrentCol: INTEGER;
    1149. 

  1149.   457      image: ADDRESS;
    1150. 

  1150. *****             ^ undeclared identifier
    1151. 

  1151.   458  BEGIN
    1152. 

  1152.   459      spotlist[0][0]:= Graph.GraphCoords(2, 2);
    1153. 

  1153. *****      ^ not supported yet
    1154. 

  1154. *****                ^ not supported yet
    1155. 

  1155. *****                   ^ not supported yet
    1156. 

  1156. *****                       ^ not supported yet
    1157. 

  1157. *****                             ^ not supported yet
    1158. 

  1158. *****                                             ^ not supported yet
    1159. 

  1159.   460      spotlist[1][0]:= Graph.GraphCoords(1, 1);
    1160. 

  1160. *****      ^ not supported yet
    1161. 

  1161. *****                ^ not supported yet
    1162. 

  1162. *****                   ^ not supported yet
    1163. 

  1163. *****                       ^ not supported yet
    1164. 

  1164. *****                             ^ not supported yet
    1165. 

  1165. *****                                             ^ not supported yet
    1166. 

  1166.   461      spotlist[1][1]:= Graph.GraphCoords(3, 3);
    1167. 

  1167. *****      ^ not supported yet
    1168. 

  1168. *****                ^ not supported yet
    1169. 

  1169. *****                   ^ not supported yet
    1170. 

  1170. *****                       ^ not supported yet
    1171. 

  1171. *****                             ^ not supported yet
    1172. 

  1172. *****                                             ^ not supported yet
    1173. 

  1173.   462      spotlist[2][0]:= Graph.GraphCoords(0, 0);
    1174. 

  1174. *****      ^ not supported yet
    1175. 

  1175. *****                ^ not supported yet
    1176. 

  1176. *****                   ^ not supported yet
    1177. 

  1177. *****                       ^ not supported yet
    1178. 

  1178. *****                             ^ not supported yet
    1179. 

  1179. *****                                             ^ not supported yet
    1180. 

  1180.   463      spotlist[3][0]:= Graph.GraphCoords(1, 1);
    1181. 

  1181. *****      ^ not supported yet
    1182. 

  1182. *****                ^ not supported yet
    1183. 

  1183. *****                   ^ not supported yet
    1184. 

  1184. *****                       ^ not supported yet
    1185. 

  1185. *****                             ^ not supported yet
    1186. 

  1186. *****                                             ^ not supported yet
    1187. 

  1187.   464      spotlist[3][1]:= Graph.GraphCoords(3, 1);
    1188. 

  1188. *****      ^ not supported yet
    1189. 

  1189. *****                ^ not supported yet
    1190. 

  1190. *****                   ^ not supported yet
    1191. 

  1191. *****                       ^ not supported yet
    1192. 

  1192. *****                             ^ not supported yet
    1193. 

  1193. *****                                             ^ not supported yet
    1194. 

  1194.   465      spotlist[3][2]:= Graph.GraphCoords(1, 3);
    1195. 

  1195. *****      ^ not supported yet
    1196. 

  1196. *****                ^ not supported yet
    1197. 

  1197. *****                   ^ not supported yet
    1198. 

  1198. *****                       ^ not supported yet
    1199. 

  1199. *****                             ^ not supported yet
    1200. 

  1200. *****                                             ^ not supported yet
    1201. 

  1201.   466      spotlist[3][3]:= Graph.GraphCoords(3, 3);
    1202. 

  1202. *****      ^ not supported yet
    1203. 

  1203. *****                ^ not supported yet
    1204. 

  1204. *****                   ^ not supported yet
    1205. 

  1205. *****                       ^ not supported yet
    1206. 

  1206. *****                             ^ not supported yet
    1207. 

  1207. *****                                             ^ not supported yet
    1208. 

  1208.   467      spotlist[4][0]:= Graph.GraphCoords(0, 0);
    1209. 

  1209. *****      ^ not supported yet
    1210. 

  1210. *****                ^ not supported yet
    1211. 

  1211. *****                   ^ not supported yet
    1212. 

  1212. *****                       ^ not supported yet
    1213. 

  1213. *****                             ^ not supported yet
    1214. 

  1214. *****                                             ^ not supported yet
    1215. 

  1215.   468      spotlist[5][0]:= Graph.GraphCoords(1, 1);
    1216. 

  1216. *****      ^ not supported yet
    1217. 

  1217. *****                ^ not supported yet
    1218. 

  1218. *****                   ^ not supported yet
    1219. 

  1219. *****                       ^ not supported yet
    1220. 

  1220. *****                             ^ not supported yet
    1221. 

  1221. *****                                             ^ not supported yet
    1222. 

  1222.   469      spotlist[5][1]:= Graph.GraphCoords(3, 1);
    1223. 

  1223. *****      ^ not supported yet
    1224. 

  1224. *****                ^ not supported yet
    1225. 

  1225. *****                   ^ not supported yet
    1226. 

  1226. *****                       ^ not supported yet
    1227. 

  1227. *****                             ^ not supported yet
    1228. 

  1228. *****                                             ^ not supported yet
    1229. 

  1229.   470      spotlist[5][2]:= Graph.GraphCoords(1, 2);
    1230. 

  1230. *****      ^ not supported yet
    1231. 

  1231. *****                ^ not supported yet
    1232. 

  1232. *****                   ^ not supported yet
    1233. 

  1233. *****                       ^ not supported yet
    1234. 

  1234. *****                             ^ not supported yet
    1235. 

  1235. *****                                             ^ not supported yet
    1236. 

  1236.   471      spotlist[5][3]:= Graph.GraphCoords(3, 2);
    1237. 

  1237. *****      ^ not supported yet
    1238. 

  1238. *****                ^ not supported yet
    1239. 

  1239. *****                   ^ not supported yet
    1240. 

  1240. *****                       ^ not supported yet
    1241. 

  1241. *****                             ^ not supported yet
    1242. 

  1242. *****                                             ^ not supported yet
    1243. 

  1243.   472      spotlist[5][4]:= Graph.GraphCoords(1, 3);
    1244. 

  1244. *****      ^ not supported yet
    1245. 

  1245. *****                ^ not supported yet
    1246. 

  1246. *****                   ^ not supported yet
    1247. 

  1247. *****                       ^ not supported yet
    1248. 

  1248. *****                             ^ not supported yet
    1249. 

  1249. *****                                             ^ not supported yet
    1250. 

  1250.   473      spotlist[5][5]:= Graph.GraphCoords(3, 3);
    1251. 

  1251. *****      ^ not supported yet
    1252. 

  1252. *****                ^ not supported yet
    1253. 

  1253. *****                   ^ not supported yet
    1254. 

  1254. *****                       ^ not supported yet
    1255. 

  1255. *****                             ^ not supported yet
    1256. 

  1256. *****                                             ^ not supported yet
    1257. 

  1257.   474      Graph.ClearScreen(Graph._GCLEARSCREEN);
    1258. 

  1258. *****      ^ not supported yet
    1259. 

  1259. *****            ^ not supported yet
    1260. 

  1260. *****                        ^ not supported yet
    1261. 

  1261. *****                              ^ not supported yet
    1262. 

  1262.   475      Graph.SetFillMask(Patterns[2]);
    1263. 

  1263. *****      ^ not supported yet
    1264. 

  1264. *****            ^ not supported yet
    1265. 

  1265. *****                        ^ not supported yet
    1266. 

  1266. *****                                  ^ not supported yet
    1267. 

  1267.   476      IF (adapter = Graph._EGA) OR (adapter = Graph._HGC) THEN
    1268. 

  1268. *****                    ^ not supported yet
    1269. 

  1269. *****                          ^ not supported yet
    1270. 

  1270. *****                                              ^ not supported yet
    1271. 

  1271. *****                                                    ^ not supported yet
    1272. 

  1272.   477          width:=50;
    1273. 

  1273.   478          depth:=100;
    1274. 

  1274.   479          MaxRow:=2;
    1275. 

  1275.   480          MaxCol:=9;
    1276. 

  1276.   481          clear:=20;
    1277. 

  1277.   482          incr:=10;
    1278. 

  1278.   483      ELSE
    1279. 

  1279.   484          width:=50;
    1280. 

  1280.   485          depth:=90;
    1281. 

  1281.   486          MaxRow:=1;
    1282. 

  1282.   487          MaxCol:=4;
    1283. 

  1283.   488          clear:=10;
    1284. 

  1284.   489          incr:=5;
    1285. 

  1285.   490      END;
    1286. 

  1286.   491      count:=0;
    1287. 

  1287.   492      WHILE count <= MaxCol DO
    1288. 

  1288.   493          ColPosition[count]:=count*(width+10);
    1289. 

  1289. *****          ^ not supported yet
    1290. 

  1290. *****                           ^ not supported yet
    1291. 

  1291.   494          INC(count);
    1292. 

  1292. *****          ^ undeclared identifier
    1293. 

  1293. *****                   ^ not supported yet
    1294. 

  1294.   495      END;
    1295. 

  1295.   496      count:=0;
    1296. 

  1296.   497      WHILE count <= MaxRow DO
    1297. 

  1297.   498          RowPosition[count]:=count*(depth+clear);
    1298. 

  1298. *****          ^ not supported yet
    1299. 

  1299. *****                           ^ not supported yet
    1300. 

  1300.   499          INC(count);
    1301. 

  1301. *****          ^ undeclared identifier
    1302. 

  1302. *****                   ^ not supported yet
    1303. 

  1303.   500      END;
    1304. 

  1304.   501      CurrentCol:=MaxCol;
    1305. 

  1305.   502      CurrentRow:=MaxRow;
    1306. 

  1306.   503  
    1307. 

  1307.   504      LOOP
    1308. 

  1308.   505          IF CurrentCol < 0 THEN EXIT END;
    1309. 

  1309.   506          image:=MakeDomino(depth, width);
    1310. 

  1310. *****          ^ not supported yet
    1311. 

  1311. *****                 ^ not supported yet
    1312. 

  1312. *****                                        ^ not supported yet
    1313. 

  1313.   507          IF CurrentCol > 0 THEN
    1314. 

  1314.   508              IF MoveSideways(image, ColPosition, CurrentCol, incr) # 0 THEN
    1315. 

  1315. *****                 ^ not supported yet
    1316. 

  1316. *****                              ^ not supported yet
    1317. 

  1317. *****                                     ^ not supported yet
    1318. 

  1318. *****                                                                  ^ not supported yet
    1319. 

  1319.   509                  EXIT;
    1320. 

  1320.   510              END;
    1321. 

  1321.   511          END;
    1322. 

  1322.   512          IF CurrentRow > 0 THEN
    1323. 

  1323.   513              IF MoveDown(image, RowPosition, CurrentRow, ColPosition[CurrentCol], incr) # 0 THEN
    1324. 

  1324. *****                 ^ not supported yet
    1325. 

  1325. *****                          ^ not supported yet
    1326. 

  1326. *****                                 ^ not supported yet
    1327. 

  1327. *****                                                          ^ not supported yet
    1328. 

  1328. *****                                                                                ^ not supported yet
    1329. 

  1329. *****                                                                                       ^ not supported yet
    1330. 

  1330.   514                  EXIT;
    1331. 

  1331.   515              END;
    1332. 

  1332.   516              DEC(CurrentRow);
    1333. 

  1333. *****              ^ undeclared identifier
    1334. 

  1334. *****                            ^ not supported yet
    1335. 

  1335.   517          ELSE
    1336. 

  1336.   518              DEC(CurrentCol);
    1337. 

  1337. *****              ^ undeclared identifier
    1338. 

  1338. *****                            ^ not supported yet
    1339. 

  1339.   519              CurrentRow:=MaxRow;
    1340. 

  1340.   520          END;
    1341. 

  1341.   521          Storage.DEALLOCATE(image, CARDINAL(Graph.ImageSize(0, 0, width, depth)));
    1342. 

  1342. *****          ^ not supported yet
    1343. 

  1343. *****                  ^ not supported yet
    1344. 

  1344. *****                             ^ not supported yet
    1345. 

  1345. *****                                             ^ not supported yet
    1346. 

  1346. *****                                                   ^ not supported yet
    1347. 

  1347. *****                                                                               ^ not supported yet
    1348. 

  1348.   522          IF IO.KeyPressed() THEN
    1349. 

  1349. *****             ^ not supported yet
    1350. 

  1350. *****                ^ not supported yet
    1351. 

  1351. *****                           ^ not supported yet
    1352. 

  1352.   523              EXIT;
    1353. 

  1353.   524          END;
    1354. 

  1354.   525      END;
    1355. 

  1355.   526      IF NOT Mono THEN
    1356. 

  1356.   527          SYSTEM.Eval(Graph.SetTextPosition(25, 1));
    1357. 

  1357. *****          ^ not supported yet
    1358. 

  1358. *****                 ^ not supported yet
    1359. 

  1359. *****                      ^ not supported yet
    1360. 

  1360. *****                            ^ not supported yet
    1361. 

  1361. *****                                                 ^ not supported yet
    1362. 

  1362.   528          Graph.OutText('Press Any Key To Continue, X To Exit.');
    1363. 

  1363. *****          ^ not supported yet
    1364. 

  1364. *****                ^ not supported yet
    1365. 

  1365. *****                        ^ not supported yet
    1366. 

  1366.   529      END;
    1367. 

  1367.   530      TestKey;
    1368. 

  1368. *****      ^ not supported yet
    1369. 

  1369.   531  END Animation;
    1370. 

  1370. *****      ^ not supported yet
    1371. 

  1371.   532  
    1372. 

  1372.   533  
    1373. 

  1373.   534  
    1374. 

  1374.   535  
    1375. 

  1375.   536  PROCEDURE Bars(scale: INTEGER);
    1376. 

  1376.   537  
    1377. 

  1377.   538  VAR
    1378. 

  1378.   539      x1, y1,x2, y2, x3, y3, x4, y4: CARDINAL;
    1379. 

  1379.   540      NewMask: Graph.FillMaskType;
    1380. 

  1380. *****                     ^ not supported yet
    1381. 

  1381.   541  BEGIN
    1382. 

  1382.   542      Graph.SetClipRgn(0, 0, cv.numxpixels-1, cv.numypixels-1);
    1383. 

  1383. *****      ^ not supported yet
    1384. 

  1384. *****            ^ not supported yet
    1385. 

  1385. *****                             ^ not supported yet
    1386. 

  1386. *****                                ^ not supported yet
    1387. 

  1387. *****                                              ^ not supported yet
    1388. 

  1388. *****                                                 ^ not supported yet
    1389. 

  1389. *****                                                             ^ not supported yet
    1390. 

  1390.   543      Graph.ClearScreen(Graph._GCLEARSCREEN);
    1391. 

  1391. *****      ^ not supported yet
    1392. 

  1392. *****            ^ not supported yet
    1393. 

  1393. *****                        ^ not supported yet
    1394. 

  1394. *****                              ^ not supported yet
    1395. 

  1395.   544      x1:=460 DIV scale;
    1396. 

  1396.   545      y1:=150 DIV scale;
    1397. 

  1397.   546      x2:=140 DIV scale;
    1398. 

  1398.   547      y2:=130 DIV scale;
    1399. 

  1399.   548      x4:=300 DIV scale;
    1400. 

  1400.   549      y4:=260 DIV scale;
    1401. 

  1401.   550      x3:=620 DIV scale;
    1402. 

  1402.   551      y3:=260 DIV scale;
    1403. 

  1403.   552      Graph.Pie(x1, y1, x2, y2, x3, y3, x4, y4, Max(4 MOD cv.numcolors, 1), Graph._GFILLINTERIOR);
    1404. 

  1404. *****      ^ not supported yet
    1405. 

  1405. *****            ^ not supported yet
    1406. 

  1406. *****                                                ^ not supported yet
    1407. 

  1407. *****                                                          ^ not supported yet
    1408. 

  1408. *****                                                             ^ not supported yet
    1409. 

  1409. *****                                                                         ^ not supported yet
    1410. 

  1410. *****                                                                            ^ not supported yet
    1411. 

  1411. *****                                                                                  ^ not supported yet
    1412. 

  1412.   553  
    1413. 

  1413.   554      x1:=460 DIV scale;
    1414. 

  1414.   555      y1:=170 DIV scale;
    1415. 

  1415.   556      x2:=140 DIV scale;
    1416. 

  1416.   557      y2:=130 DIV scale;
    1417. 

  1417.   558      x3:=300 DIV scale;
    1418. 

  1418.   559      y3:=280 DIV scale;
    1419. 

  1419.   560      x4:=620 DIV scale;
    1420. 

  1420.   561      y4:=280 DIV scale;
    1421. 

  1421.   562      Graph.Pie(x1, y1, x2, y2, x3, y3, x4, y4, Max(3 MOD cv.numcolors, 1), Graph._GBORDER);
    1422. 

  1422. *****      ^ not supported yet
    1423. 

  1423. *****            ^ not supported yet
    1424. 

  1424. *****                                                ^ not supported yet
    1425. 

  1425. *****                                                          ^ not supported yet
    1426. 

  1426. *****                                                             ^ not supported yet
    1427. 

  1427. *****                                                                         ^ not supported yet
    1428. 

  1428. *****                                                                            ^ not supported yet
    1429. 

  1429. *****                                                                                  ^ not supported yet
    1430. 

  1430.   563  
    1431. 

  1431.   564  
    1432. 

  1432.   565      NewMask[0]:=88H;
    1433. 

  1433. *****      ^ not supported yet
    1434. 

  1434. *****               ^ not supported yet
    1435. 

  1435.   566      NewMask[1]:=44H;
    1436. 

  1436. *****      ^ not supported yet
    1437. 

  1437. *****               ^ not supported yet
    1438. 

  1438.   567      NewMask[2]:=22H;
    1439. 

  1439. *****      ^ not supported yet
    1440. 

  1440. *****               ^ not supported yet
    1441. 

  1441.   568      NewMask[3]:=11H;
    1442. 

  1442. *****      ^ not supported yet
    1443. 

  1443. *****               ^ not supported yet
    1444. 

  1444.   569      NewMask[4]:=88H;
    1445. 

  1445. *****      ^ not supported yet
    1446. 

  1446. *****               ^ not supported yet
    1447. 

  1447.   570      NewMask[5]:=44H;
    1448. 

  1448. *****      ^ not supported yet
    1449. 

  1449. *****               ^ not supported yet
    1450. 

  1450.   571      NewMask[6]:=22H;
    1451. 

  1451. *****      ^ not supported yet
    1452. 

  1452. *****               ^ not supported yet
    1453. 

  1453.   572      NewMask[7]:=11H;
    1454. 

  1454. *****      ^ not supported yet
    1455. 

  1455. *****               ^ not supported yet
    1456. 

  1456.   573      Graph.SetFillMask(NewMask);
    1457. 

  1457. *****      ^ not supported yet
    1458. 

  1458. *****            ^ not supported yet
    1459. 

  1459. *****                        ^ not supported yet
    1460. 

  1460.   574      x1:=19 DIV scale;
    1461. 

  1461.   575      y1:=10 DIV scale;
    1462. 

  1462.   576      x2:=x1;
    1463. 

  1463.   577      y2:=321 DIV scale;
    1464. 

  1464.   578      x3:=600 DIV scale;
    1465. 

  1465.   579      y3:=y2;
    1466. 

  1466.   580  
    1467. 

  1467.   581      Graph.Line(x1, y1, x2, y2, cv.numcolors-1);
    1468. 

  1468. *****      ^ not supported yet
    1469. 

  1469. *****            ^ not supported yet
    1470. 

  1470. *****                                 ^ not supported yet
    1471. 

  1471. *****                                    ^ not supported yet
    1472. 

  1472. *****                                               ^ not supported yet
    1473. 

  1473.   582      Graph.Line(x2, y2, x3, y3, cv.numcolors-1);
    1474. 

  1474. *****      ^ not supported yet
    1475. 

  1475. *****            ^ not supported yet
    1476. 

  1476. *****                                 ^ not supported yet
    1477. 

  1477. *****                                    ^ not supported yet
    1478. 

  1478. *****                                               ^ not supported yet
    1479. 

  1479.   583      IF NOT Mono THEN
    1480. 

  1480.   584          SYSTEM.Eval(Graph.SetTextPosition(25, 13 DIV scale));
    1481. 

  1481. *****          ^ not supported yet
    1482. 

  1482. *****                 ^ not supported yet
    1483. 

  1483. *****                      ^ not supported yet
    1484. 

  1484. *****                            ^ not supported yet
    1485. 

  1485. *****                                                            ^ not supported yet
    1486. 

  1486.   585          Graph.OutText('Bar Graphs and Pie Charts');
    1487. 

  1487. *****          ^ not supported yet
    1488. 

  1488. *****                ^ not supported yet
    1489. 

  1489. *****                        ^ not supported yet
    1490. 

  1490.   586      END;
    1491. 

  1491.   587      x1:=20 DIV scale;
    1492. 

  1492.   588      y1:=20 DIV scale;
    1493. 

  1493.   589      x2:=59 DIV scale;
    1494. 

  1494.   590      y2:=320 DIV scale;
    1495. 

  1495.   591      Graph.Cube(Graph._GTOP, x1, y1, x2, y2, 20 DIV scale, Max(1 MOD cv.numcolors, 1), Graph._GFILLINTERIOR);
    1496. 

  1496. *****      ^ not supported yet
    1497. 

  1497. *****            ^ not supported yet
    1498. 

  1498. *****                 ^ not supported yet
    1499. 

  1499. *****                       ^ not supported yet
    1500. 

  1500. *****                                                            ^ not supported yet
    1501. 

  1501. *****                                                                      ^ not supported yet
    1502. 

  1502. *****                                                                         ^ not supported yet
    1503. 

  1503. *****                                                                                     ^ not supported yet
    1504. 

  1504. *****                                                                                        ^ not supported yet
    1505. 

  1505. *****                                                                                              ^ not supported yet
    1506. 

  1506.   592  
    1507. 

  1507.   593  
    1508. 

  1508.   594      x1:=60 DIV scale;
    1509. 

  1509.   595      y1:=120 DIV scale;
    1510. 

  1510.   596      x2:=99 DIV scale;
    1511. 

  1511.   597      y2:=320 DIV scale;
    1512. 

  1512.   598      Graph.Cube(Graph._GTOP, x1, y1, x2, y2, 20 DIV scale, Max(2 MOD cv.numcolors, 1),Graph._GFILLINTERIOR);
    1513. 

  1513. *****      ^ not supported yet
    1514. 

  1514. *****            ^ not supported yet
    1515. 

  1515. *****                 ^ not supported yet
    1516. 

  1516. *****                       ^ not supported yet
    1517. 

  1517. *****                                                            ^ not supported yet
    1518. 

  1518. *****                                                                      ^ not supported yet
    1519. 

  1519. *****                                                                         ^ not supported yet
    1520. 

  1520. *****                                                                                     ^ not supported yet
    1521. 

  1521. *****                                                                                       ^ not supported yet
    1522. 

  1522. *****                                                                                             ^ not supported yet
    1523. 

  1523.   599  
    1524. 

  1524.   600      
    1525. 

  1525.   601      x1:=100 DIV scale;
    1526. 

  1526.   602      y1:=80 DIV scale;
    1527. 

  1527.   603      x2:=139 DIV scale;
    1528. 

  1528.   604      y2:=320 DIV scale;
    1529. 

  1529.   605      Graph.Cube(Graph._GTOP, x1, y1, x2, y2, 20 DIV scale, Max(3 MOD cv.numcolors, 1), Graph._GFILLINTERIOR );
    1530. 

  1530. *****      ^ not supported yet
    1531. 

  1531. *****            ^ not supported yet
    1532. 

  1532. *****                 ^ not supported yet
    1533. 

  1533. *****                       ^ not supported yet
    1534. 

  1534. *****                                                            ^ not supported yet
    1535. 

  1535. *****                                                                      ^ not supported yet
    1536. 

  1536. *****                                                                         ^ not supported yet
    1537. 

  1537. *****                                                                                     ^ not supported yet
    1538. 

  1538. *****                                                                                        ^ not supported yet
    1539. 

  1539. *****                                                                                              ^ not supported yet
    1540. 

  1540.   606  
    1541. 

  1541.   607      
    1542. 

  1542.   608      x1:=140 DIV scale;
    1543. 

  1543.   609      y1:=200 DIV scale;
    1544. 

  1544.   610      x2:=179 DIV scale;
    1545. 

  1545.   611      y2:=320 DIV scale;
    1546. 

  1546.   612      Graph.Cube(Graph._GTOP, x1, y1, x2, y2, 20 DIV scale, Max(4 MOD cv.numcolors, 1), Graph._GFILLINTERIOR);
    1547. 

  1547. *****      ^ not supported yet
    1548. 

  1548. *****            ^ not supported yet
    1549. 

  1549. *****                 ^ not supported yet
    1550. 

  1550. *****                       ^ not supported yet
    1551. 

  1551. *****                                                            ^ not supported yet
    1552. 

  1552. *****                                                                      ^ not supported yet
    1553. 

  1553. *****                                                                         ^ not supported yet
    1554. 

  1554. *****                                                                                     ^ not supported yet
    1555. 

  1555. *****                                                                                        ^ not supported yet
    1556. 

  1556. *****                                                                                              ^ not supported yet
    1557. 

  1557.   613  
    1558. 

  1558.   614      SYSTEM.Eval(IO.RdKey());
    1559. 

  1559. *****      ^ not supported yet
    1560. 

  1560. *****             ^ not supported yet
    1561. 

  1561. *****                  ^ not supported yet
    1562. 

  1562. *****                     ^ not supported yet
    1563. 

  1563. *****                           ^ not supported yet
    1564. 

  1564.   615  END Bars;
    1565. 

  1565. *****      ^ not supported yet
    1566. 

  1566.   616  
    1567. 

  1567.   617  
    1568. 

  1568.   618  PROCEDURE RandColor(): CARDINAL;
    1569. 

  1569.   619  
    1570. 

  1570.   620  VAR
    1571. 

  1571.   621      color: CARDINAL;
    1572. 

  1572.   622  BEGIN
    1573. 

  1573.   623      color:=Lib.RANDOM(cv.numcolors);
    1574. 

  1574. *****             ^ not supported yet
    1575. 

  1575. *****                 ^ not supported yet
    1576. 

  1576. *****                        ^ not supported yet
    1577. 

  1577. *****                           ^ not supported yet
    1578. 

  1578.   624      IF color = 0 THEN
    1579. 

  1579.   625          color:=cv.numcolors-1;
    1580. 

  1580. *****                 ^ not supported yet
    1581. 

  1581. *****                    ^ not supported yet
    1582. 

  1582.   626      END;
    1583. 

  1583.   627      RETURN color;
    1584. 

  1584.   628  END RandColor;
    1585. 

  1585. *****      ^ not supported yet
    1586. 

  1586.   629  
    1587. 

  1587.   630  
    1588. 

  1588.   631  PROCEDURE DrawLines();
    1589. 

  1589.   632  
    1590. 

  1590.   633  VAR
    1591. 

  1591.   634      x, y, col: CARDINAL;
    1592. 

  1592.   635      MaxX, MaxY: CARDINAL;
    1593. 

  1593.   636      top, left, bottom, right: CARDINAL;
    1594. 

  1594.   637      i, limit: INTEGER;
    1595. 

  1595.   638  BEGIN
    1596. 

  1596.   639      Graph.ClearScreen(Graph._GCLEARSCREEN);
    1597. 

  1597. *****      ^ not supported yet
    1598. 

  1598. *****            ^ not supported yet
    1599. 

  1599. *****                        ^ not supported yet
    1600. 

  1600. *****                              ^ not supported yet
    1601. 

  1601.   640      top:=0;
    1602. 

  1602.   641      left:=0;
    1603. 

  1603.   642      bottom:=cv.numypixels - 1;
    1604. 

  1604. *****              ^ not supported yet
    1605. 

  1605. *****                 ^ not supported yet
    1606. 

  1606.   643      right :=cv.numxpixels - 1;
    1607. 

  1607. *****              ^ not supported yet
    1608. 

  1608. *****                 ^ not supported yet
    1609. 

  1609.   644      MaxX:=cv.numxpixels - 1;
    1610. 

  1610. *****            ^ not supported yet
    1611. 

  1611. *****               ^ not supported yet
    1612. 

  1612.   645      MaxY:=cv.numypixels - 1;
    1613. 

  1613. *****            ^ not supported yet
    1614. 

  1614. *****               ^ not supported yet
    1615. 

  1615.   646      limit:=cv.numcolors-1;
    1616. 

  1616. *****             ^ not supported yet
    1617. 

  1617. *****                ^ not supported yet
    1618. 

  1618.   647      col:=0;
    1619. 

  1619.   648      i := 0;
    1620. 

  1620.   649      WHILE (i <= limit) & ~IO.KeyPressed() DO
    1621. 

  1621. *****                            ^ not supported yet
    1622. 

  1622. *****                               ^ not supported yet
    1623. 

  1623. *****                                          ^ not supported yet
    1624. 

  1624.   650          INC(col);
    1625. 

  1625. *****          ^ undeclared identifier
    1626. 

  1626. *****                 ^ not supported yet
    1627. 

  1627.   651          Graph.SetClipRgn(left, top, right, bottom);
    1628. 

  1628. *****          ^ not supported yet
    1629. 

  1629. *****                ^ not supported yet
    1630. 

  1630. *****                                                   ^ not supported yet
    1631. 

  1631.   652          INC(top, 4);
    1632. 

  1632. *****          ^ undeclared identifier
    1633. 

  1633. *****                    ^ not supported yet
    1634. 

  1634.   653          INC(left, 4);
    1635. 

  1635. *****          ^ undeclared identifier
    1636. 

  1636. *****                     ^ not supported yet
    1637. 

  1637.   654          DEC(bottom, 4);
    1638. 

  1638. *****          ^ undeclared identifier
    1639. 

  1639. *****                       ^ not supported yet
    1640. 

  1640.   655          DEC(right, 4);
    1641. 

  1641. *****          ^ undeclared identifier
    1642. 

  1642. *****                      ^ not supported yet
    1643. 

  1643.   656          x := 0;
    1644. 

  1644.   657          WHILE x <= MaxX DO
    1645. 

  1645.   658              Graph.Line(x, 0, MaxX - x,MaxY, col);
    1646. 

  1646. *****              ^ not supported yet
    1647. 

  1647. *****                    ^ not supported yet
    1648. 

  1648. *****                                                 ^ not supported yet
    1649. 

  1649.   659              INC(x, 4);
    1650. 

  1650. *****              ^ undeclared identifier
    1651. 

  1651. *****                      ^ not supported yet
    1652. 

  1652.   660          END;
    1653. 

  1653.   661          y := 0;
    1654. 

  1654.   662          WHILE y <= MaxY DO
    1655. 

  1655.   663              Graph.Line(MaxX, y, 0, MaxY - y, col);
    1656. 

  1656. *****              ^ not supported yet
    1657. 

  1657. *****                    ^ not supported yet
    1658. 

  1658. *****                                                  ^ not supported yet
    1659. 

  1659.   664              INC(y, 2);
    1660. 

  1660. *****              ^ undeclared identifier
    1661. 

  1661. *****                      ^ not supported yet
    1662. 

  1662.   665          END;
    1663. 

  1663.   666          INC(i);
    1664. 

  1664. *****          ^ undeclared identifier
    1665. 

  1665. *****               ^ not supported yet
    1666. 

  1666.   667      END;
    1667. 

  1667.   668      SYSTEM.Eval(Graph.SetTextPosition(25, 1));
    1668. 

  1668. *****      ^ not supported yet
    1669. 

  1669. *****             ^ not supported yet
    1670. 

  1670. *****                  ^ not supported yet
    1671. 

  1671. *****                        ^ not supported yet
    1672. 

  1672. *****                                             ^ not supported yet
    1673. 

  1673.   669      Graph.SetClipRgn(0, 0, cv.numxpixels-1, cv.numypixels-1);
    1674. 

  1674. *****      ^ not supported yet
    1675. 

  1675. *****            ^ not supported yet
    1676. 

  1676. *****                             ^ not supported yet
    1677. 

  1677. *****                                ^ not supported yet
    1678. 

  1678. *****                                              ^ not supported yet
    1679. 

  1679. *****                                                 ^ not supported yet
    1680. 

  1680. *****                                                             ^ not supported yet
    1681. 

  1681.   670      IF NOT Mono THEN
    1682. 

  1682.   671          Graph.OutText('Press Any Key To Continue, X To Exit.');
    1683. 

  1683. *****          ^ not supported yet
    1684. 

  1684. *****                ^ not supported yet
    1685. 

  1685. *****                        ^ not supported yet
    1686. 

  1686.   672      END;
    1687. 

  1687.   673      TestKey;
    1688. 

  1688. *****      ^ not supported yet
    1689. 

  1689.   674      Graph.ClearScreen(Graph._GCLEARSCREEN);
    1690. 

  1690. *****      ^ not supported yet
    1691. 

  1691. *****            ^ not supported yet
    1692. 

  1692. *****                        ^ not supported yet
    1693. 

  1693. *****                              ^ not supported yet
    1694. 

  1694.   675  END DrawLines;
    1695. 

  1695. *****      ^ not supported yet
    1696. 

  1696.   676  
    1697. 

  1697.   677  PROCEDURE DrawLogo(scale: INTEGER; Cols: SmallColorArray);
    1698. 

  1698.   678  
    1699. 

  1699.   679  VAR
    1700. 

  1700.   680      mode: BOOLEAN;
    1701. 

  1701.   681  BEGIN
    1702. 

  1702.   682      IF Mono THEN
    1703. 

  1703.   683          mode:=Graph._GBORDER;
    1704. 

  1704. *****                ^ not supported yet
    1705. 

  1705. *****                      ^ not supported yet
    1706. 

  1706.   684      ELSE
    1707. 

  1707.   685          mode:=Graph._GFILLINTERIOR;
    1708. 

  1708. *****                ^ not supported yet
    1709. 

  1709. *****                      ^ not supported yet
    1710. 

  1710.   686      END;
    1711. 

  1711.   687      Graph.Rectangle(140 DIV scale, 20 DIV scale, 500 DIV scale, 330 DIV scale, Cols[0], mode);
    1712. 

  1712. *****      ^ not supported yet
    1713. 

  1713. *****            ^ not supported yet
    1714. 

  1714. *****                                                                                 ^ not supported yet
    1715. 

  1715. *****                                                                                       ^ not supported yet
    1716. 

  1716. *****                                                                                              ^ not supported yet
    1717. 

  1717.   688      Graph.Line(225 DIV scale, 110 DIV scale, 320 DIV scale, 140 DIV scale, Cols[1]);
    1718. 

  1718. *****      ^ not supported yet
    1719. 

  1719. *****            ^ not supported yet
    1720. 

  1720. *****                                                                             ^ not supported yet
    1721. 

  1721. *****                                                                                   ^ not supported yet
    1722. 

  1722.   689      Graph.Line(320 DIV scale, 140 DIV scale, 415 DIV scale, 110 DIV scale, Cols[1]);
    1723. 

  1723. *****      ^ not supported yet
    1724. 

  1724. *****            ^ not supported yet
    1725. 

  1725. *****                                                                             ^ not supported yet
    1726. 

  1726. *****                                                                                   ^ not supported yet
    1727. 

  1727.   690      Graph.Line(415 DIV scale, 110 DIV scale, 460 DIV scale, 125 DIV scale, Cols[1]);
    1728. 

  1728. *****      ^ not supported yet
    1729. 

  1729. *****            ^ not supported yet
    1730. 

  1730. *****                                                                             ^ not supported yet
    1731. 

  1731. *****                                                                                   ^ not supported yet
    1732. 

  1732.   691      Graph.Line(460 DIV scale, 125 DIV scale, 460 DIV scale, 225 DIV scale, Cols[1]);
    1733. 

  1733. *****      ^ not supported yet
    1734. 

  1734. *****            ^ not supported yet
    1735. 

  1735. *****                                                                             ^ not supported yet
    1736. 

  1736. *****                                                                                   ^ not supported yet
    1737. 

  1737.   692      Graph.Line(460 DIV scale, 225 DIV scale, 365 DIV scale, 255 DIV scale, Cols[1]);
    1738. 

  1738. *****      ^ not supported yet
    1739. 

  1739. *****            ^ not supported yet
    1740. 

  1740. *****                                                                             ^ not supported yet
    1741. 

  1741. *****                                                                                   ^ not supported yet
    1742. 

  1742.   693      Graph.Line(365 DIV scale, 255 DIV scale, 365 DIV scale, 285 DIV scale, Cols[1]);
    1743. 

  1743. *****      ^ not supported yet
    1744. 

  1744. *****            ^ not supported yet
    1745. 

  1745. *****                                                                             ^ not supported yet
    1746. 

  1746. *****                                                                                   ^ not supported yet
    1747. 

  1747.   694      Graph.Line(365 DIV scale, 285 DIV scale, 320 DIV scale, 300 DIV scale, Cols[1]);
    1748. 

  1748. *****      ^ not supported yet
    1749. 

  1749. *****            ^ not supported yet
    1750. 

  1750. *****                                                                             ^ not supported yet
    1751. 

  1751. *****                                                                                   ^ not supported yet
    1752. 

  1752.   695      Graph.Line(320 DIV scale, 300 DIV scale, 180 DIV scale, 255 DIV scale, Cols[1]);
    1753. 

  1753. *****      ^ not supported yet
    1754. 

  1754. *****            ^ not supported yet
    1755. 

  1755. *****                                                                             ^ not supported yet
    1756. 

  1756. *****                                                                                   ^ not supported yet
    1757. 

  1757.   696      Graph.Line(180 DIV scale, 255 DIV scale, 180 DIV scale, 190 DIV scale, Cols[1]);
    1758. 

  1758. *****      ^ not supported yet
    1759. 

  1759. *****            ^ not supported yet
    1760. 

  1760. *****                                                                             ^ not supported yet
    1761. 

  1761. *****                                                                                   ^ not supported yet
    1762. 

  1762.   697      Graph.Line(180 DIV scale, 190 DIV scale, 225 DIV scale, 205 DIV scale, Cols[1]);
    1763. 

  1763. *****      ^ not supported yet
    1764. 

  1764. *****            ^ not supported yet
    1765. 

  1765. *****                                                                             ^ not supported yet
    1766. 

  1766. *****                                                                                   ^ not supported yet
    1767. 

  1767.   698      Graph.Line(225 DIV scale, 205 DIV scale, 225 DIV scale, 235 DIV scale, Cols[1]);
    1768. 

  1768. *****      ^ not supported yet
    1769. 

  1769. *****            ^ not supported yet
    1770. 

  1770. *****                                                                             ^ not supported yet
    1771. 

  1771. *****                                                                                   ^ not supported yet
    1772. 

  1772.   699      Graph.Line(225 DIV scale, 235 DIV scale, 270 DIV scale, 250 DIV scale, Cols[1]);
    1773. 

  1773. *****      ^ not supported yet
    1774. 

  1774. *****            ^ not supported yet
    1775. 

  1775. *****                                                                             ^ not supported yet
    1776. 

  1776. *****                                                                                   ^ not supported yet
    1777. 

  1777.   700      Graph.Line(270 DIV scale, 250 DIV scale, 270 DIV scale, 190 DIV scale, Cols[1]);
    1778. 

  1778. *****      ^ not supported yet
    1779. 

  1779. *****            ^ not supported yet
    1780. 

  1780. *****                                                                             ^ not supported yet
    1781. 

  1781. *****                                                                                   ^ not supported yet
    1782. 

  1782.   701      Graph.Line(270 DIV scale, 190 DIV scale, 180 DIV scale, 160 DIV scale, Cols[1]);
    1783. 

  1783. *****      ^ not supported yet
    1784. 

  1784. *****            ^ not supported yet
    1785. 

  1785. *****                                                                             ^ not supported yet
    1786. 

  1786. *****                                                                                   ^ not supported yet
    1787. 

  1787.   702      Graph.Line(180 DIV scale, 160 DIV scale, 180 DIV scale, 125 DIV scale, Cols[1]);
    1788. 

  1788. *****      ^ not supported yet
    1789. 

  1789. *****            ^ not supported yet
    1790. 

  1790. *****                                                                             ^ not supported yet
    1791. 

  1791. *****                                                                                   ^ not supported yet
    1792. 

  1792.   703      Graph.Line(180 DIV scale, 125 DIV scale, 225 DIV scale, 110 DIV scale, Cols[1]);
    1793. 

  1793. *****      ^ not supported yet
    1794. 

  1794. *****            ^ not supported yet
    1795. 

  1795. *****                                                                             ^ not supported yet
    1796. 

  1796. *****                                                                                   ^ not supported yet
    1797. 

  1797.   704  
    1798. 

  1798.   705      Graph.Line(180 DIV scale, 125 DIV scale, 320 DIV scale, 170 DIV scale, Cols[1]);
    1799. 

  1799. *****      ^ not supported yet
    1800. 

  1800. *****            ^ not supported yet
    1801. 

  1801. *****                                                                             ^ not supported yet
    1802. 

  1802. *****                                                                                   ^ not supported yet
    1803. 

  1803.   706      Graph.Line(320 DIV scale, 170 DIV scale, 460 DIV scale, 125 DIV scale, Cols[1]);
    1804. 

  1804. *****      ^ not supported yet
    1805. 

  1805. *****            ^ not supported yet
    1806. 

  1806. *****                                                                             ^ not supported yet
    1807. 

  1807. *****                                                                                   ^ not supported yet
    1808. 

  1808.   707      Graph.Line(320 DIV scale, 170 DIV scale, 320 DIV scale, 300 DIV scale, Cols[1]);
    1809. 

  1809. *****      ^ not supported yet
    1810. 

  1810. *****            ^ not supported yet
    1811. 

  1811. *****                                                                             ^ not supported yet
    1812. 

  1812. *****                                                                                   ^ not supported yet
    1813. 

  1813.   708  
    1814. 

  1814.   709      Graph.Line(365 DIV scale, 190 DIV scale, 415 DIV scale, 175 DIV scale, Cols[1]);
    1815. 

  1815. *****      ^ not supported yet
    1816. 

  1816. *****            ^ not supported yet
    1817. 

  1817. *****                                                                             ^ not supported yet
    1818. 

  1818. *****                                                                                   ^ not supported yet
    1819. 

  1819.   710      Graph.Line(415 DIV scale, 175 DIV scale, 415 DIV scale, 210 DIV scale, Cols[1]);
    1820. 

  1820. *****      ^ not supported yet
    1821. 

  1821. *****            ^ not supported yet
    1822. 

  1822. *****                                                                             ^ not supported yet
    1823. 

  1823. *****                                                                                   ^ not supported yet
    1824. 

  1824.   711      Graph.Line(415 DIV scale, 210 DIV scale, 365 DIV scale, 225 DIV scale, Cols[1]);
    1825. 

  1825. *****      ^ not supported yet
    1826. 

  1826. *****            ^ not supported yet
    1827. 

  1827. *****                                                                             ^ not supported yet
    1828. 

  1828. *****                                                                                   ^ not supported yet
    1829. 

  1829.   712      Graph.Line(365 DIV scale, 225 DIV scale, 365 DIV scale, 190 DIV scale, Cols[1]);
    1830. 

  1830. *****      ^ not supported yet
    1831. 

  1831. *****            ^ not supported yet
    1832. 

  1832. *****                                                                             ^ not supported yet
    1833. 

  1833. *****                                                                                   ^ not supported yet
    1834. 

  1834.   713      Graph.Line(365 DIV scale, 190 DIV scale, 415 DIV scale, 210 DIV scale, Cols[1]);
    1835. 

  1835. *****      ^ not supported yet
    1836. 

  1836. *****            ^ not supported yet
    1837. 

  1837. *****                                                                             ^ not supported yet
    1838. 

  1838. *****                                                                                   ^ not supported yet
    1839. 

  1839.   714  
    1840. 

  1840.   715      Graph.Line(225 DIV scale, 205 DIV scale, 270 DIV scale, 190 DIV scale, Cols[1]);
    1841. 

  1841. *****      ^ not supported yet
    1842. 

  1842. *****            ^ not supported yet
    1843. 

  1843. *****                                                                             ^ not supported yet
    1844. 

  1844. *****                                                                                   ^ not supported yet
    1845. 

  1845.   716      Graph.Line(225 DIV scale, 235 DIV scale, 270 DIV scale, 220 DIV scale, Cols[1]);
    1846. 

  1846. *****      ^ not supported yet
    1847. 

  1847. *****            ^ not supported yet
    1848. 

  1848. *****                                                                             ^ not supported yet
    1849. 

  1849. *****                                                                                   ^ not supported yet
    1850. 

  1850.   717      Graph.Line(180 DIV scale, 190 DIV scale, 225 DIV scale, 175 DIV scale, Cols[1]);
    1851. 

  1851. *****      ^ not supported yet
    1852. 

  1852. *****            ^ not supported yet
    1853. 

  1853. *****                                                                             ^ not supported yet
    1854. 

  1854. *****                                                                                   ^ not supported yet
    1855. 

  1855.   718  
    1856. 

  1856.   719      IF NOT Mono THEN
    1857. 

  1857.   720          Graph.FloodFill(250 DIV scale, 130 DIV scale, Cols[1], Cols[1]);
    1858. 

  1858. *****          ^ not supported yet
    1859. 

  1859. *****                ^ not supported yet
    1860. 

  1860. *****                                                        ^ not supported yet
    1861. 

  1861. *****                                                              ^ not supported yet
    1862. 

  1862. *****                                                                 ^ not supported yet
    1863. 

  1863. *****                                                                       ^ not supported yet
    1864. 

  1864.   721          Graph.FloodFill(230 DIV scale, 180 DIV scale, Cols[1], Cols[1]);
    1865. 

  1865. *****          ^ not supported yet
    1866. 

  1866. *****                ^ not supported yet
    1867. 

  1867. *****                                                        ^ not supported yet
    1868. 

  1868. *****                                                              ^ not supported yet
    1869. 

  1869. *****                                                                 ^ not supported yet
    1870. 

  1870. *****                                                                       ^ not supported yet
    1871. 

  1871.   722          Graph.FloodFill(260 DIV scale, 240 DIV scale, Cols[1], Cols[1]);
    1872. 

  1872. *****          ^ not supported yet
    1873. 

  1873. *****                ^ not supported yet
    1874. 

  1874. *****                                                        ^ not supported yet
    1875. 

  1875. *****                                                              ^ not supported yet
    1876. 

  1876. *****                                                                 ^ not supported yet
    1877. 

  1877. *****                                                                       ^ not supported yet
    1878. 

  1878.   723          Graph.FloodFill(380 DIV scale, 210 DIV scale, Cols[1], Cols[1]);
    1879. 

  1879. *****          ^ not supported yet
    1880. 

  1880. *****                ^ not supported yet
    1881. 

  1881. *****                                                        ^ not supported yet
    1882. 

  1882. *****                                                              ^ not supported yet
    1883. 

  1883. *****                                                                 ^ not supported yet
    1884. 

  1884. *****                                                                       ^ not supported yet
    1885. 

  1885.   724  
    1886. 

  1886.   725          Graph.FloodFill(200 DIV scale, 230 DIV scale, Cols[2], Cols[1]);
    1887. 

  1887. *****          ^ not supported yet
    1888. 

  1888. *****                ^ not supported yet
    1889. 

  1889. *****                                                        ^ not supported yet
    1890. 

  1890. *****                                                              ^ not supported yet
    1891. 

  1891. *****                                                                 ^ not supported yet
    1892. 

  1892. *****                                                                       ^ not supported yet
    1893. 

  1893.   726          Graph.FloodFill(250 DIV scale, 220 DIV scale, Cols[2], Cols[1]);
    1894. 

  1894. *****          ^ not supported yet
    1895. 

  1895. *****                ^ not supported yet
    1896. 

  1896. *****                                                        ^ not supported yet
    1897. 

  1897. *****                                                              ^ not supported yet
    1898. 

  1898. *****                                                                 ^ not supported yet
    1899. 

  1899. *****                                                                       ^ not supported yet
    1900. 

  1900.   727          Graph.FloodFill(400 DIV scale, 190 DIV scale, Cols[2], Cols[1]);
    1901. 

  1901. *****          ^ not supported yet
    1902. 

  1902. *****                ^ not supported yet
    1903. 

  1903. *****                                                        ^ not supported yet
    1904. 

  1904. *****                                                              ^ not supported yet
    1905. 

  1905. *****                                                                 ^ not supported yet
    1906. 

  1906. *****                                                                       ^ not supported yet
    1907. 

  1907.   728          Graph.FloodFill(440 DIV scale, 190 DIV scale, Cols[2], Cols[1]);
    1908. 

  1908. *****          ^ not supported yet
    1909. 

  1909. *****                ^ not supported yet
    1910. 

  1910. *****                                                        ^ not supported yet
    1911. 

  1911. *****                                                              ^ not supported yet
    1912. 

  1912. *****                                                                 ^ not supported yet
    1913. 

  1913. *****                                                                       ^ not supported yet
    1914. 

  1914.   729      END;
    1915. 

  1915.   730  END DrawLogo;
    1916. 

  1916. *****      ^ not supported yet
    1917. 

  1917.   731  
    1918. 

  1918.   732  PROCEDURE Rotate(Colors: ARRAY OF LONGCARD);
    1919. 

  1919. *****                                    ^ undeclared identifier
    1920. 

  1920.   733  
    1921. 

  1921.   734  VAR
    1922. 

  1922.   735      n: CARDINAL;
    1923. 

  1923.   736  BEGIN
    1924. 

  1924.   737      n:=0;
    1925. 

  1925.   738      Colors[15]:=Colors[0];
    1926. 

  1926. *****      ^ not supported yet
    1927. 

  1927. *****               ^ not supported yet
    1928. 

  1928. *****                  ^ not supported yet
    1929. 

  1929. *****                          ^ not supported yet
    1930. 

  1930.   739      WHILE n < 15 DO
    1931. 

  1931.   740          Colors[n]:=Colors[n+1];
    1932. 

  1932. *****          ^ not supported yet
    1933. 

  1933. *****                  ^ not supported yet
    1934. 

  1934. *****                     ^ not supported yet
    1935. 

  1935. *****                               ^ not supported yet
    1936. 

  1936.   741          INC(n);
    1937. 

  1937. *****          ^ undeclared identifier
    1938. 

  1938. *****               ^ not supported yet
    1939. 

  1939.   742      END;
    1940. 

  1940.   743  END Rotate;
    1941. 

  1941. *****      ^ not supported yet
    1942. 

  1942.   744  
    1943. 

  1943.   745  PROCEDURE CGAIntro();
    1944. 

  1944.   746  
    1945. 

  1945.   747  VAR
    1946. 

  1946.   748      c: SmallColorArray;
    1947. 

  1947. *****         ^ not supported yet
    1948. 

  1948.   749  BEGIN
    1949. 

  1949.   750      c:=SmallColorArray(1,2,3,4);
    1950. 

  1950. *****      ^ not supported yet
    1951. 

  1951. *****                                ^ not supported yet
    1952. 

  1952.   751      Graph.ClearScreen(Graph._GCLEARSCREEN);
    1953. 

  1953. *****      ^ not supported yet
    1954. 

  1954. *****            ^ not supported yet
    1955. 

  1955. *****                        ^ not supported yet
    1956. 

  1956. *****                              ^ not supported yet
    1957. 

  1957.   752      DrawLogo(2, c);
    1958. 

  1958. *****      ^ not supported yet
    1959. 

  1959. *****                  ^ not supported yet
    1960. 

  1960.   753      SYSTEM.Eval(Graph.SetTextPosition(4, 9));
    1961. 

  1961. *****      ^ not supported yet
    1962. 

  1962. *****             ^ not supported yet
    1963. 

  1963. *****                  ^ not supported yet
    1964. 

  1964. *****                        ^ not supported yet
    1965. 

  1965. *****                                            ^ not supported yet
    1966. 

  1966.   754      SYSTEM.Eval(Graph.SetTextColor(2));
    1967. 

  1967. *****      ^ not supported yet
    1968. 

  1968. *****             ^ not supported yet
    1969. 

  1969. *****                  ^ not supported yet
    1970. 

  1970. *****                        ^ not supported yet
    1971. 

  1971. *****                                      ^ not supported yet
    1972. 

  1972.   755      Graph.OutText('TopSpeed Modula-2  Graphics');
    1973. 

  1973. *****      ^ not supported yet
    1974. 

  1974. *****            ^ not supported yet
    1975. 

  1975. *****                    ^ not supported yet
    1976. 

  1976.   756      SYSTEM.Eval(Graph.SetTextPosition(25, 1));
    1977. 

  1977. *****      ^ not supported yet
    1978. 

  1978. *****             ^ not supported yet
    1979. 

  1979. *****                  ^ not supported yet
    1980. 

  1980. *****                        ^ not supported yet
    1981. 

  1981. *****                                             ^ not supported yet
    1982. 

  1982.   757      Graph.OutText('Press Any Key To Continue, X To Exit.');
    1983. 

  1983. *****      ^ not supported yet
    1984. 

  1984. *****            ^ not supported yet
    1985. 

  1985. *****                    ^ not supported yet
    1986. 

  1986.   758      TestKey;
    1987. 

  1987. *****      ^ not supported yet
    1988. 

  1988.   759  END CGAIntro;
    1989. 

  1989. *****      ^ not supported yet
    1990. 

  1990.   760  
    1991. 

  1991.   761  PROCEDURE EGAIntro();
    1992. 

  1992.   762  
    1993. 

  1993.   763  VAR
    1994. 

  1994.   764      n                   : INTEGER;
    1995. 

  1995.   765      c                   : SmallColorArray;
    1996. 

  1996. *****                            ^ not supported yet
    1997. 

  1997.   766  
    1998. 

  1998.   767    PROCEDURE GetKey():CHAR;
    1999. 

  1999.   768      VAR
    2000. 

  2000.   769        c                 : CHAR;
    2001. 

  2001.   770      BEGIN
    2002. 

  2002.   771        c := IO.RdKey();
    2003. 

  2003. *****             ^ not supported yet
    2004. 

  2004. *****                ^ not supported yet
    2005. 

  2005. *****                      ^ not supported yet
    2006. 

  2006.   772        IF CAP(c) = 'X' THEN
    2007. 

  2007. *****           ^ undeclared identifier
    2008. 

  2008. *****                ^ not supported yet
    2009. 

  2009.   773          SYSTEM.Eval(Graph.SetVideoMode(Graph._DEFAULTMODE));
    2010. 

  2010. *****          ^ not supported yet
    2011. 

  2011. *****                 ^ not supported yet
    2012. 

  2012. *****                      ^ not supported yet
    2013. 

  2013. *****                            ^ not supported yet
    2014. 

  2014. *****                                         ^ not supported yet
    2015. 

  2015. *****                                               ^ not supported yet
    2016. 

  2016.   774          HALT;
    2017. 

  2017. *****          ^ undeclared identifier
    2018. 

  2018.   775        END; (*IF*)
    2019. 

  2019.   776        RETURN c;
    2020. 

  2020.   777      END GetKey;
    2021. 

  2021. *****          ^ not supported yet
    2022. 

  2022.   778  
    2023. 

  2023.   779  BEGIN
    2024. 

  2024.   780      c:=SmallColorArray(9, 8, 15, 6);
    2025. 

  2025. *****      ^ not supported yet
    2026. 

  2026. *****                                    ^ not supported yet
    2027. 

  2027.   781      Graph.OutText('TopSpeed Modula-2 Graphics');
    2028. 

  2028. *****      ^ not supported yet
    2029. 

  2029. *****            ^ not supported yet
    2030. 

  2030. *****                    ^ not supported yet
    2031. 

  2031.   782      SYSTEM.Eval(Graph.SetActivePage(1));
    2032. 

  2032. *****      ^ not supported yet
    2033. 

  2033. *****             ^ not supported yet
    2034. 

  2034. *****                  ^ not supported yet
    2035. 

  2035. *****                        ^ not supported yet
    2036. 

  2036. *****                                       ^ not supported yet
    2037. 

  2037.   783      Graph.ClearScreen(Graph._GCLEARSCREEN);
    2038. 

  2038. *****      ^ not supported yet
    2039. 

  2039. *****            ^ not supported yet
    2040. 

  2040. *****                        ^ not supported yet
    2041. 

  2041. *****                              ^ not supported yet
    2042. 

  2042.   784      DrawLogo(1, c);
    2043. 

  2043. *****      ^ not supported yet
    2044. 

  2044. *****                  ^ not supported yet
    2045. 

  2045.   785      SYSTEM.Eval(Graph.SetTextPosition(4, 20));
    2046. 

  2046. *****      ^ not supported yet
    2047. 

  2047. *****             ^ not supported yet
    2048. 

  2048. *****                  ^ not supported yet
    2049. 

  2049. *****                        ^ not supported yet
    2050. 

  2050. *****                                             ^ not supported yet
    2051. 

  2051.   786      SYSTEM.Eval(Graph.SetTextColor(4));
    2052. 

  2052. *****      ^ not supported yet
    2053. 

  2053. *****             ^ not supported yet
    2054. 

  2054. *****                  ^ not supported yet
    2055. 

  2055. *****                        ^ not supported yet
    2056. 

  2056. *****                                      ^ not supported yet
    2057. 

  2057.   787      Graph.OutText('TopSpeed  Modula-2  Graphics  Library  Demo');
    2058. 

  2058. *****      ^ not supported yet
    2059. 

  2059. *****            ^ not supported yet
    2060. 

  2060. *****                    ^ not supported yet
    2061. 

  2061.   788      SYSTEM.Eval(Graph.SetVisualPage(1));
    2062. 

  2062. *****      ^ not supported yet
    2063. 

  2063. *****             ^ not supported yet
    2064. 

  2064. *****                  ^ not supported yet
    2065. 

  2065. *****                        ^ not supported yet
    2066. 

  2066. *****                                       ^ not supported yet
    2067. 

  2067.   789      SYSTEM.Eval(Graph.SetTextColor(10));
    2068. 

  2068. *****      ^ not supported yet
    2069. 

  2069. *****             ^ not supported yet
    2070. 

  2070. *****                  ^ not supported yet
    2071. 

  2071. *****                        ^ not supported yet
    2072. 

  2072. *****                                       ^ not supported yet
    2073. 

  2073.   790      SYSTEM.Eval(Graph.SetTextPosition(25, 23));
    2074. 

  2074. *****      ^ not supported yet
    2075. 

  2075. *****             ^ not supported yet
    2076. 

  2076. *****                  ^ not supported yet
    2077. 

  2077. *****                        ^ not supported yet
    2078. 

  2078. *****                                              ^ not supported yet
    2079. 

  2079.   791      Graph.OutText('Press Any Key To Continue, X To Exit');
    2080. 

  2080. *****      ^ not supported yet
    2081. 

  2081. *****            ^ not supported yet
    2082. 

  2082. *****                    ^ not supported yet
    2083. 

  2083.   792      IF CAP(GetKey()) = 'C' THEN
    2084. 

  2084. *****         ^ undeclared identifier
    2085. 

  2085. *****             ^ not supported yet
    2086. 

  2086. *****                    ^ not supported yet
    2087. 

  2087.   793          n:=1;
    2088. 

  2088.   794          WHILE NOT IO.KeyPressed() DO
    2089. 

  2089. *****                    ^ not supported yet
    2090. 

  2090. *****                       ^ not supported yet
    2091. 

  2091. *****                                  ^ not supported yet
    2092. 

  2092.   795              SYSTEM.Eval(Graph.RemapPalette(6, Colors[(6+n) MOD 16]));
    2093. 

  2093. *****              ^ not supported yet
    2094. 

  2094. *****                     ^ not supported yet
    2095. 

  2095. *****                          ^ not supported yet
    2096. 

  2096. *****                                ^ not supported yet
    2097. 

  2097. *****                                                                   ^ not supported yet
    2098. 

  2098.   796              SYSTEM.Eval(Graph.RemapPalette(8, Colors[(8+n) MOD 16]));
    2099. 

  2099. *****              ^ not supported yet
    2100. 

  2100. *****                     ^ not supported yet
    2101. 

  2101. *****                          ^ not supported yet
    2102. 

  2102. *****                                ^ not supported yet
    2103. 

  2103. *****                                                                   ^ not supported yet
    2104. 

  2104.   797              SYSTEM.Eval(Graph.RemapPalette(9, Colors[(9+n) MOD 16]));
    2105. 

  2105. *****              ^ not supported yet
    2106. 

  2106. *****                     ^ not supported yet
    2107. 

  2107. *****                          ^ not supported yet
    2108. 

  2108. *****                                ^ not supported yet
    2109. 

  2109. *****                                                                   ^ not supported yet
    2110. 

  2110.   798              SYSTEM.Eval(Graph.RemapPalette(15, Colors[(15+n) MOD 16]));
    2111. 

  2111. *****              ^ not supported yet
    2112. 

  2112. *****                     ^ not supported yet
    2113. 

  2113. *****                          ^ not supported yet
    2114. 

  2114. *****                                ^ not supported yet
    2115. 

  2115. *****                                                                     ^ not supported yet
    2116. 

  2116.   799              Lib.Delay(100);
    2117. 

  2117. *****              ^ not supported yet
    2118. 

  2118. *****                  ^ not supported yet
    2119. 

  2119. *****                           ^ not supported yet
    2120. 

  2120.   800              INC(n);
    2121. 

  2121. *****              ^ undeclared identifier
    2122. 

  2122. *****                   ^ not supported yet
    2123. 

  2123.   801          END;
    2124. 

  2124.   802          SYSTEM.Eval(IO.RdKey());
    2125. 

  2125. *****          ^ not supported yet
    2126. 

  2126. *****                 ^ not supported yet
    2127. 

  2127. *****                      ^ not supported yet
    2128. 

  2128. *****                         ^ not supported yet
    2129. 

  2129. *****                               ^ not supported yet
    2130. 

  2130.   803          WHILE NOT IO.KeyPressed() DO
    2131. 

  2131. *****                    ^ not supported yet
    2132. 

  2132. *****                       ^ not supported yet
    2133. 

  2133. *****                                  ^ not supported yet
    2134. 

  2134.   804              SYSTEM.Eval(Graph.RemapAllPalette(Colors));
    2135. 

  2135. *****              ^ not supported yet
    2136. 

  2136. *****                     ^ not supported yet
    2137. 

  2137. *****                          ^ not supported yet
    2138. 

  2138. *****                                ^ not supported yet
    2139. 

  2139. *****                                                      ^ not supported yet
    2140. 

  2140.   805              Lib.Delay(1000);
    2141. 

  2141. *****              ^ not supported yet
    2142. 

  2142. *****                  ^ not supported yet
    2143. 

  2143. *****                            ^ not supported yet
    2144. 

  2144.   806              Rotate(Colors);
    2145. 

  2145. *****              ^ not supported yet
    2146. 

  2146. *****                           ^ not supported yet
    2147. 

  2147.   807          END;
    2148. 

  2148.   808          SYSTEM.Eval(IO.RdKey());
    2149. 

  2149. *****          ^ not supported yet
    2150. 

  2150. *****                 ^ not supported yet
    2151. 

  2151. *****                      ^ not supported yet
    2152. 

  2152. *****                         ^ not supported yet
    2153. 

  2153. *****                               ^ not supported yet
    2154. 

  2154.   809      END;
    2155. 

  2155.   810      SYSTEM.Eval(Graph.SetActivePage(0));
    2156. 

  2156. *****      ^ not supported yet
    2157. 

  2157. *****             ^ not supported yet
    2158. 

  2158. *****                  ^ not supported yet
    2159. 

  2159. *****                        ^ not supported yet
    2160. 

  2160. *****                                       ^ not supported yet
    2161. 

  2161.   811      SYSTEM.Eval(Graph.SetVisualPage(0));
    2162. 

  2162. *****      ^ not supported yet
    2163. 

  2163. *****             ^ not supported yet
    2164. 

  2164. *****                  ^ not supported yet
    2165. 

  2165. *****                        ^ not supported yet
    2166. 

  2166. *****                                       ^ not supported yet
    2167. 

  2167.   812      Graph.ClearScreen(Graph._GCLEARSCREEN);
    2168. 

  2168. *****      ^ not supported yet
    2169. 

  2169. *****            ^ not supported yet
    2170. 

  2170. *****                        ^ not supported yet
    2171. 

  2171. *****                              ^ not supported yet
    2172. 

  2172.   813  END EGAIntro;
    2173. 

  2173. *****      ^ not supported yet
    2174. 

  2174.   814  
    2175. 

  2175.   815  PROCEDURE HercIntro();
    2176. 

  2176.   816  
    2177. 

  2177.   817  VAR
    2178. 

  2178.   818      c: SmallColorArray;
    2179. 

  2179. *****         ^ not supported yet
    2180. 

  2180.   819  BEGIN
    2181. 

  2181.   820      c:=SmallColorArray(1, 1, 1, 1);
    2182. 

  2182. *****      ^ not supported yet
    2183. 

  2183. *****                                   ^ not supported yet
    2184. 

  2184.   821      Graph.ClearScreen(Graph._GCLEARSCREEN);
    2185. 

  2185. *****      ^ not supported yet
    2186. 

  2186. *****            ^ not supported yet
    2187. 

  2187. *****                        ^ not supported yet
    2188. 

  2188. *****                              ^ not supported yet
    2189. 

  2189.   822      DrawLogo(1, c);
    2190. 

  2190. *****      ^ not supported yet
    2191. 

  2191. *****                  ^ not supported yet
    2192. 

  2192.   823      TestKey;
    2193. 

  2193. *****      ^ not supported yet
    2194. 

  2194.   824      Graph.ClearScreen(Graph._GCLEARSCREEN);
    2195. 

  2195. *****      ^ not supported yet
    2196. 

  2196. *****            ^ not supported yet
    2197. 

  2197. *****                        ^ not supported yet
    2198. 

  2198. *****                              ^ not supported yet
    2199. 

  2199.   825  END HercIntro;
    2200. 

  2200. *****      ^ not supported yet
    2201. 

  2201.   826  
    2202. 

  2202.   827  PROCEDURE HercDemo();
    2203. 

  2203.   828  
    2204. 

  2204.   829  
    2205. 

  2205.   830  BEGIN
    2206. 

  2206.   831      SYSTEM.Eval(Graph.SetVideoMode(Graph._HERCMONO));
    2207. 

  2207. *****      ^ not supported yet
    2208. 

  2208. *****             ^ not supported yet
    2209. 

  2209. *****                  ^ not supported yet
    2210. 

  2210. *****                        ^ not supported yet
    2211. 

  2211. *****                                     ^ not supported yet
    2212. 

  2212. *****                                           ^ not supported yet
    2213. 

  2213.   832      Graph.GetVideoConfig(cv);
    2214. 

  2214. *****      ^ not supported yet
    2215. 

  2215. *****            ^ not supported yet
    2216. 

  2216. *****                           ^ not supported yet
    2217. 

  2217.   833      HercIntro();
    2218. 

  2218. *****      ^ not supported yet
    2219. 

  2219. *****                ^ not supported yet
    2220. 

  2220.   834      Ellipses(1);
    2221. 

  2221. *****      ^ not supported yet
    2222. 

  2222. *****                ^ not supported yet
    2223. 

  2223.   835      DrawLines();
    2224. 

  2224. *****      ^ not supported yet
    2225. 

  2225. *****                ^ not supported yet
    2226. 

  2226.   836      Animation(Graph._HGC);
    2227. 

  2227. *****      ^ not supported yet
    2228. 

  2228. *****                ^ not supported yet
    2229. 

  2229. *****                      ^ not supported yet
    2230. 

  2230.   837      Pies(1);
    2231. 

  2231. *****      ^ not supported yet
    2232. 

  2232. *****            ^ not supported yet
    2233. 

  2233.   838      Bars(1);
    2234. 

  2234. *****      ^ not supported yet
    2235. 

  2235. *****            ^ not supported yet
    2236. 

  2236.   839  END HercDemo;
    2237. 

  2237. *****      ^ not supported yet
    2238. 

  2238.   840  
    2239. 

  2239.   841  PROCEDURE EGADemo();
    2240. 

  2240.   842  
    2241. 

  2241.   843  BEGIN
    2242. 

  2242.   844      SYSTEM.Eval(Graph.SetVideoMode(Graph._ERESCOLOR));
    2243. 

  2243. *****      ^ not supported yet
    2244. 

  2244. *****             ^ not supported yet
    2245. 

  2245. *****                  ^ not supported yet
    2246. 

  2246. *****                        ^ not supported yet
    2247. 

  2247. *****                                     ^ not supported yet
    2248. 

  2248. *****                                           ^ not supported yet
    2249. 

  2249.   845      Graph.GetVideoConfig(cv);
    2250. 

  2250. *****      ^ not supported yet
    2251. 

  2251. *****            ^ not supported yet
    2252. 

  2252. *****                           ^ not supported yet
    2253. 

  2253.   846      EGAIntro();
    2254. 

  2254. *****      ^ not supported yet
    2255. 

  2255. *****               ^ not supported yet
    2256. 

  2256.   847      Ellipses(1);
    2257. 

  2257. *****      ^ not supported yet
    2258. 

  2258. *****                ^ not supported yet
    2259. 

  2259.   848      DrawLines();
    2260. 

  2260. *****      ^ not supported yet
    2261. 

  2261. *****                ^ not supported yet
    2262. 

  2262.   849      Animation(Graph._EGA);
    2263. 

  2263. *****      ^ not supported yet
    2264. 

  2264. *****                ^ not supported yet
    2265. 

  2265. *****                      ^ not supported yet
    2266. 

  2266.   850      Pies(1);
    2267. 

  2267. *****      ^ not supported yet
    2268. 

  2268. *****            ^ not supported yet
    2269. 

  2269.   851      Bars(1);
    2270. 

  2270. *****      ^ not supported yet
    2271. 

  2271. *****            ^ not supported yet
    2272. 

  2272.   852  END EGADemo;
    2273. 

  2273. *****      ^ not supported yet
    2274. 

  2274.   853  
    2275. 

  2275.   854  PROCEDURE VGADemo();
    2276. 

  2276.   855  
    2277. 

  2277.   856  BEGIN
    2278. 

  2278.   857      SYSTEM.Eval(Graph.SetVideoMode(Graph._ERESCOLOR));
    2279. 

  2279. *****      ^ not supported yet
    2280. 

  2280. *****             ^ not supported yet
    2281. 

  2281. *****                  ^ not supported yet
    2282. 

  2282. *****                        ^ not supported yet
    2283. 

  2283. *****                                     ^ not supported yet
    2284. 

  2284. *****                                           ^ not supported yet
    2285. 

  2285.   858      Graph.GetVideoConfig(cv);
    2286. 

  2286. *****      ^ not supported yet
    2287. 

  2287. *****            ^ not supported yet
    2288. 

  2288. *****                           ^ not supported yet
    2289. 

  2289.   859      EGAIntro();
    2290. 

  2290. *****      ^ not supported yet
    2291. 

  2291. *****               ^ not supported yet
    2292. 

  2292.   860      VGATriangle();
    2293. 

  2293. *****      ^ not supported yet
    2294. 

  2294. *****                  ^ not supported yet
    2295. 

  2295.   861      Ellipses(1);
    2296. 

  2296. *****      ^ not supported yet
    2297. 

  2297. *****                ^ not supported yet
    2298. 

  2298.   862      DrawLines();
    2299. 

  2299. *****      ^ not supported yet
    2300. 

  2300. *****                ^ not supported yet
    2301. 

  2301.   863      Animation(Graph._EGA);
    2302. 

  2302. *****      ^ not supported yet
    2303. 

  2303. *****                ^ not supported yet
    2304. 

  2304. *****                      ^ not supported yet
    2305. 

  2305.   864      Pies(1);
    2306. 

  2306. *****      ^ not supported yet
    2307. 

  2307. *****            ^ not supported yet
    2308. 

  2308.   865      Bars(1);
    2309. 

  2309. *****      ^ not supported yet
    2310. 

  2310. *****            ^ not supported yet
    2311. 

  2311.   866  END VGADemo;
    2312. 

  2312. *****      ^ not supported yet
    2313. 

  2313.   867  
    2314. 

  2314.   868  PROCEDURE CGADemo();
    2315. 

  2315.   869  
    2316. 

  2316.   870  BEGIN
    2317. 

  2317.   871      SYSTEM.Eval(Graph.SetVideoMode(Graph._MRES4COLOR));
    2318. 

  2318. *****      ^ not supported yet
    2319. 

  2319. *****             ^ not supported yet
    2320. 

  2320. *****                  ^ not supported yet
    2321. 

  2321. *****                        ^ not supported yet
    2322. 

  2322. *****                                     ^ not supported yet
    2323. 

  2323. *****                                           ^ not supported yet
    2324. 

  2324.   872      Graph.GetVideoConfig(cv);
    2325. 

  2325. *****      ^ not supported yet
    2326. 

  2326. *****            ^ not supported yet
    2327. 

  2327. *****                           ^ not supported yet
    2328. 

  2328.   873      CGAIntro();
    2329. 

  2329. *****      ^ not supported yet
    2330. 

  2330. *****               ^ not supported yet
    2331. 

  2331.   874      Ellipses(2);
    2332. 

  2332. *****      ^ not supported yet
    2333. 

  2333. *****                ^ not supported yet
    2334. 

  2334.   875      DrawLines();
    2335. 

  2335. *****      ^ not supported yet
    2336. 

  2336. *****                ^ not supported yet
    2337. 

  2337.   876      Animation(Graph._CGA);
    2338. 

  2338. *****      ^ not supported yet
    2339. 

  2339. *****                ^ not supported yet
    2340. 

  2340. *****                      ^ not supported yet
    2341. 

  2341.   877      Pies(2);
    2342. 

  2342. *****      ^ not supported yet
    2343. 

  2343. *****            ^ not supported yet
    2344. 

  2344.   878      Bars(2);
    2345. 

  2345. *****      ^ not supported yet
    2346. 

  2346. *****            ^ not supported yet
    2347. 

  2347.   879  END CGADemo;
    2348. 

  2348. *****      ^ not supported yet
    2349. 

  2349.   880  
    2350. 

  2350.   881  
    2351. 

  2351.   882  BEGIN
    2352. 

  2352.   883      Mono := FALSE;
    2353. 

  2353.   884      Graph.GetVideoConfig(cv);
    2354. 

  2354. *****      ^ not supported yet
    2355. 

  2355. *****            ^ not supported yet
    2356. 

  2356. *****                           ^ not supported yet
    2357. 

  2357.   885      CASE cv.adapter OF
    2358. 

  2358. *****           ^ not supported yet
    2359. 

  2359. *****              ^ not supported yet
    2360. 

  2360.   886          |  Graph._HGC :
    2361. 

  2361. *****             ^ not supported yet
    2362. 

  2362. *****                   ^ not supported yet
    2363. 

  2363.   887              Mono:= TRUE;
    2364. 

  2364.   888              HercDemo();
    2365. 

  2365. *****              ^ not supported yet
    2366. 

  2366. *****                       ^ not supported yet
    2367. 

  2367.   889          | Graph._MDPA :
    2368. 

  2368. *****            ^ not supported yet
    2369. 

  2369. *****                  ^ not supported yet
    2370. 

  2370.   890              IO.WrStr('A Color Graphics Card Is Not Installed');
    2371. 

  2371. *****              ^ not supported yet
    2372. 

  2372. *****                 ^ not supported yet
    2373. 

  2373. *****                       ^ not supported yet
    2374. 

  2374.   891              IO.WrLn();
    2375. 

  2375. *****              ^ not supported yet
    2376. 

  2376. *****                 ^ not supported yet
    2377. 

  2377. *****                      ^ not supported yet
    2378. 

  2378.   892              HALT;
    2379. 

  2379. *****              ^ undeclared identifier
    2380. 

  2380.   893          | Graph._CGA, Graph._MCGA :
    2381. 

  2381. *****            ^ not supported yet
    2382. 

  2382. *****                  ^ not supported yet
    2383. 

  2383. *****                        ^ not supported yet
    2384. 

  2384. *****                              ^ not supported yet
    2385. 

  2385.   894              CGADemo();
    2386. 

  2386. *****              ^ not supported yet
    2387. 

  2387. *****                      ^ not supported yet
    2388. 

  2388.   895          | Graph._VGA :
    2389. 

  2389. *****            ^ not supported yet
    2390. 

  2390. *****                  ^ not supported yet
    2391. 

  2391.   896              VGADemo();
    2392. 

  2392. *****              ^ not supported yet
    2393. 

  2393. *****                      ^ not supported yet
    2394. 

  2394.   897          | Graph._EGA :
    2395. 

  2395. *****            ^ not supported yet
    2396. 

  2396. *****                  ^ not supported yet
    2397. 

  2397.   898              EGADemo();
    2398. 

  2398. *****              ^ not supported yet
    2399. 

  2399. *****                      ^ not supported yet
    2400. 

  2400.   899          ELSE
    2401. 

  2401.   900              IO.WrStr('Graphics Card Not Supported');
    2402. 

  2402. *****              ^ not supported yet
    2403. 

  2403. *****                 ^ not supported yet
    2404. 

  2404. *****                       ^ not supported yet
    2405. 

  2405.   901              IO.WrLn();
    2406. 

  2406. *****              ^ not supported yet
    2407. 

  2407. *****                 ^ not supported yet
    2408. 

  2408. *****                      ^ not supported yet
    2409. 

  2409.   902              HALT;
    2410. 

  2410. *****              ^ undeclared identifier
    2411. 

  2411.   903      END;
    2412. 

  2412.   904      SYSTEM.Eval(Graph.SetVideoMode(Graph._DEFAULTMODE));
    2413. 

  2413. *****      ^ not supported yet
    2414. 

  2414. *****             ^ not supported yet
    2415. 

  2415. *****                  ^ not supported yet
    2416. 

  2416. *****                        ^ not supported yet
    2417. 

  2417. *****                                     ^ not supported yet
    2418. 

  2418. *****                                           ^ not supported yet
    2419. 

  2419.   905  END MGdemo.
    2420. 

  2420. 

  2421.  1512 errors
    2422. 

  2422. 

  2423.