Source position: vdi.pas line 87
procedure vt_origin(
handle: SmallInt;
xorigin: SmallInt;
yorigin: SmallInt
);