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