Controls OpenTextBox

v1 = MouseX * 65536 * 2

' ---------------------------------- Split a 32 bit integer in two 16 bit (V2 = H / v3 = L)
v1 = Int(v1)
v2 = Int(v1 / 65536)
v3 = v1 And 65535

' ---------------------------------- Recompose the original 32 bit integer
v4 = Int(v2 * 65536 + v3)

If v4 <> v1
	Print PadRight(Str(v1), 10) +  PadRight(Str(v2), 10)  +  PadRight(Str(v3), 10)  +  PadRight(Str(v4), 10) + CRLF
EndIf

Slot 1 = v2
Slot 2 = v3


