home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.scopy < prev    next >
Text File  |  2020-01-01  |  382b  |  22 lines
  1. ; 16 jly 85 esj converted
  2. ;;;;;;;;;;;;;;;;;;;;;      SCOPY          ;;;;;;;;;;;;;;;;;;;;
  3.       E'F A:S(NWLS)
  4.       E'O SCOPY.(XFROM,I,XTO,J)
  5.  
  6.       I'R XFROM(1),XTO(1),I,J,K1,K2
  7.  
  8. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  9.  
  10.       K2=J
  11.       K1=I
  12.  
  13.       W'E (XFROM(K1).NE.EOS)
  14.          XTO(K2)=XFROM(K1)
  15.          K2=K2+1
  16.          K1=K1+1
  17.       E'W
  18.  
  19.       XTO(K2)=EOS
  20.       F'N
  21.       E'N
  22.