[clr-ci] SF.net SVN: colorer:[1941] trunk/schemes/hrc/test/_valid

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Revision: 1941
          http://sourceforge.net/p/colorer/svn/1941
Author:   ctapmex
Date:     2013-04-15 04:16:02 +0000 (Mon, 15 Apr 2013)
Log Message:
-----------
update test

Modified Paths:
--------------
    trunk/schemes/hrc/test/_valid/cpp/full/colorer.cpp.html
    trunk/schemes/hrc/test/_valid/other/modula2/full/mod.graph.mod.html
    trunk/schemes/hrc/test/_valid/other/modula2/full/mod.mod.html
    trunk/schemes/hrc/test/_valid/other/modula2/full/mod.window.mod.html
    trunk/schemes/hrc/test/_valid/other/modula2/mod.ovl.mod.html

Modified: trunk/schemes/hrc/test/_valid/cpp/full/colorer.cpp.html
===================================================================

--- trunk/schemes/hrc/test/_valid/cpp/full/colorer.cpp.html	2013-03-29 11:41:58 UTC (rev 1940)
+++ trunk/schemes/hrc/test/_valid/cpp/full/colorer.cpp.html	2013-04-15 04:16:02 UTC (rev 1941)
@@ -794,7 +794,7 @@
  793:   <span class='c-KeywordWin32 c-KeywordLibFunctions def-FunctionKeyword def-Keyword'>GetConsoleScreenBufferInfo</span><span class='c-Symbol def-Symbol'>(</span>hCon<span class='c-Symbol def-Symbol'>,</span> <span class='c-Symbol def-Symbol'>&amp;</span>csbi<span class='c-Symbol def-Symbol'>)</span><span class='c-StructureSymbol def-SymbolStrong def-Symbol'>;</span>
  794: 
  795: <span class='c-PreprocPref def-DirectiveEdge def-DirectiveContent def-Directive'>#</span><span class='c-PreprocWord def-Directive'>ifndef</span><span class='c-Preproc def-DirectiveContent def-Directive'> __DPMI32__</span>
- 796:   hCon <span class='c-Symbol def-Symbol'>=</span> <span class='c-KeywordWin32 c-KeywordLibFunctions def-FunctionKeyword def-Keyword'>CreateConsoleScreenBuffer</span><span class='c-Symbol def-Symbol'>(</span>GENERIC_WRITE<span class='c-Symbol def-Symbol'>,</span> <span class='def-NumberDec def-Number'>0</span><span class='c-Symbol def-Symbol'>,</span> <span class='def-NumberDec def-Number'>0</span><span class='c-Symbol def-Symbol'>,</span> CONSOLE_TEXTMODE_BUFFER<span class='c-Symbol def-Symbol'>,</span> <span class='def-NumberDec def-Number'>0</span><span class='c-Symbol def-Symbol'>)</span><span class='c-StructureSymbol def-SymbolStrong def-Symbol'>;</span>
+ 796:   hCon <span class='c-Symbol def-Symbol'>=</span> <span class='c-KeywordWin32 c-KeywordLibFunctions def-FunctionKeyword def-Keyword'>CreateConsoleScreenBuffer</span><span class='c-Symbol def-Symbol'>(</span><span class='c-KeywordConstant def-Constant def-Keyword'>GENERIC_WRITE</span><span class='c-Symbol def-Symbol'>,</span> <span class='def-NumberDec def-Number'>0</span><span class='c-Symbol def-Symbol'>,</span> <span class='def-NumberDec def-Number'>0</span><span class='c-Symbol def-Symbol'>,</span> CONSOLE_TEXTMODE_BUFFER<span class='c-Symbol def-Symbol'>,</span> <span class='def-NumberDec def-Number'>0</span><span class='c-Symbol def-Symbol'>)</span><span class='c-StructureSymbol def-SymbolStrong def-Symbol'>;</span>
  797:   <span class='c-KeywordWin32 c-KeywordLibFunctions def-FunctionKeyword def-Keyword'>SetConsoleActiveScreenBuffer</span><span class='c-Symbol def-Symbol'>(</span>hCon<span class='c-Symbol def-Symbol'>)</span><span class='c-StructureSymbol def-SymbolStrong def-Symbol'>;</span>
  798: <span class='c-PreprocPref def-DirectiveEdge def-DirectiveContent def-Directive'>#</span><span class='c-PreprocWord def-Directive'>endif</span>
  799:   <span class='c-KeywordWin32 c-KeywordLibFunctions def-FunctionKeyword def-Keyword'>SetConsoleMode</span><span class='c-Symbol def-Symbol'>(</span>hConI<span class='c-Symbol def-Symbol'>,</span>ENABLE_WINDOW_INPUT<span class='c-Symbol def-Symbol'>|</span>ENABLE_MOUSE_INPUT<span class='c-Symbol def-Symbol'>)</span><span class='c-StructureSymbol def-SymbolStrong def-Symbol'>;</span>

