SUB MOUSEOFF () SHARED STATIC
INCLUDE "x16.bas" DIM btn AS BYTE CALL MOUSEON() PRINT "click left or middle button to get position" PRINT "or right button to exit" DO btn = MOUSEBTN() ' No button IF btn = 0 THEN CONTINUE DO ' Right button IF btn AND 2 THEN CALL MOUSEOFF() : END ' Any other button(s) PRINT "x: "; MOUSEX(), "y: "; MOUSEY() ' Now wait until the button is released DO : LOOP UNTIL MOUSEBTN() = 0 LOOP WHILE 1