DEFINITION MODULE GRAPH0;
CONST width=256;height=192;
PROCEDURE SCRDOT;
PROCEDURE SCRNAD;
PROCEDURE CLS2;
PROCEDURE GCLS;
PROCEDURE SETATTRS(X,Y:CARDINAL;L,C:SHORTCARD);
END GRAPH0.
 
IMPLEMENTATION MODULE GRAPH0;
PROCEDURE CLS2;HEX
3A 8D 5C 06 18 D9 21 00 5B CD (@GCLS+20) END CLS2;
PROCEDURE GCLS;HEX
AF 06 BF D9 21 00 58 CD (@GCLS+20) 21 00 40 06 20 77
2C 10 FC C9 D9 57 5F 21 00 00 39 D9 F9 D9 D5 D5
D5 D5 D5 D5 D5 D5 D5 D5 D5 D5 D5 D5 D5 D5 10 EE 
F9 C9 END GCLS;
 
PROCEDURE SETATTRS(X,Y:CARDINAL;L,C:SHORTCARD);HEX
DD E1 C1 E1 D1 7B E6 1F 5F 7D 0F 0F 0F 57 E6 E0
B3 6F 7A E6 03 F6 58 67 04 18 02 71 23 10 FC C5
C5 C5 DD E9 END SETATTRS;
 
PROCEDURE SCRDOT;HEX
7A E6 07 C6 18 6F 26 BD 7A 56
END SCRDOT;
PROCEDURE SCRNAD; HEX
0F 0F 0F E6 1F 6F 7B 07 07 E6 E0 B5 6F 7B E6 07
47 7B 0F 37 1F 37 1F E6 58 B0 67 C9
END SCRNAD;
 
END GRAPH0.