Modified: trunk/schemes/hrc/test/_valid/other/modula2/full/mod.graph.mod.html
===================================================================
--- trunk/schemes/hrc/test/_valid/other/modula2/full/mod.graph.mod.html	2013-03-29 11:41:58 UTC (rev 1940)
+++ trunk/schemes/hrc/test/_valid/other/modula2/full/mod.graph.mod.html	2013-04-15 04:16:02 UTC (rev 1941)
@@ -1,8 +1,8 @@
-  0: <span class='def-Comment def-Syntax'>(* Copyright (C) 1987 Jensen &amp; Partners International *)</span>
+  0: <span class='modula2-Comment def-Comment def-Syntax'>(* Copyright (C) 1987 Jensen &amp; Partners International *)</span>
   1: 
-  2: <span class='def-Comment def-Syntax'>(*$N,V-,I-,R-,A-,S-*)</span>
+  2: <span class='modula2-Comment def-Comment def-Syntax'>(*$N,V-,I-,R-,A-,S-*)</span>
   3: <span class='modula2-Keyword def-Keyword'>IMPLEMENTATION</span> <span class='modula2-Keyword def-Keyword'>MODULE</span> Graph<span class='modula2-Symbol def-Symbol'>;</span>
-  4: <span class='modula2-Keyword def-Keyword'>IMPORT</span> Lib<span class='modula2-Symbol def-Symbol'>,</span> <span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Symbol def-Symbol'>;</span>
+  4: <span class='modula2-Keyword def-Keyword'>IMPORT</span> Lib<span class='modula2-Symbol def-Symbol'>,</span> <span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Symbol def-Symbol'>;</span>
   5: 
   6: <span class='modula2-Keyword def-Keyword'>TYPE</span>
   7:   tinyint      <span class='modula2-Symbol def-Symbol'>=</span> <span class='modula2-Symbol def-Symbol'>[</span><span class='modula2-Number def-Number'>0..7</span><span class='modula2-Symbol def-Symbol'>]</span><span class='modula2-Symbol def-Symbol'>;</span>
@@ -18,70 +18,70 @@
  17:   EGAScreen <span class='modula2-Symbol def-Symbol'>[</span><span class='modula2-Number def-Number'>0A000H</span><span class='modula2-Symbol def-Symbol'>:</span><span class='modula2-Number def-Number'>0</span><span class='modula2-Symbol def-Symbol'>]</span> <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>ARRAY</span><span class='modula2-Symbol def-Symbol'>[</span><span class='modula2-Number def-Number'>0..0</span><span class='modula2-Symbol def-Symbol'>]</span> <span class='modula2-Keyword def-Keyword'>OF</span> bs<span class='modula2-Symbol def-Symbol'>;</span>
  18: 
  19: 
- 20: <span class='def-Comment def-Syntax'>(* == CGA specific routines == *)</span>
+ 20: <span class='modula2-Comment def-Comment def-Syntax'>(* == CGA specific routines == *)</span>
  21: 
  22: 
  23: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> CGAGraphMode<span class='modula2-Symbol def-Symbol'>;</span>
