home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.scopy
< prev
next >
Wrap
Text File
|
1987-02-19
|
382b
|
22 lines
; 16 jly 85 esj converted
;;;;;;;;;;;;;;;;;;;;; SCOPY ;;;;;;;;;;;;;;;;;;;;
E'F A:S(NWLS)
E'O SCOPY.(XFROM,I,XTO,J)
I'R XFROM(1),XTO(1),I,J,K1,K2
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
K2=J
K1=I
W'E (XFROM(K1).NE.EOS)
XTO(K2)=XFROM(K1)
K2=K2+1
K1=K1+1
E'W
XTO(K2)=EOS
F'N
E'N