' initialize all default variables as integer.
DEFINT A-Z

' load all arrays during runtime.
REM $DYNAMIC

' get include files.
REM $INCLUDE: 'qbx.bi'

' declare all common mouse variables.
COMMON SHARED Mouse.Present AS INTEGER
COMMON SHARED Mouse.Button1 AS INTEGER
COMMON SHARED Mouse.Button2 AS INTEGER
COMMON SHARED Mouse.Button3 AS INTEGER
COMMON SHARED Mouse.Row AS INTEGER, Mouse.Column AS INTEGER
COMMON SHARED Old.Mouse.Row AS INTEGER, Old.Mouse.Column AS INTEGER
COMMON SHARED Mouse.X AS INTEGER, Mouse.Y AS INTEGER
COMMON SHARED Mouse.Button1.X AS INTEGER, Mouse.Button1.Y AS INTEGER
COMMON SHARED Mouse.Button1.Row AS INTEGER, Mouse.Button1.Column AS INTEGER

' declare interrupt structures.
COMMON SHARED InregsX AS RegTypeX, OutregsX AS RegTypeX

' declare mouse function constants.
CONST CheckMouse = 0
CONST ShowMouse = 1
CONST HideMouse = 2
CONST Position = 3
CONST PositionMouse = 4
CONST ButtonPress = 5
CONST ButtonRelease = 6

CONST True = -1
CONST False = 0

DECLARE SUB MouseDriver ()
DECLARE SUB MouseFunction (V1%, V2%)

DECLARE FUNCTION ReleaseTime% ()
