USING System
USING System.ServiceProcess
USING System.Diagnostics
USING System.Timers

FUNCTION Start() AS VOID
    ServiceBase.Run(VulcanService{})
    RETURN

CLASS VulcanService INHERIT ServiceBase
    PROTECTED timer AS Timer

CONSTRUCTOR() CLASS VulcanService
    SUPER()

    CanPauseAndContinue := TRUE
    ServiceName := "Vulcan Sample Service"

    timer := Timer{}
    timer:Interval := 10000
    timer:Elapsed