====== MOUSEON ====== [x16] //Defined in [[x16.bas]].// Turns the mouse pointer on. ===== Subroutine header ===== SUB MOUSEON () SHARED STATIC ===== Example ===== 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 ===== See also ===== * [[MOUSEOFF]] * [[MOUSEBTN]] * [[MOUSEX]] * [[MOUSEY]]