1subroutine encode65(message,sent)
2
3  use packjt
4  character message*22
5  integer dgen(12)
6  integer sent(63)
7
8  call packmsg(message,dgen,itype)
9  call rs_encode(dgen,sent)
10  call interleave63(sent,1)
11  call graycode(sent,63,1)
12
13  return
14end subroutine encode65
15