home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / 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.