/* ECP: FILEname=fig8_21.c */
/* 1*/   /* Incorrect Routine That Will Work On Almost All Machines */

/* 2*/   unsigned int
/* 3*/   WrongStrlen( const char * const Str )
/* 4*/   {
/* 5*/       const char *Sp = Str - 1;    /* Illegal Pointer */

/* 6*/       while( *++Sp )
/* 7*/           ;

/* 8*/       return Sp - Str;
/* 9*/   }