+
+# every thing is dealt with in upper case
+$line = uc $line;
+
+# convert a lat/long into a qra locator if we see a pattern looking like a lat/long
+if (is_latlong($line)) {
+ my ($llat, $llong) = DXBearing::stoll(uc $line);
+ return (1, "QRA $line = " . DXBearing::lltoqra($llat, $llong));
+}
+
+# get the user's lat/long else the cluster's (and whinge about it)