+# create a dx message (call, freq, dxcall, text, $ipaddr) see also pc11
+sub pc61
+{
+ my ($mycall, $freq, $dxcall, $text, $ipaddr) = @_;
+ my $hops = get_hops(61) || get_hops(11);
+ my $t = time;
+ $text = ' ' if !$text;
+ $text =~ s/\^/~/g;
+ return sprintf "PC61^%.1f^$dxcall^%s^%s^$text^$mycall^$main::mycall^$ipaddr^$hops^~", $freq, cldate($t), ztime($t);
+}
+