#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
Private lm As LocationManager
End Sub
Sub Service_Create
lm.Initialize("lm")
End Sub
Sub Service_Start (StartingIntent As Intent)
lm.requestGPSLocation
lm.requestMobileLocation
End Sub
Sub Service_Destroy
lm.stopGPSListening
lm.stopMobileListening
End Sub
Sub lm_LocationChanged (Longitude As Double, Latitude As Double, Altitude As Double, Accuracy As Float, Bearing As Float, Provider As String, Speed As Float, Time As Long)
Log("lm_LocationChanged")
End Sub