DEFINITION MODULE SYMBOL;
FROM SYSTEM IMPORT WORD;
PROCEDURE SYMBOL1(X,Y:INTEGER;A:ARRAY OF WORD;C:CARDINAL);
PROCEDURE SYMBOL2(X,Y:INTEGER;A:ARRAY OF CARDINAL;C:CARDINAL);
END SYMBOL.
IMPLEMENTATION MODULE SYMBOL;
FROM GRAPH0 IMPORT SCRNAD;

PROCEDURE SYMBOL1(X,Y:INTEGER;A:ARRAY OF WORD;C:CARDINAL);HEX
CD (@SYMI) 7E 23 D9 5F D9 7B D9 CD (@DRAW1) 24 08 3D
FC (@DOWNC) 08 D9 10 EC C9 END SYMBOL1;

PROCEDURE SYMBOL2(X,Y:INTEGER;A:ARRAY OF CARDINAL;C:CARDINAL);
HEX
CD (@SYMI) 7B 56 23 5E 23 D5 5F D9 D1 CD (@DRAW2) 24
08 3D FC (@DOWNC) 08 D9 10 EA C9 END SYMBOL2;

PROCEDURE DOWNC;HEX
7D C6 20 6F 38 07 7C D6 08 67 3E 07 C9 7C C6 08
E6 18 3E 07 C0 E1 C9 END DOWNC;

PROCEDURE SYMI;HEX
DD E1 D1 C1 AF 91 D9 4F FE FE 08 E1 D1 43 04 78
D9 C1 CB 3F 81 D6 C0 2F C1 21 F6 FF 39 F9 D5 DD
E5 5F CD (@SYMI+3BH) 79 CD (@SCRNAD) 7C FE 58 38 03 D6 20
67 78 EE 07 08 79 D9 E6 07 5F C9 78 CB 07 38 16
20 1F 79 FE 08 38 0F FE F8 30 16 08 DD 21 (@DRWXL+14H)
C0 DD 21 (@DRWXL+8) C9 DD 21 (@DRWXL+0CH) 08 C0 DD 21 (@DRWXL)
C9 DD 21 (@DRWXL+11H) 08 C0 DD 21 (@DRWXL+5) C9 END SYMI;
 
PROCEDURE DRWXL;HEX
CB 65 C0 18 03 CB 65 C8 7E A8 77 C9 CB 65 C0 18
03 CB 65 C8 D9 79 D9 AE A0 AE 77 C9 END DRWXL;
 
PROCEDURE DRAW1;HEX
D6 04 28 0A 38 0B 47 AF CB 3B 38 14 10 FA 43 DD
E9 ED 44 47 AF CB 23 38 12 10 FA 43 DD E9 CB 3B
1F 10 FB 4F CD (@DRAW1+0EH) 18 52 CB 23 17 10 FB 57 18
2B END DRAW1;
 
PROCEDURE DRAW2;HEX
A7 28 28 FE 04 38 1A D6 09 2F 47 AF EB 29 38 08
10 FB EB 4B 5A 18 DC 29 17 10 FC EB 4B 5A 57 18
26 47 AF CB 3A CB 1B 38 1A 10 F8 CD (@DRAW1+0EH) 42 55
7D E6 1F 20 04 7D C6 20 6F 2D CD F4 03 6A C9 CB
3A CB 1B 1F 10 F9 4F CD (@DRAW2+2BH) 41 7D 4D 2C 7D E6
1F 20 04 7D D6 20 6F CD F4 03 69 C9 END DRAW2;
 
END SYMBOL.
