Sub Process_Globals
Dim Notification1 As Notification
Dim timer1 As Timer
End Sub
Sub Service_Create
Notification1.Initialize
'Notification1.Icon = "icon"
Service.StartForeground(1,Notification1)
timer1.Initialize("timer1",1000)
timer1.Enabled = True
End Sub
Sub Service_Start (StartingIntent As Intent)
End Sub
Sub Service_Destroy
timer1.Enabled = False
End Sub
Sub timer1_tick
CallSub(Main, "Clock")
End Sub