const mousechan=0
mode 1
cls
gui cursor on
setpin 5,dout
controller mouse open mousechan,leftclick,rightclick
print "Mouse found is type ",mouse(t,mousechan)
pause 1000
cls
settick 20, myint
'
do
 pause 100
 print @(0,100)str$(mouse(s,mousechan),3)
loop
'
sub myint
 gui cursor mouse(x,mousechan),mouse(y,mousechan)
end sub
'
sub leftclick
 static integer m=0
 local integer i
 local integer x=mouse(x,mousechan),y=mouse(y,mousechan)
 gui cursor colour rgb(red)
 gui cursor x,y
 m=m+1
 print @(100,100)"left",m
 i=mouse(z,mousechan) 'zero the scroll count
end sub
'
sub rightclick
 static integer n=0
 local integer x=mouse(x,mousechan),y=mouse(y,mousechan)
 gui cursor colour rgb(green)
 gui cursor x,y
 n=n+1
 print @(200,100)"Right",n
 if n=10 then
   controller mouse close mousechan
   end
 endif
end sub