'In Main Activity:
Sub Activity_Create(FirstTime As Boolean)
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) '
Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
If PResult = False Then
MsgboxAsync("No permission to access external storage", "")
Return
Else
Log("external storage")
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION) '
Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
If PResult = False Then
MsgboxAsync("No permission to access loc", "")
Return
Else
Log("fine loc")
End If
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 id", "")
Return
Else
Dim pid As PhoneId
Log("phone id: " & pid)
End If
Activity.LoadLayout("Layout1")
End Sub