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