var year;
var strYear = new Array();
var strMonth = new Array();
var strDate = new Array();

function currentYear1() {

 var dat = new Date();
 year = dat.getYear();
 if (year<1900) year=year+1900;
 document.form1.Jahr.options[year-1990].selected=true;
 EasterDate();
}


function EasterDate() {

 y = Number(document.form1.Jahr.options[document.form1.Jahr.selectedIndex].value);
 var M = 24; // 1900 to 2099
 var N = 5;  // 1900 to 2099
 var a = y % 19;
 var b = y % 4;
 var c = y % 7;
 var d = (19*a + M) % 30;
 var e = (2*b +4*c + 6*d + N) % 7;

 var dayMar = 22+d+e;
 var dayApr = d + e - 9;
 var day;

 if (dayApr<=0) {day=dayMar; DayMonth="March " + day;}

 if (dayMar>31) {
  day=dayApr;
  if (day==26) day=19;
  if ((day==25) && (d==28) && (a>10)) day=18;
  DayMonth="April " + day;
 }
 else {day=dayMar; DayMonth="March " + day;}

 document.form1.result.value = " " + DayMonth;
}

function EasterTable1() {

 var M , N
 var t=0;

 var y1 = document.form1.startYear.value;
 if (isNaN(y1)) {alert("Falsche Eingabe");document.form1.startYear.select();return}
 var y2 = document.form1.stopYear.value;
 if (isNaN(y2)) {alert("Falsche Eingabe");document.form1.stopYear.select();return}
 if (y1<1800 || y2>2199) {alert("Valid from the year 1800 to 2199");document.form1.startYear.select();return}

 if (y2<y1) {alert("Second year input must be greater.");document.form1.stopYear.select();return}
 
var max = y2-y1;

/*
if (max>50) {
if (confirm("Wirklich eine Tabelle fuer " + max + " Jahre ?")==true) {}; else return;
}
*/

 for (var y=y1; y<=y2; y++) {

 if (y>=1800 && y<1900) {M=23; N=4;} 
 if (y>=1900 && y<2100) {M=24; N=5;}
 if (y>=2100 && y<2199) {M=24; N=6;}

 var a = y % 19;
 var b = y % 4;
 var c = y % 7;
 var d = (19*a + M) % 30;
 var e = (2*b +4*c + 6*d + N) % 7;

 var dayMar = 22+d+e;
 var dayApr = d + e - 9;
 var day, month;

 if (dayApr<=0) {day=dayMar; month="Mar";}

 if (dayMar>31) {
  day=dayApr;
  if (day==26) day=19;
  if ((day==25) && (d==28) && (a>10)) day=18;
  month="Apr";
 }
 else {day=dayMar; month="Mar";}

 strYear[t] = y;
 strMonth[t] = month;
 strDate[t] = day;

 t=t+1;
 }

 writeTable1(max)
}