w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 14:42:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@158 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2006-04-10 23:42:13 +00:00
parent 9506e46c52
commit 4dc7caf73c
2 changed files with 20 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
wsjtgen.F90
View File

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

6
wsjtrc.win
View File

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