procedure SetMouse (where: point);
	const
{some dangerous low-memory-global equates from IM3}
		MTemp = $828;               {point}
		RawMouse = $82c;            {point}
		CrsrNew = $8ce;             {byte}
	type
		PointPtr = ^Point;
		IntPtr = ^Integer;
begin
	LocalToGlobal(where);
	PointPtr(RawMouse)^ := where;
	PointPtr(MTemp)^ := where;
	IntPtr(CrsrNew)^ := $ffff;
end;