home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.pack
< prev
next >
Wrap
Text File
|
1987-02-19
|
478b
|
26 lines
; 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