var yy,mm,dd,kk;
function kabataro(form){

	if ((parseInt(form.yy.value) == 0)||(parseInt(form.yy.value) >9999)){
		alert('生まれた西暦を正しく入力してください(1〜9999までの数字)。');
		return;
	}
	else {true;}
	if ((parseInt(form.mm.value) == 0)||(parseInt(form.mm.value) >12)){
		alert('生まれた月を正しく入力してください(1〜12までの数字)。');
		return;
		}
	else {true;}
	if ((parseInt(form.dd.value) == 0)||(parseInt(form.dd.value) >31)){
		alert('生まれた日を正しく入力してください(1〜31までの数字)。');
		return;
	}
	else {true;}

	      with (Math) {
		//---year--
		y1 = floor (parseInt(form.yy.value) / 1000);
		y2 = floor ((parseInt(form.yy.value) - y1*1000)/ 100);
		y3 = floor ((parseInt(form.yy.value) - y1*1000 -y2*100)/ 10);
		y4 = floor (parseInt(form.yy.value) - y1*1000 -y2*100 - y3*10);
		y5 = y1 + y2 + y3 + y4;
			if ((y5 == 11)||(y5 == 22)) {
		 		yy = y5;
				}
			else {
		 		y6 = floor (y5 /10);
		 		y7 = y5 - y6*10;
		 		yy = y6 + y7;
					if (yy == 10) {
						yy = 1
					}
				}
		//---month---
		m1 = floor (parseInt(form.mm.value) / 10);
		m2 = floor (parseInt(form.mm.value) - m1*10);
			if (parseInt(form.mm.value) == 11) {
		 		mm = parseInt(form.mm.value);
				}
			else {
		 		mm = m1 + m2;
					if (mm == 10) {
						mm = 1
					}
				}
		//---day---
		d1 = floor (parseInt(form.dd.value) / 10);
		d2 = floor (parseInt(form.dd.value) - d1*10);
			if ((parseInt(form.dd.value) == 11)||	(parseInt(form.dd.value)) == 22) {
		 		dd = parseInt(form.dd.value);
				}
			else {
		 		dd = d1 + d2;
					if (dd == 10) {
						dd = 1
					}
				}
		//---kabbalah---
		kk = yy + mm + dd;
			if (kk < 10 ){
				true;
				}
			else {
				if ((kk == 11)||(kk == 22)) {
					true;
					}
				else {		
		 			k1 = floor (kk / 10);
		 			k2 = floor (kk - k1*10);
		 			kk = k1 + k2;
						if (kk == 10) {
							kk = 1
						}
					}
				}

			}

	if (kk == 1) {
            kk = 1
         	newwindow(kk);
	}


		else if(kk == 2) {
            kk = 2
         	newwindow(kk);
	}

		else if(kk == 3) {
            kk = 3
         	newwindow(kk);
	}

		else if (kk == 4) {
            kk = 4
         	newwindow(kk);
	}

		else if (kk == 5) {
            kk = 5
         	newwindow(kk);
	}

		else if (kk == 6) {
            kk = 6
         	newwindow(kk);
	}

		else if (kk == 7) {
            kk = 7
         	newwindow(kk);
	}

		else if (kk == 8) { 
            kk = 8
         	newwindow(kk);
	}

		else if (kk == 9) {
            kk = 9
         	newwindow(kk);
	}

		else if (kk == 11) {
            kk = 10
         	newwindow(kk);
	}

		else if (kk == 22) {
            kk = 11
         	newwindow(kk);
	}
		else {
			alert('生年月日を入力してください。計算できない場合は計算方法をご覧下さい。');
		}
		}


function newwindow(unmeisu) {
var msgkaba = new Array();

msgkaba[0]="<h3>運命数１　3/12(土)〜3/18(金)</h3>貰い物や臨時収入もしくは嬉しい話には乗って吉。対人は都合優先で目先のことのみ実行。基礎勉強も効果アリ。<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[1]="<h3>運命数２　3/12(土)〜3/18(金)</h3>仕事や隣人に振り回されないよう注意。仕切るくらいが吉。友達や身内への連絡はテキパキと、予定変更も念頭に。<br><font color='#ff80ff'>幸運度２★★</font>☆☆☆";
msgkaba[2]="<h3>運命数３　3/12(土)〜3/18(金)</h3>慎重になりがちですが、コミニケーションや前向きな実行力がプラスのとき。落ち着いて過ごせます。仕事の協力関係吉。。<br><font color='#ff80ff'>幸運度４★★★★</font>☆";
msgkaba[3]="<h3>運命数４　3/12(土)〜3/18(金)</h3>仕事は大変でも腐らず前向きで切り開くこと。金銭は後半ピンチにならないよう思い切りが鍵。家では穏やかに過ごすと吉。。<BR><font color='#ff80ff'>幸運度２★★</font>☆☆☆";
msgkaba[4]="<h3>運命数５　3/12(土)〜3/18(金)</h3>変化や行動が鍵。仕事関係や隣人など女性との関係を前向きにして吉。金銭は都合を考慮し無理のないようキッチリと！<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[5]="<h3>運命数６　3/12(土)〜3/18(金)</h3>対人は無難が一番。親しい人とはアテ外れあり。予定は慎重に！仕事も迷わず基礎に留めて吉。金銭面はハッキリ対応を。<br><font color='#ff80ff'>幸運２★★</font>☆☆☆";
msgkaba[6]="<h3>運命数７　3/12(土)〜3/18(金)</h3>苦労や骨折りはドンドンすること！仕事は自力本願で行動力発揮が鍵。今後へは転機を逃さず価値観の変更を！対人は休止。<br><font color='#ff80ff'>幸運度２★★</font>☆☆☆";
msgkaba[7]="<h3>運命数８　3/12(土)〜3/18(金)</h3>明るさと前向き行動で困難突破！今後は賢明な判断で転換吉。金銭や仕事面は懸念に骨折りして意思表示をシッカリね！<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[8]="<h3>運命数９　3/12(土)〜3/18(金)</h3>困難への前向きな勇気と努力で協調吉！対人や仕事全般を積極的にクリアしましょう。新しい展開のための180度転換OK。<br><font color='#ff80ff'>幸運３★★★</font>☆☆";
msgkaba[9]="<h3>運命数１１　3/12(土)〜3/18(金)</h3>仕事は積極的に主導して吉。誘いや知らせを生かして行動を！社交は地味で控えめが無難。出費は制限内で収めること。<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";
msgkaba[10]="<h3>運命数２２　3/12(土)〜3/18(金)</h3>仕事や今後のことは慎重第一！感情抜きが無難です。対人は前向きに！動きに乗って吉です。出費は無理なくが基本！<br><font color='#ff80ff'>幸運度３★★★</font>☆☆";

	nwin = window.open("", "Newwindow","width=400,height=300");
	nwin.document.open();
	nwin.document.write("<HTML><HEAD>");
	nwin.document.write("<TITLE>カバラTarot週間運勢</TITLE>");
	nwin.document.writeln("<body bgcolor='#000000' text='#ffffff' leftmargin='10' topmargin='10'>");
	nwin.document.writeln(msgkaba[unmeisu - 1]);
	nwin.document.write("<div align='right'>by Active Tarot Reading</div>");
	nwin.document.write("</body></HTML>");
	nwin.document.close();

	return false;
}