/* ECP: FILEname=fig9_8.c */
/* 1*/   int
/* 2*/   IsLeap( int Year )
/* 3*/   {
/* 4*/       if( Year % 4 )     /* Not Divisible By 4 */
/* 5*/           return 0;
/* 6*/       if( Year % 100 )   /* Divisible By 4, But Not 100 */
/* 7*/           return 1;
/* 8*/       if( Year % 400 )   /* Divisible By 100, But Not 400 */
/* 9*/           return 0;
/*10*/       return 1;          /* Divisible By 400 */
/*11*/   }