w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add several more messages for testing.

This commit is contained in:
Joe Taylor 2019-01-15 20:19:18 -05:00
parent 4a4a83f021
commit 60fb12dcd4
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft2/ft2.f90
View File

@ -94,7 +94,11 @@ subroutine update(total_time,ic1,ic2)
ntxok=1
if(nd.eq.1) txmsg='CQ K1JT FN20'
if(nd.eq.2) txmsg='K9AN K1JT 559 NJ'
if(nd.eq.3) txmsg='K9AN K1JT R 559 NJ'
if(nd.eq.4) txmsg='K9AN K1JT RR73'
if(nd.eq.5) txmsg='TNX STEVE 73'
call ft2_iwave(txmsg,1500.0,99.0,iwave)
print*,'Tx: ',txmsg
endif
endif
if(ic1.eq.13 .and. ic2.eq.0) hiscall=hiscall_next