; 18 jly 85 esj converted
;;;;;;;;;;;;         CHTOIN             ;;;;;;;;;;;;;;;;;;;;;;;;;;;;C
      E'F A:S(NWLS)
      E'O CHTOIN.(CSTRING,ISTRING,ILENGTH)

;     converts a character string into an integer array, using only the
;     the last 7 bits, also added an extra EOS into the end of the
;     integer array string

;     CSTRING is the character string
;     ISTRING is the integer array which will hold the new string
;     ILENGTH tell how long the character string is

/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF

      I'R ISTRING(1),ILENGTH

      I = 0
      W'E I.L. ILENGTH
         ISTRING(I) = LDBYTT.(CSTRING, I) .LAND. '7F'
         I = I + 1
      E'W

      ISTRING(I) = EOS
      F'N
      E'N

.