'mouse and cursor test
 dim integer quit, mp
 CLS
 MODE 1,8
 
 mp = mm.info(option mouse)
 if mp = -1 then ' no mouse set
   mp = 0 ' assume PS/2 mouse - change to suit
 else
   print "Mouse port ";mp
 endif
 
 GUI CURSOR ON
 
 CONTROLLER MOUSE OPEN mp, leftclick, rightclick
 
 PRINT "Mouse found is type ",MOUSE(t,0)
 if MOUSE(t,0) = 3 then PRINT "Mouse has a wheel!"
 PAUSE 2000
 CLS
 PRINT @(750,10,2)"QUIT"
 'I2C2 WRITE 41,1,2,28,10
 SETTICK 50, myint
 DO : LOOP UNTIL quit = 1
 SETTICK 0, myint
 CONTROLLER MOUSE CLOSE mp
 pause 20
 GUI CURSOR OFF
END
 
SUB myint
 GUI CURSOR MOUSE(x,mp),MOUSE(y,mp)
 PRINT @(10,10)MOUSE(x,mp);"  ";MOUSE(y,mp);"  s";MOUSE(s,mp);"  w";MOUSE(w,mp);"  "
 IF MOUSE(D,mp) THEN
   PRINT @(10,50)"Doubleclick"
 ELSE
   PRINT @(10,50)"            "
 ENDIF
END SUB
 '
SUB leftclick
 STATIC INTEGER n
 LOCAL INTEGER x=MOUSE(x,mp),y=MOUSE(y,mp)
 GUI CURSOR OFF
 GUI CURSOR ON 1,x,y, RGB(RED)
 n=n+1
 PRINT @(100,100)"left",n
 if x > 750 and y < 25 then quit = 1
END SUB
 '
SUB rightclick
 STATIC INTEGER n=0
 LOCAL INTEGER x=MOUSE(x,mp),y=MOUSE(y,mp)
 GUI CURSOR OFF
 GUI CURSOR ON 0,x,y
 n=n+1
 PRINT @(200,100)"Right",n
END SUB

' Put these two lines near the start,
' just before GUI CURSOR ON and CONTROLLER MOUSE OPEN <chan#>
option break 24      ' change ^C to ^Y
on key 3, CtrlCQuit  ' trap ^C

' Add this routine anywhere convenient
sub CtrlCQuit  ' trap ^C
  CONTROLLER MOUSE CLOSE <chan#>
  pause 20
  GUI CURSOR OFF
  option break 3  ' restore ^C
  end
end sub