; MobileInputError Example
; ------------------------

Graphics 640,480,0,2
SetBuffer BackBuffer()
value$="No event yet"
running=True
count=0
mode=1
accepted=EnableAccelerometer()
While running
    UpdateMobileInput
    id=TouchID(1)
    phase=GetTouchEvent()
    toggle=KeyHit(57)
    While phase
        If phase=1
            count=count+1
            If TouchEventX()>530 And TouchEventY()<60 Then running=False
            If TouchEventY()>400 Then toggle=True
        EndIf
        phase=GetTouchEvent()
    Wend
    If KeyHit(1) Then running=False
    If MouseHit(1)
        If MouseX()>530 And MouseY()<60 Then running=False
        If MouseY()>400 Then toggle=True
    EndIf
    If toggle
        mode=1-mode
        accepted=EnableAccelerometer(mode)
    EndIf
    value$=MobileInputError$()
    Cls
    Color 70,100,150
    Rect 535,10,95,45
    Rect 10,405,620,60
    Color 255,255,255
    Text 553,23,"Exit"
    Text 20,80,"MobileInputError: "+value$
    Text 20,115,"Touch/drag the screen. Escape exits on desktop."
    Text 20,145,"Sensor status: "+AccelerometerStatus()+"  Age: "+AccelerometerAge()
    Oval 305+AccelerometerX()*100,245+AccelerometerY()*100,30,30,False
    Text 20,425,"Tap here or press Space to toggle"
    Flip
Wend
accepted=EnableAccelerometer(0)
End