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

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

/* 8*/       return Lhs[ i ] - Rhs[ i ];
/* 9*/   }