w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2026-06-18 13:48:43 -04:00
Code Issues Packages Projects Releases Wiki Activity

Implemented "CQ DX " by disguising it as callsign "CQ9DX ".

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2791 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
2012-12-11 18:50:07 +00:00
parent 52f7656c0a
commit d1289e23f3
6 changed files with 25 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/jt9code.f90
+6 -2
View File
@@ -26,10 +26,14 @@ program jt9code
write(*,1000) msg0
1000 format('Message:',3x,a22)
msg=msg0
call genjt9(msg,decoded,i4tone) !Encode message into tone #s
ichk=0
itext=0
call genjt9(msg,ichk,decoded,i4tone,itext) !Encode message into tone #s
write(*,1002) i4tone
1002 format('Channel symbols:'/(30i2))
write(*,1004) decoded
if(itext.eq.0) write(*,1004) decoded
1004 format('Decoded message:',1x,a22)
if(itext.ne.0) write(*,1005) decoded
1005 format('Decoded message:',1x,a22,3x,'(free text)')
999 end program jt9code