'starter
Dim rp As RuntimePermissions
'activiti(main)
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE) '
Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
If PResult = False Then
MsgboxAsync("No permission to access PHONE STATE", "")
Return
Else
Dim pid As PhoneId
Log("phone id: " & pid)
End If