Enhance packjt77 to include 50-bit WSPR-style messages. Build encode77[.exe].

lib/77bit/encode77.f90

@@ -6,6 +6,8 @@ program encode77
   character msg*37,cerr*1
   character*77 c77
   character*80 infile
+  character*13 w(19)
+  integer nw(19)
   logical unpk77_success
 
   nargs=iargc()
@@ -15,6 +17,7 @@ program encode77
      go to 999
   endif
   call getarg(1,msg0)
+  call fmtmsg(msg0,iz)
   if(nargs.eq.2) then
      call getarg(2,infile)
      open(10,file=infile,status='old')
@@ -37,10 +40,18 @@ program encode77
      call unpack77(c77,1,msg,unpk77_success)
      cerr=' '
      if(msg.ne.msg0(1:37)) cerr='*'
-     if(i3.eq.0) write(*,1004) i3,n3,cerr,msg0(1:37),msg
-1004 format(i2,'.',i1,2x,a1,3x,a37,1x,a37)
-     if(i3.ge.1) write(*,1005) i3,cerr,msg0(1:37),msg
-1005 format(i2,'.',3x,a1,3x,a37,1x,a37)
+     if(i3.eq.0 .and.n3.ne.6) write(*,1004) i3,n3,cerr,msg0(1:37),msg
+1004 format(i2,'.',i1,4x,a1,1x,a37,1x,a37)
+     if(i3.eq.0 .and.n3.eq.6) then
+        call split77(msg,nwords,nw,w)
+        j2=0
+        if(nwords.eq.2 .and. len(w(2)).le.2) j2=1
+        if(nwords.eq.2 .and. len(w(2)).eq.6) j2=2
+        write(*,1005) i3,n3,j2,cerr,msg0(1:37),msg
+1005    format(i2,'.',i1,'.',i1,2x,a1,1x,a37,1x,a37)
+     endif
+     if(i3.ge.1) write(*,1006) i3,cerr,msg0(1:37),msg
+1006 format(i2,'.',5x,a1,1x,a37,1x,a37)
      if(nargs.eq.1) exit
   enddo