Source position: tos.pas line 124
procedure vsetscreen(
laddr: pointer;
paddr: pointer;
rez: SmallInt;
mode: SmallInt
);