From daa2ffd27a33d8947287db09b902b188b12cce79 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 5 Sep 2006 16:27:29 +0000
Subject: [PATCH] Changed the deep65 bug workaround from "rewind 23" to "call
 sleepqqq(1)".

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@273 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 deep65.F   | 14 +++++++-------
 runqqq.F90 | 11 +++++++++++
 wsjt.py    |  3 ---
 3 files changed, 18 insertions(+), 10 deletions(-)

diff --git a/deep65.F b/deep65.F
index 1e70933d4..0229c2435 100644
--- a/deep65.F
+++ b/deep65.F
@@ -5,12 +5,11 @@
       real s3(64,63)
       character callsign*12,grid*4,message*22,hisgrid*6,c*1,ceme*3
       character*12 mycall,hiscall
-      character*22 decoded,deepmsg
+      character*22 decoded
       character*22 testmsg(2*MAXCALLS + 2 + MAXRPT)
       character*15 callgrid(MAXCALLS)
       character*180 line
       character*4 rpt(MAXRPT)
-      logical first
       integer ncode(63,2*MAXCALLS + 2 + MAXRPT)
       real pp(2*MAXCALLS + 2 + MAXRPT)
       common/tmp9/ mrs(63),mrs2(63)
@@ -61,7 +60,7 @@
             if(neme.eq.1 .and. ceme.ne.'EME') go to 10
          endif
 
- 5       icall=icall+1
+         icall=icall+1
          j1=index(mycall,' ') - 1
          if(j1.le.-1) j1=12
          if(j1.lt.3) j1=6
@@ -120,7 +119,7 @@ C  Insert CQ message unless sync=OOO (flip=-1).
             p1=p
             ip1=k
          endif
- 30   enddo
+      enddo
 
       p2=-1.e30
       do i=1,ntot
@@ -133,9 +132,10 @@ C  Insert CQ message unless sync=OOO (flip=-1).
 
 
 C  This is really weird, but do not remove the following statements!
-      write(77,*) mode65,bias,p1,p2
-      rewind 77
-      rewind 23
+!      write(77,*) mode65,bias,p1,p2
+!      rewind 77
+!      rewind 23
+      call sleepqqq(1)
 
       qual=100.0*(p1-bias)
       decoded='                      '
diff --git a/runqqq.F90 b/runqqq.F90
index e915fc47f..9755b5d28 100644
--- a/runqqq.F90
+++ b/runqqq.F90
@@ -27,3 +27,14 @@ subroutine flushqqq(lu)
   return
 end subroutine flushqqq
 
+subroutine sleepqqq(n)
+#ifdef Win32
+  use dflib
+      call sleepqq(n)
+#else
+      call usleep(n*1000)
+#endif
+
+  return
+
+end subroutine sleepqqq
diff --git a/wsjt.py b/wsjt.py
index 58bd5d05d..33b7ad32f 100644
--- a/wsjt.py
+++ b/wsjt.py
@@ -1833,13 +1833,10 @@ HisGrid=Entry(f5a,width=9)
 HisGrid.grid(column=1,row=1,pady=1)
 bAdd=Button(f5a, text='Add',command=addtodb,padx=1,pady=1)
 bAdd.grid(column=2,row=1,sticky='EW',padx=4)
-#labAz=Label(f5a,text='Az 257  El 15',width=11,font=(font1,9))
 labAz=Label(f5a,text='Az 257  El 15',width=11)
 labAz.grid(column=1,row=2)
-#labHotAB=Label(f5a,bg='#FFCCFF',text='HotA: 247',font=(font1,9))
 labHotAB=Label(f5a,bg='#FFCCFF',text='HotA: 247')
 labHotAB.grid(column=0,row=2,sticky='EW',padx=4,pady=3)
-#labDist=Label(f5a,text='16753 km',font=(font1,9))
 labDist=Label(f5a,text='16753 km')
 labDist.grid(column=2,row=2)