//<!--
myval1 = new Array(512);
myval2 = new Array(512);
myval3 = new Array(512);
myval4 = new Array(512);
myval5 = new Array(512);
myval6 = new Array(512);
myval7 = new Array(512);
myval8 = new Array(512);


function myval_gets_new_item(ik) {
   if (ik<=250) myval1[ik] = new Array(5)
   else {
      if (ik<=500) myval2[ik-250] = new Array(5)
      else {
	     if (ik<=750) myval3[ik-500] = new Array(5)
		 else {
	        if (ik<=1000) myval4[ik-750] = new Array(5)
			else myval5[ik-1000] = new Array(5)
         }
      }
   }
}

function myval_xl_in(ni,nk,mv) {
  if (ni<=250) myval1[ni][nk]=mv
  else {
    if (ni<=500) myval2[ni-250][nk]=mv
    else {
	  if (ni<=750) myval3[ni-500][nk]=mv
	  else {
	     if (ni<=1000) myval4[ni-750][nk]=mv
	     else myval5[ni-1000][nk]=mv
	  }
    }
  }
}

function myval_xl_out(ni,nk) {
  if (ni<=250) return myval1[ni][nk]
  else {
    if (ni<=500) return myval2[ni-250][nk]
    else {
	  if (ni<=750) return myval3[ni-500][nk]
      else {
	    if (ni<=1000) return myval4[ni-750][nk]
	    else return myval5[ni-1000][nk]
	  }
    }
  }
}

function substring_eval(sa,sb)
{
   usa=sa.toUpperCase();
   usb=sb.toUpperCase();
   lsa = sa.length;
   lsb = sb.length;
   if (lsa>lsb) return false
   else {
      for (j=0;j<=lsb-lsa;j++) {
	     if (usb.substring(j,j+lsa) == usa) return true
	  }
   }
}

// ***********   INITIUM


for (k=1;k<=dblength;k++) {
  myval_gets_new_item(k)
}

auxp=0;

// ****** THE POWERFUL, THE ONE AND ONLY: BEAUTIFUL PARSER ************

for (ik=1;ik<=dblength;ik++)
{
 s=db[ik]
 ls=s.length;
 counter=0;
 for(i=ls; i>0; i--)
 {
   ss=s.substring(ls-i,ls-i+1);
   aux=s.substring(ls-i+1,ls-i+2);
   if (ss!='|') {
     sss=ss;
     n=1;
     while (aux!='|')
     {
       sss=sss+aux;
       n++;
       aux=s.substring(ls-i+n,ls-i+1+n);
	 }
   } else {
     n=0;
     sss='';
   }
   i=i-n;
   counter++;
   myval_xl_in(ik,counter,sss);
 }
}

// ***** END OF PARSER ************************************************

function show_header() {
document.write(' ')
}
//-->