my $latlong = DXBearing::lltos($lat, $long) if $lat && $long;
if ($name) {
my $l = DXProt::pc41($DXProt::me, $call, 1, $name);
my $latlong = DXBearing::lltos($lat, $long) if $lat && $long;
if ($name) {
my $l = DXProt::pc41($DXProt::me, $call, 1, $name);