function tabsystem_oom(TPID, id)

{

  var tabsystem = document.getElementById(TPID);

  var TTs = tabsystem.firstChild;

  while (TTs.className != "TTs" ) TTs = TTs.nextSibling;

  var TT = TTs.firstChild;

  var i   = 0;

  do

  {

    if (TT.tagName == "A")

    {

      i++;

      TT.href      = "javascript:tabsystem_ubah('"+TPID+"', "+i+");";

      TT.className = (i == id) ? "Active" : "";

      TT.blur();

    }

  }

  while (TT = TT.nextSibling);

  var tabgroup = tabsystem.firstChild;

  while (tabgroup.className != 'tabgroup') tabgroup = tabgroup.nextSibling;

  var tabindividual = tabgroup.firstChild;

  var i    = 0;

  do

  {

    if (tabindividual.className == 'tabindividual')

    {

      i++;

      if (tabgroup.offsetHeight) tabindividual.style.height = (tabgroup.offsetHeight-2)+"px";

      tabindividual.style.overflow = "auto";

      tabindividual.style.display  = (i == id) ? 'block' : 'none';

    }

  }

  while (tabindividual = tabindividual.nextSibling);

}

function tabsystem_ubah(TPID, id) { tabsystem_oom(TPID, id); 

}

function tabsystem_inisial(TPID) { tabsystem_oom(TPID,  1); 

}