Sub Globals
    Dim P as Phone
End Sub
Sub Activity_Create(FirstTime As Boolean)
    P.Initialize("P")
End Sub
Sub P_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
    Log("BatteryChanged: Level = " & level & ", Scale = " & scale & ", Plugged = " & Plugged)
End Sub