diff --git a/CMakeLists.txt b/CMakeLists.txt
index e1dd5989a..a330f6187 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -423,6 +423,7 @@ set (wsjt_FSRCS
   lib/ft8/ft8b.f90
   lib/ft8/ft8code.f90
   lib/ft8/ft8_downsample.f90
+  lib/ft8/ft8q3.f90
   lib/ft8/ft8sim.f90
   lib/gen4.f90
   lib/gen65.f90
@@ -1177,6 +1178,9 @@ target_link_libraries (ft4code wsjt_fort wsjt_cxx)
 add_executable (ft8sim lib/ft8/ft8sim.f90)
 target_link_libraries (ft8sim wsjt_fort wsjt_cxx)
 
+add_executable (ft8q3 lib/ft8/ft8q3.f90)
+target_link_libraries (ft8q3 wsjt_fort wsjt_cxx)
+
 add_executable (msk144sim lib/msk144sim.f90)
 target_link_libraries (msk144sim wsjt_fort wsjt_cxx)
 
diff --git a/lib/ft8/ft8b.f90 b/lib/ft8/ft8b.f90
index d96cbd9c7..c66a8d92f 100644
--- a/lib/ft8/ft8b.f90
+++ b/lib/ft8/ft8b.f90
@@ -104,6 +104,12 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon,     &
   call timer('ft8_down',0)
   call ft8_downsample(dd0,newdat,f1,cd0)   !Mix f1 to baseband and downsample
   call timer('ft8_down',1)
+  if(f1.eq.1500.0) then
+     do i=0,3199
+        write(40,3040) i,i/200.0,cd0(i)
+3040    format(i5,f10.6,2x,2f10.3)
+     enddo
+  endif
 
   i0=nint((xdt+0.5)*fs2)                   !Initial guess for start of signal
   smax=0.0