Global mx, my, mb

While Not KeyHit(1)
  AcquireInput()
  Delay(25)
Wend

End

;--------

Function AcquireInput()
  mx = MouseX()
  my = MouseY()
  If (mb) Then
    If (MouseDown(mb)) Then
      MousePressedEvent()
    Else
      MouseUpEvent()
      mb = 0
    End If
  Else
    For btnidx = 1 To 3
      If (MouseDown(btnidx)) Then
        mb = btnidx
        MouseDownEvent()
        Exit
      End If
    Next
  End If
End Function

;----

Function MouseDownEvent()
  Select mb
    Case 1 ;left
      Print \"Left button down\"
    Case 2 ;right
      Print \"Right button down\"
    Case 3 ;middle
      Print \"Middle button down\"
  End Select
End Function
;----

Function MouseUpEvent()
  Select mb
    Case 1 ;left
      Print \"Left button up\"
    Case 2 ;right
      Print \"Right button up\"
    Case 3 ;middle
      Print \"Middle button up\"
  End Select
End Function
;----

Function MousePressedEvent()
  Select mb
    Case 1 ;left
      Print \"Left button pressed\"
    Case 2 ;right
      Print \"Right button pressed\"
    Case 3 ;middle
      Print \"Middle button pressed\"
  End Select
End Function