/* ECP: FILEname=fig12_12.c */
/* 1*/   /* Skip Over Current Lines And Any Subsequent Blank Lines */

/* 2*/   void
/* 3*/   SkipLines( FILE *Fp )
/* 4*/   {
/* 5*/       int Ch;

/* 6*/       while(  ( Ch = getc( Fp ) ) != EOF )
/* 7*/           if( Ch == '\n' )    /* End Of Current Line */
/* 8*/           {
/* 9*/                   /* Skip Over Newlines */
/*10*/               while( ( Ch = getc( Fp ) ) != EOF && Ch == '\n' )
/*11*/                   ;

/*12*/                   /* Push Back Non-Newline */
/*13*/               if( Ch != EOF )
/*14*/                   ungetc( Ch, Fp );

/*15*/               break;
/*16*/           }
/*17*/   }