mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-16 09:01:59 -05:00
c470611cc9
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8446 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
19 lines
428 B
Fortran
19 lines
428 B
Fortran
program twq
|
|
|
|
character*22 msg0,msg
|
|
integer*1 data0(11)
|
|
|
|
open(10,file='wqmsg.txt',status='old')
|
|
write(*,1000)
|
|
1000 format(4x,'Encoded message',9x,'Decoded as',12x,'itype'/55('-'))
|
|
|
|
do line=1,9999
|
|
read(10,*,end=999) msg0
|
|
call wqenc(msg0,itype,data0)
|
|
call wqdec(data0,msg,ntype)
|
|
write(*,1100) line,msg0,msg,ntype
|
|
1100 format(i2,'.',1x,a22,2x,a22,i3)
|
|
enddo
|
|
|
|
999 end program twq
|