home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaMiscModsCD3.iso / _PROGRAMME / PLAYER / GUI / EasyPlayer.lha / EYP / Source / modsrc / strings.e < prev    next >
Encoding:
Text File  |  1999-03-03  |  184 b   |  14 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. PROC strcopy(target:PTR TO CHAR,source:PTR TO CHAR)
  5. DEF i=0
  6.     IF source
  7.         REPEAT
  8.             target[i]:=source[i]
  9.             i++
  10.         UNTIL source[i]=0
  11.         target[i]:=0
  12.     ENDIF
  13. ENDPROC
  14.