|
From: <ct...@us...> - 2013-04-15 04:16:07
|
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'>&</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 & Partners International *)</span>
+ 0: <span class='modula2-Comment def-Comment def-Syntax'>(* Copyright (C) 1987 Jensen & 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'><</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>
47: INC<span class='modula2-Symbol def-Symbol'>(</span> off<span class='modula2-Symbol def-Symbol'>,</span> y <span class='modula2-Symbol def-Symbol'><</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>
- 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'><</span><span class='modula2-Symbol def-Symbol'><</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'><</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-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>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'><</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>
64: INC<span class='modula2-Symbol def-Symbol'>(</span> off<span class='modula2-Symbol def-Symbol'>,</span> y <span class='modula2-Symbol def-Symbol'><</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>
- 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'><</span><span class='modula2-Symbol def-Symbol'><</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'><</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-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'><</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-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'><</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'><</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'><</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>
94: INC<span class='modula2-Symbol def-Symbol'>(</span> off<span class='modula2-Symbol def-Symbol'>,</span> y <span class='modula2-Symbol def-Symbol'><</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>
- 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'><</span><span class='modula2-Symbol def-Symbol'><</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'><</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'><</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'><</span><span class='modula2-Symbol def-Symbol'><</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'><</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'><</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'><</span><span class='modula2-Symbol def-Symbol'><</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] |