'Service module
Sub Process_Globals
    Dim PE As PhoneEvents
   Dim AC As AnswerCall
   Dim PhoneId As PhoneId
   
   
End Sub
Sub Service_Create
    PE.InitializeWithPhoneState("PE",PhoneId)
   AC.Initialize("AnswerCall")
   Log("Service created")
   
End Sub
Sub Service_Start
   Log("Service started.")
End Sub
Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
    Log("PhoneStateChanged, State = " & State & ", IncomingNumber = " & IncomingNumber)
    Log(Intent.ExtrasToString)
   ToastMessageShow(IncomingNumber,False)
   AC.LetPhoneRing(3000)
   If AC.isRinging == True Then
      AC.AnswerPhone
      
   End If
   AC.enableSpeakerphone
End Sub
Sub Service_Destroy
    
End Sub