; 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