//--------------------------------------------------------------------------
//! Advance to subpage "page" or to the next page if "page" = 0.
//!
//! @param page Subpage identifier or 0
//!
void
c_pladv( PLINT page )
{
if ( m_plsc->level < 1 )
{
plabort( "pladv: Please call plinit first" );
return;
}
if ( page > 0 && page <= m_plsc->nsubx * m_plsc->nsuby )
m_plsc->cursub = page;
else if ( page == 0 )
{
if ( m_plsc->cursub >= m_plsc->nsubx * m_plsc->nsuby )
{
plP_eop();
plP_bop();
m_plsc->cursub = 1;
}
else
m_plsc->cursub++;
}
else
{
plabort( "pladv: Invalid subpage number" );
return;
}
plP_setsub();
}
void
c_plbop(void)
{
if (plsc->level < 1) {
plabort("pladv: Please call plinit first");
return;
}
plP_bop();
plsc->cursub = 1;
plP_setsub();
}