/* http://www.toulouse-renaissance.net/superstition/vendredi_13.htm */
//SOURCE www.toutjavascript.com/source/vendredi13.zip
function disp(txt) {document.write(txt);}
function don_date_format(d1) {
	var m=new Array(13);
	m[1]="Enero"; m[2]="Febrero"; m[3]="Marzo"; m[4]="Abril"; m[5]="Mayo"; m[6]="Junio";
m[7]="Julio"; m[8]="Agosto"; m[9]="Septiembre"; m[10]="Octubre"; m[11]="Noviembre"; m[12]="Diciembre";
	var d=new Array(8);
	d[1]="Domingo"; d[2]="Lunes"; d[3]="Martes"; d[4]="Miércoles"; d[5]="Jueves"; d[6]="Viernes"; d[7]="Sábado";
	var mois=m[d1.getMonth()+1];
	var jour=d[d1.getDay()+1];
	var date=d1.getDate();
	var an=d1.getYear();
	if (an<200) an+=1900; 
	date=jour+" "+date+" "+mois+" "+an;
	return date;
	}
function prochain() {
	var dt_jour=new Date;
	var an=dt_jour.getYear();
	if (an<200) an+=1900; 
	var m=dt_jour.getMonth();
	var d=dt_jour.getDate(); 
	if (d>13) m++;
	var ven="";
	while (ven=="") {
		dt_jour.setDate(13);
		dt_jour.setMonth(m);
		dt_jour.setYear(an);
		if (dt_jour.getDay()==5) {
			ven=don_date_format(dt_jour);
		}
		m++; 
		if (m==13) {m=0; an++;}
	}
	return ven;
}
function vendredi() {	
	var an=document.forms[0].elements[0].value
	var dt_jour=new Date;
	document.forms[0].elements[2].value=unescape(" Viernes 13 del año "+an+"%0D%0A");
	for(var i=0;i<12;i++) {
		dt_jour.setMonth(i);
		dt_jour.setDate(13);
		dt_jour.setYear(an);
		if (dt_jour.getDay()==5) {
			document.forms[0].elements[2].value+=unescape(don_date_format(dt_jour)+"%0D%0A");
		}
	}
}