; 18 jly 85 esj converted
;;;;;;;;;;;; PACK           ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   E'F A:S(NWLS)
   E'O PACK.(XFROM,XTO)

;     pack the integer array of XFROM into the array of XTO

; input
   I'R XFROM(*)   ; string in kermit format

; output
   I'R XTO        ; array XTO is a cv format string array


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

   I = 0
   XTO = 0

   W'E XFROM(I) .NE. EOS
      E'E PACKLINE.(XFROM(I), XTO)
      I = I + 1
   E'W
   F'N
   E'N