Sub Process_Globals
Dim PE As PhoneEvents
Dim BatteryLevel As Int
Dim BatteryCharging As Boolean
End Sub
Sub PE_BatteryChanged(Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
BatteryLevel = Level
BatteryCharging = Plugged
'Log("Level: " & Level & "%, Scale: " & Scale & ", Plugged: " & Plugged)
End Sub