....
Dim GetAddressJob As HttpJob
GetAddressJob.Initialize("GetAddress", Me)
' https://api.open-meteo.com/v1/elevation?latitude=37.42&longitude=-122.08
' GetAddressJob.Download2("https://api.open-meteo.com/v1/elevation", Array As String("latitude", lat, "longitude", lon))
GetAddressJob.Download("https://api.open-meteo.com/v1/elevation" & $"?latitude=${lat}&longitude=${lon}"$)
Wait For (GetAddressJob) JobDone(GetAddressJob As HttpJob)
If GetAddressJob.Success Then
Dim parser As JSONParser
parser.Initialize(GetAddressJob.GetString)
Dim root As Map = parser.NextObject
Dim elevation As Float = root.Get("elevation")
Log("i" & elevation)
End If
GetAddressJob.Release
.....