xold=DEVICE(mouse 2,X)
yold=DEVICE(mouse 2,Y)
Do
x=DEVICE(mouse 2,X)
y=DEVICE(mouse 2,Y)
b=DEVICE(mouse 2,L)
r=DEVICE(mouse 2,R)
m=DEVICE(mouse 2,M)
d=DEVICE(mouse 2,D)
If x<>xold Or y<>yold Then Print "X";x;:xold=x: Print " Y";y:yold=y
If b Then Print "Left mouse button":Pause 200
If r Then Print "Right mouse button":Pause 200
If m Then Print "Middle mouse button":Pause 200
If d Then Print "Double click of the left mouse button":Pause 200
Loop
End