Standard procedure prototype to draw a single vertical line
Source position: graphh.inc line 509
type vlineproc = procedure(
x: SmallInt;
y: SmallInt;
y2: SmallInt
);