Implement "CQ n MyCall", to be used by Fox to invite calls from selected call area.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8485 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

doc/user_guide/en/controls-functions-center.adoc

@@ -56,7 +56,8 @@ and reception in ISCAT, MSK144, and the fast JT9 modes.
 MSK144 and the fast JT9 submodes you can activate the spinner control
 *Tx CQ nnn* by checking the box to its right.  The program will then
 generate something like `CQ nnn K1ABC FN42` for your CQ message, where
-`nnn` is the kHz portion of your current operating frequency.  Your CQ
+`nnn` is the kHz portion of your current operating frequency,
+in the range 010 to 999.  Your CQ
 message *Tx6* will then be transmitted at the calling frequency
 selected in the *Tx CQ nnn* spinner control.  All other messages will
 be transmitted at your current operating frequency.  On reception,

lib/packjt.f90

@@ -429,6 +429,8 @@ subroutine packbits(dbits,nsymd,m0,sym)
    end if
 
    call fmtmsg(msg,iz)
+   if(msg(1:3).eq.'CQ ' .and. msg(4:4).ge.'0' .and. msg(4:4).le.'9'   &
+        .and. msg(5:5).eq.' ') msg='CQ 00'//msg(4:)
 
    if(msg(1:6).eq.'CQ DX ') msg(3:3)='9'
    if(msg(1:3).eq.'CQ ' .and.                                         &
@@ -658,6 +660,9 @@ subroutine packbits(dbits,nsymd,m0,sym)
 
    if(bcontest) call fix_contest_msg(mygrid,msg)
 
+   if(msg(1:5).eq.'CQ 00' .and. msg(6:6).ge.'0' .and.                 &
+        msg(6:6).le.'9') msg='CQ '//msg(6:)
+
    return
  end subroutine unpackmsg