here is how getmouse works

do
getmouse x,y,,c 'mousex, mousey,,buttons
if c=1:locate y+1,x+1:print "*"; 'button 1
loop until inkey$=chr$(27)
'note the lack of anything like _mouseinput, which getmouse doesn't need.