+sub finish
+{
+
+}
+
+#
+# some active measures
+#
+
+sub broadcast
+{
+ my $s = shift;
+ $s = shift if ref $s; # if I have been called $self-> ignore it.
+ my @except = @_; # to all channels EXCEPT these (dxchannel refs)
+ my @chan = DXChannel->get_all();
+ my ($chan, $except);
+
+L: foreach $chan (@chan) {
+ next if $chan->sort != 'A'; # only interested in ak1a channels
+ foreach $except (@except) {
+ next L if $except == $chan; # ignore channels in the 'except' list
+ }
+ chan->send($s); # send it
+ }
+}
+
+#
+# All the PCxx generation routines
+#
+
+sub pc18