program jt9code

! Generate simulated data for testing of WSJT-X

  parameter (NMAX=1800*12000)
  character msg*22,msg0*22,decoded*22

  integer*4 i4tone(85)             !Channel symbols (values 0-8)
  integer*1 i1
  equivalence (i1,i4)
  include 'jt9sync.f90'
  common/acom/dat(NMAX),iwave(NMAX)

  nargs=iargc()
  if(nargs.ne.1) then
     print*,'Usage: jt9code "message"'
     go to 999
  endif

  call getarg(1,msg0)
  write(*,1000) msg0
1000 format('Message:',3x,a22)
  msg=msg0
  ichk=0
  itext=0
  call genjt9(msg,ichk,decoded,i4tone,itext)       !Encode message into tone #s
  write(*,1002) i4tone
1002 format('Channel symbols:'/(30i2))
  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