Italian Permessi GPS con Android 12

Sub GPS_LocationChanged (Location1 As Location)
    Latitude = Location1.Latitude
    Longitude = Location1.Longitude
    Log(Latitude & " -- " & Longitude)
End Sub

Sub Process_Globals

    Dim gps1 As GPS

Sub Activity_Create(FirstTime As Boolean)
   
    If FirstTime Then
        gps1.Initialize("gps")
    End If

If gps1.GPSEnabled = False Then
        ToastMessageShow("Abilitare il GPS sul tuo Device.", True)
        StartActivity(gps1.LocationSettingsIntent) 'Will open the relevant settings screen.
    Else
        Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
        Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
        If Result Then
            gps1.Start(0, 0) 'Listen to GPS with no filters.
        Else
            ToastMessageShow("GPS No permission!!!", True)
            Log("GPS No permission!!!")
        End If
    End If

AddManifestText(<uses-permission android:name="android.permission.ACCESS_FINE_LOCATION"/>)
AddManifestText(<uses-feature android:name="android.hardware.location.gps"/>)