function FP_swapImg() {//v1.0
 var doc=document,args=arguments,elm,n; doc.$imgSwaps=new Array(); for(n=2; n<args.length;
 n+=2) { elm=FP_getObjectByID(args[n]); if(elm) { doc.$imgSwaps[doc.$imgSwaps.length]=elm;
 elm.$src=elm.src; elm.src=args[n+1]; } }
}

function FP_preloadImgs() {//v1.0
 var d=document,a=arguments; if(!d.FP_imgs) d.FP_imgs=new Array();
 for(var i=0; i<a.length; i++) { d.FP_imgs[i]=new Image; d.FP_imgs[i].src=a[i]; }
}

function FP_getObjectByID(id,o) {//v1.0
 var c,el,els,f,m,n; if(!o)o=document; if(o.getElementById) el=o.getElementById(id);
 else if(o.layers) c=o.layers; else if(o.all) el=o.all[id]; if(el) return el;
 if(o.id==id || o.name==id) return o; if(o.childNodes) c=o.childNodes; if(c)
 for(n=0; n<c.length; n++) { el=FP_getObjectByID(id,c[n]); if(el) return el; }
 f=o.forms; if(f) for(n=0; n<f.length; n++) { els=f[n].elements;
 for(m=0; m<els.length; m++){ el=FP_getObjectByID(id,els[n]); if(el) return el; } }
 return null;
}


var current = 0
		var x = 0
		var speed = 60
		var speed2 = 2000
		var cont = 0

		function initArray(n) {
		  this.length = n;
		  for (var i =1; i <= n; i++) {
			this[i] = ' '
		  }
		}

		typ = new initArray(6)

		typ[0]="*www.reglasdecalculo.com - Toda la informacion sobre Reglas de calculo en Espaņol...";
		typ[1]="*... Manuales, bibliografia, teoria, practica, enlaces...*";
		typ[2]="*... Compra, vende, intercambia, opina o comenta en el foro, Registrate!!...*";
		typ[3]="*... La mayor coleccion de Faber Castell en Internet...*";
		typ[4]="*... y la mas completa coleccion de manuales en Espaņol sobre Reglas de Calculo, listos para bajar...*";
		typ[5]="*... Venta de Reglas de Calculo nuevas a estrenar...Subastas de Ebay...*";

		function typewrite() {
			var m = typ[current]

			window.status = m.substring(0, x++) + "*"
			document.title = m.substring(0, x++) + "*"

			if (x >= m.length + 1 && cont>(speed2/speed)) {
				cont = 0
				x = 0
				current++

				if (current > typ.length - 1) {
					current = 0
				}

				setTimeout("typewrite()", speed)
			}
			else if(x >= m.length + 1 && cont<=(speed2/speed)) {
				cont++
				setTimeout("typewrite()", speed)
			}
			else {
				setTimeout("typewrite()", speed)
			}
		}

		typewrite()