var nwks = 4
function c1() {
var dim=new Array(31,28,31,30,31,30,31,31,30,31,30,31,31)
var mon=new Array('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec','Jan')
  dt=new Date()
  mo=dt.getMonth()
  dy=dt.getDate()
  yr=dt.getFullYear()
  dw=dt.getDay()
  cdy=dy
  sw=dy-dw
  mc=mo
//alert('sw='+sw+' dw='+dw+' dy='+dy)
  if (sw<=0) {
    mo--
    if (mo<0) mo=11
    dy=dim[mo]+sw
  } else {
    dy=sw 
  } 
  ts="<table cellspacing=0><tr><th colspan=7 class=h>"+mon[mo]
  if (mc!=mo) {
     ts+='-'+mon[mc]
  } else if ((dy+28)>dim[mc]) {
     ts+='-'+mon[mc+1]
  }
  ts+="<tr class=h><th class=c>Su<th class=c>Mo<th class=c>Tu<th class=c>We<th class=c>Th<th class=c>Fr<th class=c>Sa"
  for (j=0;j<nwks;j++) {
    ts+="<tr>"
    for (k=0;k<7;k++) {
       ts+="<td class=c "
       for (m=0;m<evt.length;m++) {
           if (m==0) {
//      alert(dy+'?'+dat[m]+'?'+mo+'?'+mos[m]+'?'+yr+'?'+yrs[m])
       }
       if ((dy==dat[m])&&(mo==mos[m])&&(yr==yrs[m])) {
            ts+=" bgcolor=#f0c0c0 onmouseover=s("+mo+','+dy+','+yr+") onmouseout=n()"
       }
    }
    if (cdy==dy) ts+=" bgcolor=#80ff80><b"
    ts+='>'+dy
    dy++
    if (dy>dim[mo]) {
          mo++
          dy=1
          if (mo==12) {
             mo=0
             yr++
          }
    }
    }
  }  
  ts+="</table>"
  cal.innerHTML=ts
  bnr.innerHTML="Hello"
//alert(ts)
//alert('dy='+dy+' dw='+dw+' sw='+sw)
  dtg=999
  var today=new Date()
  var todaym=today.getMonth()
  var todayd=today.getDate()
//todaym= prompt('Month ',todaym)
//todayd= prompt('Day',todayd)

  var todaystring=mon[todaym]+" "+todayd+", "+today.getFullYear()

  for (j=0;j<evt.length;j++) {
//      alert(dy+'?'+dat[m]+'?'+mo+'?'+mos[m]+'?'+yr+'?'+yrs[m])
    var futurestring=mon[mos[j]]+" "+dat[j]+", "+yrs[j]

    var difference=(Math.round((Date.parse(futurestring)-Date.parse(todaystring))/(24*60*60*1000))*1)
    if (difference > 1) {
       if (difference < dtg) {
          // now check if repeat of previous
          if (evt[j]!=evt[j-1]) {
             dtg=difference
             ndx=j
          }
       }
    }
  } 
//alert(dtg)
  bnr.innerHTML="<font size=3>Only <font color=red>"+dtg+"</font> days until "+evt[ndx]+"</font>"
}
function s(m,d,y) {
  // problem here is that d is day and month only, need  year too
  tt="<table cellspacing=0 bgcolor=#ffffff width=150>"
  tt+='<tr><th class=h>'+(m+1)+'/'+d+'/'+y
  for (i=0;i<evt.length;i++) {
//alert(m+'?'+mos[i]+'/'+d+'?'+dat[i]+'/'+y+'?'+yrs[i])
    if ((m==mos[i])&&(d==dat[i])&&(y==yrs[i])) tt+="<tr><td class=e>"+evt[i]
  }
  tt+="</table>"
  dv.style.top=80
//  dv.style.left=1
  dv.innerHTML=tt
  dv.style.visibility='visible'
}
function n() {
  dv.style.visibility='hidden'
}