home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff267.lzh / Diglib / diglib.zoo / diglib / SCOPY.FOR < prev    next >
Text File  |  1989-06-20  |  208b  |  10 lines
  1.         SUBROUTINE SCOPY(STR1,STR2)
  2.         CHARACTER*1 STR1(40),STR2(40)
  3.         I=0
  4. 10      CONTINUE
  5.         I=I+1
  6.         STR2(I)=STR1(I)
  7.         IF (STR2(I).NE.CHAR(0)) GOTO 10
  8.         RETURN
  9.         END
  10.