// MAG99_cal.js
//
// >>>>>> Copyright 2007 brymar.net - All rights reserved !
// >>>>>> No part of this script may be copied, altered, used or distributed
// >>>>>> without express permission of brymar.net.
//
// ------ Day of week 'header'
//
dowhdr = "| S | M | T | W | T | F | S |
"
mnytbl = ""
spfill = "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" // 30 "spaces"
ynLY = 0 // leap year indicator
//
// ------ Month-year 'headers'
//
mnydowhdr = new Array(13)
mny = new Array(13)
mny[0] = ""
mny[1] = "| JANUARY 9999 |
"
mny[2] = "| FEBRUARY 9999 |
"
mny[3] = "| MARCH 9999 |
"
mny[4] = "| APRIL 9999 |
"
mny[5] = "| MAY 9999 |
"
mny[6] = "| JUNE 9999 |
"
mny[7] = "| JULY 9999 |
"
mny[8] = "| AUGUST 9999 |
"
mny[9] = "| SEPTEMBER 9999 |
"
mny[10] = "| OCTOBER 9999 |
"
mny[11] = "| NOVEMBER 9999 |
"
mny[12] = "| DECEMBER 9999 |
"
//
// ----- Days in month table.
//
dim2 = new Array(13)
dim = new Array(13)
dim[0] = ""
dim[1] = "^1^2^3^4^5^6^7^8^910111213141516171819202122232425262728293031"
dim[2] = "^1^2^3^4^5^6^7^8^910111213141516171819202122232425262728"
dim[3] = "^1^2^3^4^5^6^7^8^910111213141516171819202122232425262728293031"
dim[4] = "^1^2^3^4^5^6^7^8^9101112131415161718192021222324252627282930"
dim[5] = "^1^2^3^4^5^6^7^8^910111213141516171819202122232425262728293031"
dim[6] = "^1^2^3^4^5^6^7^8^9101112131415161718192021222324252627282930"
dim[7] = "^1^2^3^4^5^6^7^8^910111213141516171819202122232425262728293031"
dim[8] = "^1^2^3^4^5^6^7^8^910111213141516171819202122232425262728293031"
dim[9] = "^1^2^3^4^5^6^7^8^9101112131415161718192021222324252627282930"
dim[10] = "^1^2^3^4^5^6^7^8^910111213141516171819202122232425262728293031"
dim[11] = "^1^2^3^4^5^6^7^8^9101112131415161718192021222324252627282930"
dim[12] = "^1^2^3^4^5^6^7^8^910111213141516171819202122232425262728293031"
//
//
wks = new Array(13)
wks[0] = " "
wks[1] = "| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
"
wks[2] = "| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
"
wks[3] = "| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
"
wks[4] = "| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
"
wks[5] = "| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
"
wks[6] = "| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
"
wks[7] = "| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
"
wks[8] = "| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
"
wks[9] = "| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
"
wks[10] = "| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
"
wks[11] = "| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
"
wks[12] = "| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
| # | # | # | # | # | # | # |
"
//
//
currDate = new Date()
currYR = currDate.getYear().toString();
if(currDate.getYear() < 200){currYR = (currDate.getYear() + 1900).toString()};
nextYR = currDate.getYear().toString();
if(currDate.getYear() < 200){nextYR = (currDate.getYear() + 1901).toString()};
if(currDate.getYear() > 1900){nextYR = (currDate.getYear() + 1).toString()};
//
curDOW = currDate.getDay() + 1 // day of week 1-7
currMN = currDate.getMonth() + 1 // month in year 1-12
currDA = currDate.getDate() // day in month 1-31
cyyYR = currYR.slice(2) // 2 digit current year
nyyYR = nextYR.slice(2) // 2 digit next year
if(currMN % 2 != 0){oddMN = 1} else {oddMN = 0} // determine if month is even or odd (1 = odd, 0 = even)
// -----
if(currYR % 4 == 0 || nextYR % 4 == 0){ynLY = 1;dim[2] = dim[2].concat("29")}
// -----
rYR = /9999/; cMN = currMN; cYR = currYR;
rid = /mhdr/; id2 = "mhdr2";
for(i=1; i<=13; i++){mnydowhdr[i] = mnytbl.concat(mny[cMN].concat(dowhdr));
mnydowhdr[i] = mnydowhdr[i].replace(rYR, cYR);
cMN = cMN + 1; if(cMN > 12){cMN = 1; cYR = nextYR}}
// tag odd months
if(oddMN){evod = 1} else {evod = 2};
for(y=evod; y<=13; y=y+2){mnydowhdr[y] = mnydowhdr[y].replace(rid, id2);}
// ----- ------------------ ------------------------------ ------------------------------------
cMN = currMN; for(j=1; j<=13; j++){dim2[j] = dim[cMN]; cMN = cMN + 1; if(cMN > 12){cMN = 1}}
// ----- ------------------ ------------------------------ --------------------------------------
dts = 7 - curDOW; sat = currDA + dts;
if(sat > 7){while(sat > 7){sat = sat - 7}};
flr = 2*(7 - sat) // cal filler
if(flr > 0){dim2[1] = spfill.slice(0, flr).concat(dim2[1])}
addon = 84 - dim2[1].length; dim2[1] = dim2[1].concat(spfill.slice(0, addon))
// -----
for(k=2; k<=13; k++){if(addon > 7){flr = 28-addon} else {flr = 14-addon}; if(flr>=14){flr = flr-14};
dim2[k] = spfill.slice(0, flr).concat(dim2[k]);
addon = 84-dim2[k].length; dim2[k] = dim2[k].concat(spfill.slice(0, addon))}
// -----
rDA = /#/
for(w=1; w<=12; w++){y = 0; for(h=1; h<=43; h++){
if(dim2[w].substr(y, 2) == "^^"){dachr = " "} else {
if(dim2[w].substr(y, 1) == "^"){dachr = dim2[w].substr(y+1, 1)} else {dachr = dim2[w].substr(y, 2)}}
wks[w] = wks[w].replace(rDA, dachr); y=y+2}}
//
//
//