From 190aef8a36a219ec2c9062f9f5a0e81ce4390739 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 28 Jun 2018 14:12:05 -0400
Subject: [PATCH] Add column headings for encode77.

---
 lib/77bit/77bit.txt    | 2 +-
 lib/77bit/encode77.f90 | 8 ++++++--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/lib/77bit/77bit.txt b/lib/77bit/77bit.txt
index d689566a3..f463fbbc8 100644
--- a/lib/77bit/77bit.txt
+++ b/lib/77bit/77bit.txt
@@ -38,7 +38,7 @@ Facts about the 28-bit integers used to encode standard callsigns:
   37*36*10*27*27*27 = 262,177,560  Used for standard callsigns
                       -----------
                         6,257,896  Difference
-  2^22              =   4,194,304  Used for 22-bit hash code
+  2^22              =   4,194,304  Used for 22-bit hash codes
                       -----------
                         2,063,592  available for CQ, CQ xx, CQ nnn, QRZ, etc.
 
diff --git a/lib/77bit/encode77.f90 b/lib/77bit/encode77.f90
index 7e1d0eff0..ed2c81bb0 100644
--- a/lib/77bit/encode77.f90
+++ b/lib/77bit/encode77.f90
@@ -5,6 +5,10 @@ program encode77
 
   nargs=iargc()
   open(10,file='messages.txt',status='old')
+
+  write(*,1000)
+1000 format('i3.n3 Err Message to be encoded                 Decoded message'/ &
+          80('-'))
   
   do iline=1,999
      if(nargs.eq.1) then
@@ -19,9 +23,9 @@ program encode77
      cerr=' '
      if(msg.ne.msg0) cerr='*'
      if(i3.eq.0) write(*,1004) i3,n3,cerr,msg0,msg
-1004 format(i1,'.',i1,1x,a1,1x,a37,1x,a37)
+1004 format(i2,'.',i1,2x,a1,3x,a37,1x,a37)
      if(i3.ge.1) write(*,1005) i3,cerr,msg0,msg
-1005 format(i1,3x,a1,1x,a37,1x,a37)
+1005 format(i2,'.',3x,a1,3x,a37,1x,a37)
      if(nargs.eq.1) exit
   enddo