home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.pack < prev    next >
Text File  |  2020-01-01  |  478b  |  26 lines
  1. ; 18 jly 85 esj converted
  2. ;;;;;;;;;;;; PACK           ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3.    E'F A:S(NWLS)
  4.    E'O PACK.(XFROM,XTO)
  5.  
  6. ;     pack the integer array of XFROM into the array of XTO
  7.  
  8. ; input
  9.    I'R XFROM(*)   ; string in kermit format
  10.  
  11. ; output
  12.    I'R XTO        ; array XTO is a cv format string array
  13.  
  14.  
  15. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  16.  
  17.    I = 0
  18.    XTO = 0
  19.  
  20.    W'E XFROM(I) .NE. EOS
  21.       E'E PACKLINE.(XFROM(I), XTO)
  22.       I = I + 1
  23.    E'W
  24.    F'N
  25.    E'N
  26.