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

@@ -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='                      '

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

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)