#Region Service Attributes
#StartAtBoot: True
#End Region
Sub Process_Globals
Dim PhoneWakeState1 As PhoneWakeState
Dim PhoneEvents1 As PhoneEvents
End Sub
Sub Service_Start(StartingIntent As Intent)
Dim n As Notification
n.Initialize
n.Icon="icon"
n.Sound=False
n.Light = False
n.Vibrate = False
n.SetInfo("Alarm","Listening for a Alarm Message",Main)
Service.StartForeground(1,n)
PhoneWakeState1.PartialLock
PhoneEvents1.Initialize("PhoneEvents1")
End Sub