gr.open 255,0,0,0,0,1
gosub functions_
sensors.open 1
gr.screen w,h
cx = w/2
cy = h/2


gr.color 255,255,255,255,1
DO
 sensors.read 1,y,x,z
 a=angle(x,y)
 Gr.rotate.start a, cx, cy
   text()
 Gr.rotate.end
 gr.render
 gr.cls
UNTIL 0





Functions_:

fn.def angle(x,y)
 gr.screen w,h
 x = x* (w/24)
 y = y*(h/24)
 m = hypot(x,y)
 if m then a = todegrees(acos(x/m))
 if y < 0 then a = - a
 fn.rtn a
fn.end


fn.def text()
  gr.screen w,h
  gr.text.align 2
  gr.text.size h/30
  v=-(h/30*0.145)+h/60+h/2
  gr.text.draw oTx,w/2,v,"Hello World"
fn.end

Return