diff --git a/lib/decoder.f90 b/lib/decoder.f90
index 50c5e7cbf..bf22b643f 100644
--- a/lib/decoder.f90
+++ b/lib/decoder.f90
@@ -203,7 +203,7 @@ contains
   end subroutine jt4_average
 
   subroutine jt65_decoded(this,utc,sync,snr,dt,freq,drift,nflip,width,     &
-       decoded0,ft,qual,nsmo,nsum,minsync,nsubmode,naggressive)
+       decoded0,ft,qual,nsmo,nsum,minsync,nsubmode,naggressive,single_decode)
 
     use jt65_decode
     implicit none
@@ -225,11 +225,10 @@ contains
     integer, intent(in) :: minsync
     integer, intent(in) :: nsubmode
     integer, intent(in) :: naggressive
+    logical, intent(in) :: single_decode
 
     integer i,n
-    character*5 ctail
-    character*22 decoded
-    character*2 csync
+    character*5 ctail,decoded*22,csync*2,fmt*33
     character*36 c
     data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
 
@@ -238,8 +237,10 @@ contains
 !3301 format('decoded.f90:',6i3,f5.1)        !###
 
     decoded=decoded0
+    fmt='(i4.4,i4,f5.1,i5,1x,a1,1x,a22,a5)'
+    if(single_decode) fmt='(i4.4,i4,f5.1,i5,1x,a2,1x,a22,a5)'
     if(ft.eq.0 .and. minsync.ge.0 .and. int(sync).lt.minsync) then
-       write(*,1010) utc,snr,dt,freq
+       write(*,fmt) utc,snr,dt,freq
     else
        ctail='     '
        if(naggressive.gt.0 .and. ft.gt.0) then
@@ -269,8 +270,7 @@ contains
              endif
           endif
        endif
-       write(*,1010) utc,snr,dt,freq,csync,decoded,ctail
-1010   format(i4.4,i4,f5.1,i5,1x,a2,1x,a22,a5)
+       write(*,fmt) utc,snr,dt,freq,csync,decoded,ctail
     endif
 
     write(13,1012) utc,nint(sync),snr,dt,float(freq),drift,decoded,ft,nsum,nsmo
diff --git a/lib/jt65_decode.f90 b/lib/jt65_decode.f90
index bf941fce8..9596ccfa2 100644
--- a/lib/jt65_decode.f90
+++ b/lib/jt65_decode.f90
@@ -13,7 +13,8 @@ module jt65_decode
   !
   abstract interface
      subroutine jt65_decode_callback(this,utc,sync,snr,dt,freq,drift,     &
-          nflip,width,decoded,ft,qual,nsmo,nsum,minsync,nsubmode,naggressive)
+          nflip,width,decoded,ft,qual,nsmo,nsum,minsync,nsubmode,         &
+          naggressive,single_decode)
 
        import jt65_decoder
        implicit none
@@ -34,6 +35,7 @@ module jt65_decode
        integer, intent(in) :: minsync
        integer, intent(in) :: nsubmode
        integer, intent(in) :: naggressive
+       logical, intent(in) :: single_decode
 
      end subroutine jt65_decode_callback
   end interface
@@ -249,7 +251,7 @@ contains
                 if (associated(this%callback) .and. nsum.ge.2) then
                    call this%callback(nutc,sync1,nsnr,dtx-1.0,nfreq,ndrift,  &
                         nflip,width,avemsg,nftt,nqave,nsmo,nsum,minsync,     &
-                        nsubmode,naggressive)
+                        nsubmode,naggressive,single_decode)
                    prtavg=.true.
                    cycle
                 end if
@@ -301,7 +303,7 @@ contains
                 if (associated(this%callback)) then
                    call this%callback(nutc,sync1,nsnr,dtx-1.0,nfreq,ndrift,  &
                         nflip,width,decoded,nft,nqual,nsmo,nsum,minsync,     &
-                        nsubmode,naggressive)
+                        nsubmode,naggressive,single_decode)
                 end if
              endif
              decoded0=decoded
diff --git a/lib/jt65_test.f90 b/lib/jt65_test.f90
index d14110f35..bdfcf896c 100644
--- a/lib/jt65_test.f90
+++ b/lib/jt65_test.f90
@@ -38,7 +38,7 @@ contains
   end subroutine test
 
   subroutine my_callback (this,utc,sync,snr,dt,freq,drift,nflip,width,     &
-       decoded,ft,qual,smo,sum,minsync,submode,aggression)
+       decoded,ft,qual,smo,sum,minsync,submode,aggression,single_decode)
     use jt65_decode
     implicit none
 
@@ -59,12 +59,15 @@ contains
     integer, intent(in) :: minsync
     integer, intent(in) :: submode
     integer, intent(in) :: aggression
+    logical, intent(in) :: single_decode
+
     integer nwidth
     real t
 
     t=max(0.0,width*width-7.2)
     nwidth=max(nint(sqrt(t)),2)
 !### deal with nflip here! ###
+!### also single_decode, csync, etc... ###
     write(*,1010) utc,snr,dt,freq,decoded
 1010 format(i4.4,i4,f5.1,i5,1x,'#',1x,a22)
     write(13,1012) utc,nint(sync),snr,dt,freq,drift,nwidth,         &