/* ECP: FILEname=fig8_40.c */
/* 1*/   #define MaxStringLen 80
/* 2*/   #define StrConv1( Len ) ( "%" #Len "s" )
/* 3*/   #define StrConv( Len ) ( StrConv1( Len ) )

/* 4*/   int
/* 5*/   GetChoice( void )
/* 6*/   {
/* 7*/       int i;
/* 8*/       char Str[ MaxStringLen + 1 ];

/* 9*/       if( scanf( StrConv( MaxStringLen ), Str ) == 1 )
/*10*/           for( i = 0; i < DiffShapes; i++ )
/*11*/               if( strcmp( Str, ShapeNames[ i ] ) == 0 )
/*12*/                   return i;

/*13*/       return -1;
/*14*/   }