Fixed logic for transmission of test files in wsjtgen.F90.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@158 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

wsjtgen.F90

@@ -60,9 +60,8 @@ subroutine wsjtgen
 
   if(msg(1:1).eq.'@') then
      if(msg(2:2).eq.'/' .or. ichar(msg(2:2)).eq.92) then
-        if(msg(2:).ne.testfile) then
+        txmsg=msg
         testfile=msg(2:)
-
 #ifdef Win32
         open(18,file=testfile,form='binary',status='old',err=12)
 #else
@@ -81,10 +80,10 @@ subroutine wsjtgen
         do i=nwave,NTXMAX
            iwave(i)=0
         enddo
-        endif
         go to 999
      endif
      
+
 ! Transmit a fixed tone at specified frequency
      freq=1000.0
      if(msg(2:2).eq.'A' .or. msg(2:2).eq.'a') freq=882

wsjtrc.win

@@ -1,6 +1,6 @@
-*font:			Arial 9
-*Label*font:		Arial 9
-*Text*font:		"Courier New" 10
+*font:			Arial 8
+*Label*font:		Arial 8
+*Text*font:		"Courier New" 9
 *background:		gray85
 *Text*background:	white
 *Entry*background:	white