Source position: tos.pas line 118
procedure Initmouse(
typ: SmallInt;
var param: TMOUSE;
vec: Pointer
);