#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
Dim Time As Timer
Dim Counter As Int
Counter = 0
End Sub
Sub Service_Create
Log("--Service Started--")
Time.Initialize ( "Time", 1000 )
Time.Enabled = True
End Sub
Sub Time_Tick
Counter = Counter + 1
Log(Counter)
If Counter = 5 Then
CallSubDelayed(Main, "CreateLists")
Counter = 0
End If
End Sub
Sub Service_Start (StartingIntent As Intent)
End Sub
Sub Service_Destroy
Time.Enabled = False
End Sub