>

* doevtest.prg
>lparameter llMouse
>
>local x, i
>
>x = seconds()
>
>for i = 1 to 100
>   if ( llMouse )
>      mouse at mrow(), mcol()
>   endif
>   doevents()
>endfor

This has some other side effects too... The mouse pointer will jump
if you're running Top Level forms because MROW() MCOL() won't be
correct for those forms.