Sub CheckRT(permissionstring As String)
Starter.RT.CheckAndRequest(permissionstring)
Wait For Activity_PermissionResult (permission As String, Result As Boolean)
Log($"Status: ${Starter.RT.Check(permissionstring)} : ${permissionstring}"$)
If Result = False Then
log('permission failed')
Return
Else
Dim pid As PhoneId
Log("phone id: " & pid)
End If
End Sub