/* ECP: FILEname=fig8_17.c */
/* 1*/   char *
/* 2*/   Strcpy( char Lhs[ ], const char Rhs[ ] )
/* 3*/   {
/* 4*/       int i;

/* 5*/       if( Lhs != Rhs )
/* 6*/           for( i = 0; Lhs[ i ] = Rhs[ i ]; i++ )
/* 7*/               ;

/* 8*/       return Lhs;
/* 9*/   }