1 GSCREEN()
2 .MAIN
3 (X,Y)=GMOUSEPOS()
4 (B,BX,BY)=GINMOUSE()
5 (L,R,M)=GMOUSESTAT("LEFT", "RIGHT", "MIDDLE")
6 FPRINT(X, " ", Y, " ", L, " ", R, " ", M, " ", B, " ", BX, " ", BY, "\n")
7 WAIT 10; 0@GSCRSTAT()!=G_DISABLE: GOTO MAIN
