source: buchla-68k/orig/CLIBRARY/STRCPY.C@ a838f5b

/*
   =============================================================================
        strcpy.c -- copy string
        Version 1 -- 1987-06-12

        Copy string s2 to s1.  s1 must be large enough.
        return s1
   =============================================================================
*/

char *
strcpy(s1, s2)
register char *s1, *s2;
{
        register char *os1;

        os1 = s1;

        while(*s1++ = *s2++)
                ;

        return(os1);
}