Spiral

var CALdays=new Array('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); var CALmonths=new Array('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); var CALfmonths=new Array('January','February','March','April','May','June','July','August','September','October','November','December'); var CALmaster=new Array( new Array(1,8,22, 1,28,-1), new Array(1,8,29, 1,-1,-1), new Array(2,9,23, 2,29, 5), new Array(2,9,30, 2,-1, 5), new Array(0,2,23, 2,29,-1), new Array(30,2,23, 2,-1,-1), new Array(3,10,24, 3,30, 4), new Array(3,10,31, 3,-1, 4), new Array(0,3,24, 3,30,-1), new Array(31,3,24, 3,-1,-1), new Array(4,11,25, 4,-1, 3), new Array(0,4,25, 4,-1,-1), new Array(5,12,26, 5,-1, 2), new Array(0,5,26, 5,-1,-1), new Array(6,13,27, 6,-1, 1), new Array(0,6,27, 6,-1,-1), new Array(7,14,28, 7,-1, 0), new Array(0,7,28, 7,-1,-1) ); var CALbuff=''; function CALwriteln(txt) { CALbuff += txt + '\n'; } function CALwrite(txt) { CALbuff += txt; } function CALflush(doc) { doc.write(CALbuff); CALbuff = ''; } function CALgenMo(doc, start, end) { for (i=start; i' + (i+1) + ''); else CALwrite('' + (i+1) + ''); if (i'); if (CALmaster[i][0] != 0) { if (CALmaster[i][0] < 10) CALwrite('0' + CALmaster[i][0] + ''); else CALwrite('' + CALmaster[i][0] + ''); } else { CALwrite('00') } CALwriteln('
'); for (j=CALmaster[i][1]; j<=CALmaster[i][2]; j+=7) if (j>9) CALwriteln('' + j + '
'); else CALwriteln('0' + j + '
'); CALwriteln(''); } } var CALwin=null; function CALgo (callback,posx,posy,sy,ey,yr,mo) { width=30; base=20; now=new Date(); if (!sy) sy=now.getYear(); if (!ey) ey=now.getYear(); if (yr) thisYear=yr; else thisYear=(now.getYear()); if (thisYear<999) thisYear+=1900; if (mo) thisMonth=mo-1; else thisMonth=(now.getMonth()); if (thisMonth>11) thisMonth=11; if (CALwin!=null && !CALwin.closed) CALwin.close(); CALwin=window.open("", "Calendar", "menubar=no,toolbar=no,directories=no,width=240,height=160,left="+posx+",top="+posy); CALwin.focus(); doc=CALwin.document; doc.clear(); doc.open(); doc.writeln('Spiral'); doc.writeln(''); doc.writeln('<' + 'script language=JavaScript>'); doc.writeln('var width=' + width + '; var base=' + base + '; var curr=new Array("","","","","","","");' + mstr); doc.writeln('var mdays=new Array(31,28,31,30,31,30,31,31,30,31,30,31);'); if (navigator.appName == "Netscape") { /*************************************************************************** / The following lines have been commented out for Netscape 6+ usability - / i.e. they don't work. see http://www.stopbadtherapy.com/standards.shtml ***************************************************************************/ //doc.writeln('function vis(l,v) {document.layers[l].style.visibility=v;}'); //doc.writeln('function xloc(l,x) {document.layers[l].style.left=x;}'); doc.writeln('function vis(l,v) {document.getElementById(l).style.visibility=v;}'); doc.writeln('function xloc(l,x) {document.getElementById(l).style.left=x;}'); } else { doc.writeln('function vis(l,v) {document.all[l].style.visibility=v;}'); doc.writeln('function xloc(l,x) {document.all[l].style.left=x;}'); } doc.writeln('function getDays(y,m) {ret=mdays[m];if(m==1&&y%4==0) return 29;return ret;}'); doc.writeln('function done(d) {f=document.forms[0];y=f.year.options[f.year.selectedIndex].text;m=f.month.selectedIndex+1;window.opener.' + callback + '(y,m,d);window.close();}'); doc.writeln('function yearChange(delta) {f=document.forms[0];optl=f.year.options.length;seli=f.year.selectedIndex;newi=seli+delta;if (newi>=0 && newi'); CALwriteln('

'); CALwrite('

Step back a year

'); CALwriteln('

Step forward a year

'); CALwriteln(''); CALwriteln('

'); CALgenMo(doc,0,12); if (selm!=-1 && sely!=-1) { CALwrite(' '); CALwrite(''); } CALwriteln('
'); CALwriteln('

' + CALdays[0] + '

'); for (i=1; i<7; i++) CALwriteln('

' + CALdays[i] + '

'); CALgen(doc); CALwriteln(''); CALflush(doc); doc.close(); } var CALentry=null; var CALformatstr=''; function CALparse(string, format) { delims=new Array('/','-',' '); for (i=0;i 0) break; } if (i==delims.length) return null; ftoks=format.split(delims[i]); stoks=string.split(delims[i]); for (i=0; i1 && stoks[i].charAt(0)=='0') stoks[i]=stoks[i].substring(1,stoks[i].length); } y=-1; m=-1; d=1; for (i=0; i=1 || m<=12) m -= 1; else m=-1; } else if (ftoks[i].charAt(0).toLowerCase()=='y' && i31) d=-1; } } if (d==-1 || m==-1 || y==-1) return null; return (new Date(y,m,d)); } function CALformat(y,m,d,format) { ret=''; delims=new Array('/','-',' '); for (i=0;i 0) break; } if (i==delims.length) { ftoks=new Array(format); delim=' '; } else { delim=delims[i]; ftoks=format.split(delim); } for (i=0;i550) sx=sx-225; if (event) sy=event.screenY; if (sy==0) sy=100; else sy += 5; if (sy>400) sy=sy-180; if (dt==null) CALgo('CALcallback',sx,sy,yfrom,yto); else CALgo('CALcallback',sx,sy,yfrom,yto,dt.getYear(),dt.getMonth()+1); } function CALcallback (y,m,d) { if (CALentry) CALentry.value=CALformat(y,m-1,d,CALformatstr); }