#Region Service Attributes
#StartAtBoot: True
#End Region
Sub Process_Globals
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
Dim p As Period
p.Days = 1
Dim tomorrow As Long = DateUtils.AddPeriod(DateTime.Now, p)
Dim wed As Int = 4
Dim fri As Int = 6
Dim today As Int = DateTime.GetDayOfWeek(DateTime.Now)
If today <> wed AND today <> fri Then
StartServiceAt("", tomorrow, True)
Else
Dim n As Notification
n.Initialize
n.Icon = "icon"
n.SetInfo("Title", "Message", Main)
n.Notify(1)
End If