/* ECP: FILEname=fig8_7.c */
/* 1*/   int
/* 2*/   ToUpper( char Ch )
/* 3*/   {
/* 4*/       switch( Ch )
/* 5*/       {
/* 6*/           case 'a': return 'A';
/* 7*/           case 'b': return 'B';
/* 8*/           case 'c': return 'C';
/* 9*/           case 'd': return 'D';
/*10*/           case 'e': return 'E';
/*11*/           case 'f': return 'F';
/*12*/           case 'g': return 'G';
/*13*/           case 'h': return 'H';
/*14*/           case 'i': return 'I';
/*15*/           case 'j': return 'J';
/*16*/           case 'k': return 'K';
/*17*/           case 'l': return 'L';
/*18*/           case 'm': return 'M';
/*19*/           case 'n': return 'N';
/*20*/           case 'o': return 'O';
/*21*/           case 'p': return 'P';
/*22*/           case 'q': return 'Q';
/*23*/           case 'r': return 'R';
/*24*/           case 's': return 'S';
/*25*/           case 't': return 'T';
/*26*/           case 'u': return 'U';
/*27*/           case 'v': return 'V';
/*28*/           case 'w': return 'W';
/*29*/           case 'x': return 'X';
/*30*/           case 'y': return 'Y';
/*31*/           case 'z': return 'Z';

/*32*/           default : return Ch;
/*33*/       }
/*34*/   }