Standard pixel drawing routine prototype
Source position: graphh.inc line 522
type putpixelproc = procedure(
X: SmallInt;
Y: SmallInt;
Color: Word
);