- 24: <span class='modula2-Keyword def-Keyword'>VAR</span> r <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Registers<span class='modula2-Symbol def-Symbol'>;</span>
+ 24: <span class='modula2-Keyword def-Keyword'>VAR</span> r <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Registers<span class='modula2-Symbol def-Symbol'>;</span>
  25: <span class='modula2-Symbol def-Symbol'>BEGIN</span>
  26:   r<span class='modula2-Number def-Number'>.</span>AX <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>5</span><span class='modula2-Symbol def-Symbol'>;</span>
  27:   Lib<span class='modula2-Number def-Number'>.</span>Intr<span class='modula2-Symbol def-Symbol'>(</span> r<span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>10H</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
  28: <span class='modula2-Symbol def-Symbol'>END</span> CGAGraphMode<span class='modula2-Symbol def-Symbol'>;</span>
  29: 
  30: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> CGATextMode<span class='modula2-Symbol def-Symbol'>;</span>
- 31: <span class='modula2-Keyword def-Keyword'>VAR</span> r <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Registers<span class='modula2-Symbol def-Symbol'>;</span>
+ 31: <span class='modula2-Keyword def-Keyword'>VAR</span> r <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Registers<span class='modula2-Symbol def-Symbol'>;</span>
  32: <span class='modula2-Symbol def-Symbol'>BEGIN</span>
  33:   r<span class='modula2-Number def-Number'>.</span>AX <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>3</span><span class='modula2-Symbol def-Symbol'>;</span>
  34:   Lib<span class='modula2-Number def-Number'>.</span>Intr<span class='modula2-Symbol def-Symbol'>(</span> r<span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>10H</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
  35: <span class='modula2-Symbol def-Symbol'>END</span> CGATextMode<span class='modula2-Symbol def-Symbol'>;</span>
  36: 
- 37: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> CGAPlot<span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>,</span>y<span class='modula2-Symbol def-Symbol'>:</span><span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>c<span class='modula2-Symbol def-Symbol'>:</span><span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 37: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> CGAPlot<span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>,</span>y<span class='modula2-Symbol def-Symbol'>:</span><span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>c<span class='modula2-Symbol def-Symbol'>:</span><span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
  38: <span class='modula2-Keyword def-Keyword'>VAR</span>
- 39:   off <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
- 40:   seg <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
- 41:   tmp <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 39:   off <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 40:   seg <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 41:   tmp <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
  42: <span class='modula2-Symbol def-Symbol'>BEGIN</span>
  43:   <span class='modula2-Symbol def-Symbol'>IF</span> <span class='modula2-Symbol def-Symbol'>(</span>x <span class='modula2-Symbol def-Symbol'>>=</span> CGAWidth<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>OR</span> <span class='modula2-Symbol def-Symbol'>(</span>y <span class='modula2-Symbol def-Symbol'>>=</span> CGADepth<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>THEN</span> <span class='modula2-Keyword def-Keyword'>RETURN</span> <span class='modula2-Symbol def-Symbol'>END</span><span class='modula2-Symbol def-Symbol'>;</span>
  44:   off <span class='modula2-Symbol def-Symbol'>:=</span> x <span class='modula2-Symbol def-Symbol'>></span><span class='modula2-Symbol def-Symbol'>></span> <span class='modula2-Number def-Number'>2</span><span class='modula2-Symbol def-Symbol'>;</span>
  45:   <span class='modula2-Symbol def-Symbol'>IF</span> ODD<span class='modula2-Symbol def-Symbol'>(</span>y<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>THEN</span> INC<span class='modula2-Symbol def-Symbol'>(</span> off<span class='modula2-Symbol def-Symbol'>,</span> <span class='modula2-Number def-Number'>2000H</span> <span class='modula2-Symbol def-Symbol'>-</span> <span class='modula2-Number def-Number'>40</span> <span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>END</span><span class='modula2-Symbol def-Symbol'>;</span>
  46:   INC<span class='modula2-Symbol def-Symbol'>(</span> y<span class='modula2-Symbol def-Symbol'>,</span> y <span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Number def-Number'>2</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
  47:   INC<span class='modula2-Symbol def-Symbol'>(</span> off<span class='modula2-Symbol def-Symbol'>,</span> y <span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Number def-Number'>3</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
- 48:   x <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>3</span> <span class='modula2-Symbol def-Symbol'>-</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>(</span> BITSET<span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>*</span> BITSET<span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Number def-Number'>3</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 48:   x <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>3</span> <span class='modula2-Symbol def-Symbol'>-</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>(</span> <span class='def-TypeKeyword def-Keyword'>BITSET</span><span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>*</span> <span class='def-TypeKeyword def-Keyword'>BITSET</span><span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Number def-Number'>3</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
  49:   x <span class='modula2-Symbol def-Symbol'>:=</span> x <span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Number def-Number'>1</span><span class='modula2-Symbol def-Symbol'>;</span>
  50:   tmp <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>0B800H</span><span class='modula2-Symbol def-Symbol'>;</span> seg <span class='modula2-Symbol def-Symbol'>:=</span> tmp<span class='modula2-Symbol def-Symbol'>;</span>
  51:   <span class='modula2-Symbol def-Symbol'>[</span>seg<span class='modula2-Symbol def-Symbol'>:</span>off bp<span class='modula2-Symbol def-Symbol'>]</span><span class='modula2-Symbol def-Symbol'>^</span> <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Symbol def-Symbol'>[</span>seg<span class='modula2-Symbol def-Symbol'>:</span>off bp<span class='modula2-Symbol def-Symbol'>]</span><span class='modula2-Symbol def-Symbol'>^</span> <span class='modula2-Symbol def-Symbol'>-</span> bs<span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Number def-Number'>3</span><span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>+</span> bs<span class='modula2-Symbol def-Symbol'>(</span>c<span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span>x<span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
  52: <span class='modula2-Symbol def-Symbol'>END</span> CGAPlot<span class='modula2-Symbol def-Symbol'>;</span>
  53: 
- 54: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> CGAPoint<span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>,</span>y<span class='modula2-Symbol def-Symbol'>:</span><span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 54: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> CGAPoint<span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>,</span>y<span class='modula2-Symbol def-Symbol'>:</span><span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
  55: <span class='modula2-Keyword def-Keyword'>VAR</span>
- 56:   off <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
- 57:   seg <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
- 58:   tmp <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 56:   off <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 57:   seg <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 58:   tmp <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
  59: <span class='modula2-Symbol def-Symbol'>BEGIN</span>
- 60:   <span class='modula2-Symbol def-Symbol'>IF</span> <span class='modula2-Symbol def-Symbol'>(</span>x <span class='modula2-Symbol def-Symbol'>>=</span> CGAWidth<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>OR</span> <span class='modula2-Symbol def-Symbol'>(</span>y <span class='modula2-Symbol def-Symbol'>>=</span> CGADepth<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>THEN</span> <span class='modula2-Keyword def-Keyword'>RETURN</span> MAX<span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>END</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 60:   <span class='modula2-Symbol def-Symbol'>IF</span> <span class='modula2-Symbol def-Symbol'>(</span>x <span class='modula2-Symbol def-Symbol'>>=</span> CGAWidth<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>OR</span> <span class='modula2-Symbol def-Symbol'>(</span>y <span class='modula2-Symbol def-Symbol'>>=</span> CGADepth<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>THEN</span> <span class='modula2-Keyword def-Keyword'>RETURN</span> MAX<span class='modula2-Symbol def-Symbol'>(</span><span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>END</span><span class='modula2-Symbol def-Symbol'>;</span>
  61:   off <span class='modula2-Symbol def-Symbol'>:=</span> x <span class='modula2-Symbol def-Symbol'>></span><span class='modula2-Symbol def-Symbol'>></span> <span class='modula2-Number def-Number'>2</span><span class='modula2-Symbol def-Symbol'>;</span>
  62:   <span class='modula2-Symbol def-Symbol'>IF</span> ODD<span class='modula2-Symbol def-Symbol'>(</span>y<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>THEN</span> INC<span class='modula2-Symbol def-Symbol'>(</span> off<span class='modula2-Symbol def-Symbol'>,</span> <span class='modula2-Number def-Number'>2000H</span> <span class='modula2-Symbol def-Symbol'>-</span> <span class='modula2-Number def-Number'>40</span> <span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>END</span><span class='modula2-Symbol def-Symbol'>;</span>
  63:   INC<span class='modula2-Symbol def-Symbol'>(</span> y<span class='modula2-Symbol def-Symbol'>,</span> y <span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Number def-Number'>2</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
  64:   INC<span class='modula2-Symbol def-Symbol'>(</span> off<span class='modula2-Symbol def-Symbol'>,</span> y <span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Number def-Number'>3</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
- 65:   x <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>3</span> <span class='modula2-Symbol def-Symbol'>-</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>(</span> BITSET<span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>*</span> BITSET<span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Number def-Number'>3</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 65:   x <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>3</span> <span class='modula2-Symbol def-Symbol'>-</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>(</span> <span class='def-TypeKeyword def-Keyword'>BITSET</span><span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>*</span> <span class='def-TypeKeyword def-Keyword'>BITSET</span><span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Number def-Number'>3</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
  66:   x <span class='modula2-Symbol def-Symbol'>:=</span> x <span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Number def-Number'>1</span><span class='modula2-Symbol def-Symbol'>;</span>
  67:   tmp <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>0B800H</span><span class='modula2-Symbol def-Symbol'>;</span> seg <span class='modula2-Symbol def-Symbol'>:=</span> tmp<span class='modula2-Symbol def-Symbol'>;</span>
- 68:   <span class='modula2-Keyword def-Keyword'>RETURN</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Symbol def-Symbol'>[</span>seg<span class='modula2-Symbol def-Symbol'>:</span>off bp<span class='modula2-Symbol def-Symbol'>]</span><span class='modula2-Symbol def-Symbol'>^</span> <span class='modula2-Symbol def-Symbol'>*</span> bs<span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Number def-Number'>3</span><span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>></span><span class='modula2-Symbol def-Symbol'>></span> x<span class='modula2-Symbol def-Symbol'>;</span>
+ 68:   <span class='modula2-Keyword def-Keyword'>RETURN</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Symbol def-Symbol'>[</span>seg<span class='modula2-Symbol def-Symbol'>:</span>off bp<span class='modula2-Symbol def-Symbol'>]</span><span class='modula2-Symbol def-Symbol'>^</span> <span class='modula2-Symbol def-Symbol'>*</span> bs<span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Number def-Number'>3</span><span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>></span><span class='modula2-Symbol def-Symbol'>></span> x<span class='modula2-Symbol def-Symbol'>;</span>
  69: <span class='modula2-Symbol def-Symbol'>END</span> CGAPoint<span class='modula2-Symbol def-Symbol'>;</span>
  70: 
- 71: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> CGAHLine <span class='modula2-Symbol def-Symbol'>(</span> x<span class='modula2-Symbol def-Symbol'>,</span>y<span class='modula2-Symbol def-Symbol'>,</span>x2 <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span> c<span class='modula2-Symbol def-Symbol'>:</span><span class='modula2-Keyword def-Keyword'>CARDINAL</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 71: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> CGAHLine <span class='modula2-Symbol def-Symbol'>(</span> x<span class='modula2-Symbol def-Symbol'>,</span>y<span class='modula2-Symbol def-Symbol'>,</span>x2 <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span> c<span class='modula2-Symbol def-Symbol'>:</span><span class='def-TypeKeyword def-Keyword'>CARDINAL</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
  72: <span class='modula2-Keyword def-Keyword'>VAR</span>
- 73:   off  <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
- 74:   seg  <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
- 75:   tmp  <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
- 76:   n    <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 73:   off  <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 74:   seg  <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 75:   tmp  <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 76:   n    <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
  77:   w    <span class='modula2-Symbol def-Symbol'>:</span> bs<span class='modula2-Symbol def-Symbol'>;</span>
  78:   mask <span class='modula2-Symbol def-Symbol'>:</span> bs<span class='modula2-Symbol def-Symbol'>;</span>
  79:   fillc<span class='modula2-Symbol def-Symbol'>:</span> SHORTCARD<span class='modula2-Symbol def-Symbol'>;</span>
  80: <span class='modula2-Symbol def-Symbol'>BEGIN</span>
  81:   <span class='modula2-Symbol def-Symbol'>IF</span> y <span class='modula2-Symbol def-Symbol'>></span> CGADepth<span class='modula2-Symbol def-Symbol'>-</span><span class='modula2-Number def-Number'>1</span> <span class='modula2-Keyword def-Keyword'>THEN</span> <span class='modula2-Keyword def-Keyword'>RETURN</span> <span class='modula2-Symbol def-Symbol'>END</span><span class='modula2-Symbol def-Symbol'>;</span>
- 82:   <span class='modula2-Symbol def-Symbol'>IF</span> <span class='modula2-Keyword def-Keyword'>INTEGER</span><span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>>=</span> <span class='modula2-Keyword def-Keyword'>INTEGER</span><span class='modula2-Symbol def-Symbol'>(</span>CGAWidth<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>THEN</span> <span class='modula2-Keyword def-Keyword'>RETURN</span> <span class='modula2-Symbol def-Symbol'>END</span><span class='modula2-Symbol def-Symbol'>;</span>
- 83:   <span class='modula2-Symbol def-Symbol'>IF</span> <span class='modula2-Keyword def-Keyword'>INTEGER</span><span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Number def-Number'>0</span> <span class='modula2-Keyword def-Keyword'>THEN</span> x <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>0</span><span class='modula2-Symbol def-Symbol'>;</span> <span class='modula2-Symbol def-Symbol'>END</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 82:   <span class='modula2-Symbol def-Symbol'>IF</span> <span class='def-TypeKeyword def-Keyword'>INTEGER</span><span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>>=</span> <span class='def-TypeKeyword def-Keyword'>INTEGER</span><span class='modula2-Symbol def-Symbol'>(</span>CGAWidth<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>THEN</span> <span class='modula2-Keyword def-Keyword'>RETURN</span> <span class='modula2-Symbol def-Symbol'>END</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 83:   <span class='modula2-Symbol def-Symbol'>IF</span> <span class='def-TypeKeyword def-Keyword'>INTEGER</span><span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Number def-Number'>0</span> <span class='modula2-Keyword def-Keyword'>THEN</span> x <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>0</span><span class='modula2-Symbol def-Symbol'>;</span> <span class='modula2-Symbol def-Symbol'>END</span><span class='modula2-Symbol def-Symbol'>;</span>
  84:   <span class='modula2-Symbol def-Symbol'>IF</span> x2 <span class='modula2-Symbol def-Symbol'>>=</span> CGAWidth <span class='modula2-Keyword def-Keyword'>THEN</span> x2 <span class='modula2-Symbol def-Symbol'>:=</span> CGAWidth<span class='modula2-Symbol def-Symbol'>-</span><span class='modula2-Number def-Number'>1</span> <span class='modula2-Symbol def-Symbol'>END</span><span class='modula2-Symbol def-Symbol'>;</span>
  85: 
  86:   n <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Symbol def-Symbol'>(</span> x2 <span class='modula2-Symbol def-Symbol'>-</span> x <span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>+</span> <span class='modula2-Number def-Number'>1</span><span class='modula2-Symbol def-Symbol'>;</span>
@@ -93,7 +93,7 @@
  92:   c <span class='modula2-Symbol def-Symbol'>:=</span> c <span class='modula2-Symbol def-Symbol'>+</span> c <span class='modula2-Symbol def-Symbol'>*</span> <span class='modula2-Number def-Number'>16</span><span class='modula2-Symbol def-Symbol'>;</span>
  93:   INC<span class='modula2-Symbol def-Symbol'>(</span> y<span class='modula2-Symbol def-Symbol'>,</span> y <span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Number def-Number'>2</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
  94:   INC<span class='modula2-Symbol def-Symbol'>(</span> off<span class='modula2-Symbol def-Symbol'>,</span> y <span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Number def-Number'>3</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
- 95:   x <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>3</span> <span class='modula2-Symbol def-Symbol'>-</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>(</span> BITSET<span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>*</span> BITSET<span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Number def-Number'>3</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+ 95:   x <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>3</span> <span class='modula2-Symbol def-Symbol'>-</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>(</span> <span class='def-TypeKeyword def-Keyword'>BITSET</span><span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>*</span> <span class='def-TypeKeyword def-Keyword'>BITSET</span><span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Number def-Number'>3</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
  96:   x <span class='modula2-Symbol def-Symbol'>:=</span> x <span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Number def-Number'>1</span><span class='modula2-Symbol def-Symbol'>;</span>
  97:   tmp <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>0B800H</span><span class='modula2-Symbol def-Symbol'>;</span> seg <span class='modula2-Symbol def-Symbol'>:=</span> tmp<span class='modula2-Symbol def-Symbol'>;</span>
  98: 
@@ -103,7 +103,7 @@
 102:     w <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Symbol def-Symbol'>(</span> w <span class='modula2-Symbol def-Symbol'>-</span> mask <span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>+</span> bs<span class='modula2-Symbol def-Symbol'>(</span>c<span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>*</span>mask<span class='modula2-Symbol def-Symbol'>;</span>
 103:     DEC<span class='modula2-Symbol def-Symbol'>(</span>n<span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
 104:     DEC<span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>2</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
-105:   <span class='modula2-Symbol def-Symbol'>UNTIL</span> <span class='modula2-Symbol def-Symbol'>(</span>n<span class='modula2-Symbol def-Symbol'>=</span><span class='modula2-Number def-Number'>0</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>OR</span> <span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>=</span><span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Symbol def-Symbol'>-</span><span class='modula2-Number def-Number'>2</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+105:   <span class='modula2-Symbol def-Symbol'>UNTIL</span> <span class='modula2-Symbol def-Symbol'>(</span>n<span class='modula2-Symbol def-Symbol'>=</span><span class='modula2-Number def-Number'>0</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>OR</span> <span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>=</span><span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Symbol def-Symbol'>-</span><span class='modula2-Number def-Number'>2</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
 106:   <span class='modula2-Symbol def-Symbol'>[</span>seg<span class='modula2-Symbol def-Symbol'>:</span>off bp<span class='modula2-Symbol def-Symbol'>]</span><span class='modula2-Symbol def-Symbol'>^</span> <span class='modula2-Symbol def-Symbol'>:=</span> w<span class='modula2-Symbol def-Symbol'>;</span>
 107: 
 108:   INC<span class='modula2-Symbol def-Symbol'>(</span>off<span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
@@ -133,41 +133,41 @@
 132:   HLine <span class='modula2-Symbol def-Symbol'>:=</span> CGAHLine <span class='modula2-Symbol def-Symbol'>;</span>
 133: <span class='modula2-Symbol def-Symbol'>END</span> InitCGA <span class='modula2-Symbol def-Symbol'>;</span>
 134: 
-135: <span class='def-Comment def-Syntax'>(* == EGA/VGA specific routines == *)</span>
+135: <span class='modula2-Comment def-Comment def-Syntax'>(* == EGA/VGA specific routines == *)</span>
 136: 
-137: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> EGAGraphMode<span class='modula2-Symbol def-Symbol'>;</span> <span class='def-Comment def-Syntax'>(* Also VGA *)</span>
-138: <span class='modula2-Keyword def-Keyword'>VAR</span> r <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Registers<span class='modula2-Symbol def-Symbol'>;</span>
+137: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> EGAGraphMode<span class='modula2-Symbol def-Symbol'>;</span> <span class='modula2-Comment def-Comment def-Syntax'>(* Also VGA *)</span>
+138: <span class='modula2-Keyword def-Keyword'>VAR</span> r <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Registers<span class='modula2-Symbol def-Symbol'>;</span>
 139: <span class='modula2-Symbol def-Symbol'>BEGIN</span>
 140:   <span class='modula2-Symbol def-Symbol'>IF</span> Depth<span class='modula2-Symbol def-Symbol'>=</span><span class='modula2-Number def-Number'>480</span> <span class='modula2-Keyword def-Keyword'>THEN</span> r<span class='modula2-Number def-Number'>.</span>AX <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>12H</span> <span class='modula2-Keyword def-Keyword'>ELSE</span> r<span class='modula2-Number def-Number'>.</span>AX <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>10H</span> <span class='modula2-Symbol def-Symbol'>END</span> <span class='modula2-Symbol def-Symbol'>;</span>
 141:   Lib<span class='modula2-Number def-Number'>.</span>Intr<span class='modula2-Symbol def-Symbol'>(</span> r<span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>10H</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
 142: <span class='modula2-Symbol def-Symbol'>END</span> EGAGraphMode<span class='modula2-Symbol def-Symbol'>;</span>
 143: 
 144: 
-145: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> EGAPlot<span class='modula2-Symbol def-Symbol'>(</span> x<span class='modula2-Symbol def-Symbol'>,</span>y<span class='modula2-Symbol def-Symbol'>,</span>c <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span> <span class='def-Comment def-Syntax'>(* Also VGA *)</span>
+145: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> EGAPlot<span class='modula2-Symbol def-Symbol'>(</span> x<span class='modula2-Symbol def-Symbol'>,</span>y<span class='modula2-Symbol def-Symbol'>,</span>c <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span> <span class='modula2-Comment def-Comment def-Syntax'>(* Also VGA *)</span>
 146: <span class='modula2-Keyword def-Keyword'>VAR</span>
 147:   t<span class='modula2-Symbol def-Symbol'>:</span>bs<span class='modula2-Symbol def-Symbol'>;</span>
-148:   p<span class='modula2-Symbol def-Symbol'>,</span>b<span class='modula2-Symbol def-Symbol'>,</span>s<span class='modula2-Symbol def-Symbol'>:</span><span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+148:   p<span class='modula2-Symbol def-Symbol'>,</span>b<span class='modula2-Symbol def-Symbol'>,</span>s<span class='modula2-Symbol def-Symbol'>:</span><span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
 149: <span class='modula2-Symbol def-Symbol'>BEGIN</span>
 150:    <span class='modula2-Symbol def-Symbol'>IF</span> <span class='modula2-Symbol def-Symbol'>(</span>x <span class='modula2-Symbol def-Symbol'>&lt;</span> EGAWidth<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>AND</span> <span class='modula2-Symbol def-Symbol'>(</span>y <span class='modula2-Symbol def-Symbol'>&lt;</span> Depth<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>THEN</span>
 151:       b <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>1</span> <span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Number def-Number'>7</span><span class='modula2-Symbol def-Symbol'>-</span><span class='modula2-Symbol def-Symbol'>(</span>x <span class='modula2-Keyword def-Keyword'>MOD</span> <span class='modula2-Number def-Number'>8</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
 152:       p <span class='modula2-Symbol def-Symbol'>:=</span> y<span class='modula2-Symbol def-Symbol'>*</span><span class='modula2-Number def-Number'>80</span><span class='modula2-Symbol def-Symbol'>+</span><span class='modula2-Symbol def-Symbol'>(</span>x <span class='modula2-Keyword def-Keyword'>DIV</span> <span class='modula2-Number def-Number'>8</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
-153:       <span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3CEH</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>8</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span><span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3CFH</span><span class='modula2-Symbol def-Symbol'>,</span>SHORTCARD<span class='modula2-Symbol def-Symbol'>(</span>b<span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
-154:       <span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3C4H</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>2</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span><span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3C5H</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>0FH</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+153:       <span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3CEH</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>8</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span><span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3CFH</span><span class='modula2-Symbol def-Symbol'>,</span>SHORTCARD<span class='modula2-Symbol def-Symbol'>(</span>b<span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+154:       <span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3C4H</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>2</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span><span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3C5H</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>0FH</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
 155:       s <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>0A000H</span><span class='modula2-Symbol def-Symbol'>;</span>
 156:       t <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Symbol def-Symbol'>[</span>s<span class='modula2-Symbol def-Symbol'>:</span>p bp<span class='modula2-Symbol def-Symbol'>]</span><span class='modula2-Symbol def-Symbol'>^</span><span class='modula2-Symbol def-Symbol'>;</span>
 157:       <span class='modula2-Symbol def-Symbol'>[</span>s<span class='modula2-Symbol def-Symbol'>:</span>p bp<span class='modula2-Symbol def-Symbol'>]</span><span class='modula2-Symbol def-Symbol'>^</span> <span class='modula2-Symbol def-Symbol'>:=</span> bs<span class='modula2-Symbol def-Symbol'>{</span><span class='modula2-Symbol def-Symbol'>}</span><span class='modula2-Symbol def-Symbol'>;</span>
-158:       <span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3C4H</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>2</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span><span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3C5H</span><span class='modula2-Symbol def-Symbol'>,</span>SHORTCARD<span class='modula2-Symbol def-Symbol'>(</span>c<span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+158:       <span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3C4H</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>2</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span><span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3C5H</span><span class='modula2-Symbol def-Symbol'>,</span>SHORTCARD<span class='modula2-Symbol def-Symbol'>(</span>c<span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
 159:       <span class='modula2-Symbol def-Symbol'>[</span>s<span class='modula2-Symbol def-Symbol'>:</span>p bp<span class='modula2-Symbol def-Symbol'>]</span><span class='modula2-Symbol def-Symbol'>^</span> <span class='modula2-Symbol def-Symbol'>:=</span> bs<span class='modula2-Symbol def-Symbol'>{</span><span class='modula2-Number def-Number'>0..7</span><span class='modula2-Symbol def-Symbol'>}</span><span class='modula2-Symbol def-Symbol'>;</span>
-160:       <span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3CEH</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>8</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span><span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3CFH</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>0FFH</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
-161:       <span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3C4H</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>2</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span><span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3C5H</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>0FH</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+160:       <span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3CEH</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>8</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span><span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3CFH</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>0FFH</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+161:       <span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3C4H</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>2</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span><span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3C5H</span><span class='modula2-Symbol def-Symbol'>,</span><span class='modula2-Number def-Number'>0FH</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
 162:    <span class='modula2-Symbol def-Symbol'>END</span><span class='modula2-Symbol def-Symbol'>;</span>
 163: <span class='modula2-Symbol def-Symbol'>END</span> EGAPlot<span class='modula2-Symbol def-Symbol'>;</span>
 164: 
-165: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> EGAPoint<span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>,</span>y<span class='modula2-Symbol def-Symbol'>:</span><span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>:</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span> <span class='def-Comment def-Syntax'>(* Also VGA *)</span>
+165: <span class='modula2-Keyword def-Keyword'>PROCEDURE</span> EGAPoint<span class='modula2-Symbol def-Symbol'>(</span>x<span class='modula2-Symbol def-Symbol'>,</span>y<span class='modula2-Symbol def-Symbol'>:</span><span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>:</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span> <span class='modula2-Comment def-Comment def-Syntax'>(* Also VGA *)</span>
 166: <span class='modula2-Keyword def-Keyword'>VAR</span>
 167:   t<span class='modula2-Symbol def-Symbol'>:</span>bs<span class='modula2-Symbol def-Symbol'>;</span>
-168:   p<span class='modula2-Symbol def-Symbol'>,</span>b<span class='modula2-Symbol def-Symbol'>,</span>s<span class='modula2-Symbol def-Symbol'>:</span><span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
-169:   c<span class='modula2-Symbol def-Symbol'>:</span><span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+168:   p<span class='modula2-Symbol def-Symbol'>,</span>b<span class='modula2-Symbol def-Symbol'>,</span>s<span class='modula2-Symbol def-Symbol'>:</span><span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
+169:   c<span class='modula2-Symbol def-Symbol'>:</span><span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>;</span>
 170: <span class='modula2-Symbol def-Symbol'>BEGIN</span>
 171:   <span class='modula2-Symbol def-Symbol'>IF</span> <span class='modula2-Symbol def-Symbol'>(</span>x <span class='modula2-Symbol def-Symbol'>&lt;</span> EGAWidth<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>AND</span> <span class='modula2-Symbol def-Symbol'>(</span>y <span class='modula2-Symbol def-Symbol'>&lt;</span> Depth<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Keyword def-Keyword'>THEN</span>
 172:     b <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>1</span> <span class='modula2-Symbol def-Symbol'>&lt;</span><span class='modula2-Symbol def-Symbol'>&lt;</span> <span class='modula2-Symbol def-Symbol'>(</span><span class='modula2-Number def-Number'>7</span><span class='modula2-Symbol def-Symbol'>-</span><span class='modula2-Symbol def-Symbol'>(</span>x <span class='modula2-Keyword def-Keyword'>MOD</span> <span class='modula2-Number def-Number'>8</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
@@ -175,27 +175,27 @@
 174: 
 175:     s <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Number def-Number'>0A000H</span><span class='modula2-Symbol def-Symbol'>;</span>
 176: 
-177:     <span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3CEH</span><span class='modula2-Symbol def-Symbol'>,</span> <span class='modula2-Number def-Number'>4</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span> <span class='def-Comment def-Syntax'>(* read map sel *)</span>
+177:     <span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3CEH</span><span class='modula2-Symbol def-Symbol'>,</span> <span class='modula2-Number def-Number'>4</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span> <span class='modula2-Comment def-Comment def-Syntax'>(* read map sel *)</span>
 178: 
-179:     <span class='modula2-Keyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3CFH</span><span class='modula2-Symbol def-Symbol'>,</span> <span class='modula2-Number def-Number'>3</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+179:     <span class='def-InterfaceKeyword def-Keyword'>SYSTEM</span><span class='modula2-Number def-Number'>.</span>Out<span class='modula2-Symbol def-Symbol'>(</span> <span class='modula2-Number def-Number'>3CFH</span><span class='modula2-Symbol def-Symbol'>,</span> <span class='modula2-Number def-Number'>3</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
 180:     t <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Symbol def-Symbol'>[</span>s<span class='modula2-Symbol def-Symbol'>:</span>p bp<span class='modula2-Symbol def-Symbol'>]</span><span class='modula2-Symbol def-Symbol'>^</span><span class='modula2-Symbol def-Symbol'>;</span>
 181:     t <span class='modula2-Symbol def-Symbol'>:=</span> t <span class='modula2-Symbol def-Symbol'>*</span> bs<span class='modula2-Symbol def-Symbol'>(</span>b<span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
-182:     c <span class='modula2-Symbol def-Symbol'>:=</span> <span class='modula2-Keyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>(</span> SHORTCARD<span class='modula2-Symbol def-Symbol'>(</span>t<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol def-Symbol'>)</span><span class='modula2-Symbol def-Symbol'>;</span>
+182:     c <span class='modula2-Symbol def-Symbol'>:=</span> <span class='def-TypeKeyword def-Keyword'>CARDINAL</span><span class='modula2-Symbol def-Symbol'>(</span> SHORTCARD<span class='modula2-Symbol def-Symbol'>(</span>t<span class='modula2-Symbol def-Symbol'>)</span> <span class='modula2-Symbol...
 
[truncated message content]