aUCBLogo Demos and Tests / mousetest

to mousetest
   pr [Look at the vars window while moving mouse in the graph window.]
   pr [ESC leaves mousetest.]
   forever
   [   dispatchMessages
      buttons=mousebuttons
      graphpos=mousepos
      textpos=TextMousePos
      updatevars
      if key? [c=readChar if c==char 27 [stop]]
      waitms 10
   ]
   pr [mousetest ;stopped.]
end