Declare Sub GetMousePos(byRef x As Integer, byRef y As Integer, byRef MausRad As Integer=0, byRef Taste As Integer, byRef Pause As Integer=200)
Dim As Integer x, y, Taste
Screen 18
Print "Test1 ";
GetMousePos(x, y,, Taste)
Print x, y, Taste
Print "Test2 ";
GetMousePos(x, y,, Taste)
Print x, y, Taste
Print "Fertich..";
Print Input(1)
End

Sub GetMousePos(byRef x As Integer, byRef y As Integer, byRef MausRad As Integer=0, byRef Taste As Integer, byRef Pause As Integer=100)
'Ein Versuch von ytwinky, MD
  Dim As Integer hx, hy, hRad, hTaste
  Do
    Sleep Pause
    GetMouse x, y, MausRad, hTaste
  Loop Until hTaste>0
  Taste=hTaste
  Do While hTaste<>0
    Sleep 2
    GetMouse hx, hy, hRad, hTaste
  Loop
End Sub