home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / diglib.lha / Diglib / diglib.lzh / source / SCOPY.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  234 b   |  12 lines
  1.         SUBROUTINE SCOPY(STR1,STR2)
  2.     IMPLICIT NONE
  3.     INTEGER I
  4.         CHARACTER*1 STR1(40),STR2(40)
  5.         I=0
  6. 10      CONTINUE
  7.         I=I+1
  8.         STR2(I)=STR1(I)
  9.         IF (STR2(I).NE.CHAR(0)) GOTO 10
  10.         RETURN
  11.         END
  12.