From 85da2bbb188e25e87acabb0b0e664e3209dde4fc Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sun, 4 Jul 2021 12:19:29 -0400
Subject: [PATCH] Correct the formatting of Q65 messages to livecq.

---
 map65/libm65/display.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/map65/libm65/display.f90 b/map65/libm65/display.f90
index a9f9ffab8..006ae7b9a 100644
--- a/map65/libm65/display.f90
+++ b/map65/libm65/display.f90
@@ -127,6 +127,8 @@ subroutine display(nkeep,ftol)
         livecq=line3(k)(6:13)//line3(k)(28:31)//line3(k)(39:45)//       &
              line3(k)(23:27)//line3(k)(35:38)//line3(k)(46:70)//        &
              line3(k)(73:77)
+        if(livecq(56:56).eq.':') livecq(56:58)=' '//livecq(56:57)
+        print*,'= ',trim(livecq)
         if(index(livecq,' CQ ').gt.0 .or. index(livecq,' QRZ ').gt.0 .or.   &
            index(livecq,' QRT ').gt.0 .or. index(livecq,' CQV ').gt.0 .or.  &
            index(livecq,' CQH ').gt.0) write(19,1029) livecq