From 3cde83ceb5be9d658a509d7972d5f2f0451be1e3 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Mon, 2 Oct 2017 14:15:15 +0000
Subject: [PATCH] Special DXpedition messages must not have the FreeText bit
 set.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8155 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/fsk4hf/ft8b.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/fsk4hf/ft8b.f90 b/lib/fsk4hf/ft8b.f90
index 9d620d61a..3049dfd43 100644
--- a/lib/fsk4hf/ft8b.f90
+++ b/lib/fsk4hf/ft8b.f90
@@ -364,14 +364,15 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,napwid,       &
      endif
 !###
      i3bit=4*decoded(73) + 2*decoded(74) + decoded(75)
+     iFreeText=decoded(57)
 !     if(nbadcrc.eq.0) write(*,3001) nharderrors,nbadcrc,i3bit
 !3001 format('A',3i5)
 !###     
      if(nbadcrc.eq.0) then
         call extractmessage174(decoded,message,ncrcflag,recent_calls,nrecent)
         call genft8(message,mygrid6,bcontest,i3bit,msgsent,msgbits,itone)
-        if(i3bit.eq.1) message(21:21)='1'
-        if(i3bit.eq.2) message(21:21)='2'
+        if(i3bit.eq.1 .and. iFreeText.eq.0) message(21:21)='1'
+        if(i3bit.eq.2 .and. iFreeText.eq.0) message(21:21)='2'
         if(lsubtract) call subtractft8(dd0,itone,f1,xdt2)
         xsig=0.0
         xnoi=0.0