my $date = ((($dayno << 1) | $ntpflag) << 18) | ($main::systime % 86400);
my $r = "$mycall," . sprintf('%6X%04X,0', $date, $seqno);
$r .= ",$to" if $to;
my $date = ((($dayno << 1) | $ntpflag) << 18) | ($main::systime % 86400);
my $r = "$mycall," . sprintf('%6X%04X,0', $date, $seqno);
$r .= ",$to" if $to;