var months= new Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");	
var days= new Array("M","T","O","T","F","L","S");
var ml=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
var ma=new Array(4);
var select=0;
var maxb=1;
var max=10;
var bed=0;
var typ=0;
var ort=0;
var pool=0;
vers=1;
var fullDate= new Date();
for (var i=0;i<4;i++){
  ma[i]=new Array(732);
}
var syear=fullDate.getYear();
if(syear<200){syear=syear+1900}; //Netscape och Opera anger År - 1900
var tmonth=new Array(2);
tmonth[0]=new Array(12); //tmonth[i][j] anger var månad j startar (i=0,1; j=0,...,11,12,...,23)
tmonth[1]=new Array(12);
var inyear=2001; //år med den 1/1 en måndag
//var syear=2001;   //första år
var vnr=1;  //veckans nummer (1,2,...,52(53))
var k=-1;   //veckodagens nummer (0,1,...,6)
var dag=0   //dagens nummer i månaden (1,2,...,31)
var cumdag=-1;
function data(inyear,tyear,ind){
 if(tyear>inyear){  //bestäm veckodag och veckonr för den 1/1 år syear
  for(var y=inyear;y<tyear;y++){
    skottd(y);
    for (var i=0; i<12;i++){
      dag=0;  
      for (var j=0;j<ml[i];j++){
        k=k+1;
        dag=dag+1;
        if(k>6){
          k=0;  //ny vecka
          vnr=vnr+1;
          if(vnr==53 && dag>28){vnr=1} 
          if(vnr==53 &&dag<10){vnr=1}         
          if(vnr>53){vnr=1}
        }
        if(ind==1){
          cumdag=cumdag+1;
          ma[0][cumdag]=dag;
          ma[1][cumdag]=k;
          ma[2][cumdag]=vnr;
          ma[3][cumdag]=i;  //månad (0,1,...,11)
          if(j==0 && y==inyear){tmonth[0][i]=cumdag}
          if(j==0 && y==inyear+1){tmonth[1][i]=cumdag}
        }
      }
    } 
  }   
 } 
}

function skottd(y){
 if(y%4==0){
   ml[1]=29;
 }else{
   ml[1]=28;
 }
}

function part1(){
  smonth= fullDate.getMonth();
  data(inyear,syear,0);
  data(syear,syear+2,1);
}

function dw(ss){
  document.write(ss);
}