function compute(form) {
	if (form.nnin.value == "") {
		alert("Software designed only for years after 1900.");
		form.nnin.focus();
		form.nnin.select();
		return;
	}
	if (eval(form.nnin.value)<1900) {
		alert("Software designed only for years after 1900.");
		form.nnin.focus();
		form.nnin.select();
		return;
	}

var can_vi = Array("Giáp", "Ất", "Bính", "Đinh", "Mậu", "Kỷ", "Canh", "Tân", "Nhâm", "Quý");
var can_en = Array("Jia", "Yi", "Bing", "Ding", "Wu", "Ji", "Geng", "Xin", "Ren", "Gui");

var chi_vi = Array("Tý", "Sửu", "Dần", "Mão", "Thìn", "Tị", "Ngọ", "Mùi", "Thân", "Dậu", "Tuất", "Hợi");
var chi_cn = Array("Zi", "Chou", "Yin", "Mao", "Chen", "Si", "Wu", "Wei", "Shen", "You", "Xu", "Hai");
var chi_en = Array("Rat", "Buffallo", "Tiger", "Rabbit", "Dragon", "Snake", "Horse", "Goat", "Monkey", "Rooster", "Dog", "Pig");
		
var gon_en = Array("-Water [Gui]", "+Wood [Jia]", "-Wood [Yi]", "+Fire [Bing]", "-Fire [Ding]", "+Earth [Wu]", "-Earth [Ji]", "+Metal [Geng]", "-Metal [Xin]", "+Water [Ren]", "-Water [Gui]", "+Wood [Jia]");

var gon_vi = Array("-Thủy [Quý]", "+Mộc [Giáp]", "-Mộc [Ất]", "+Hỏa [Bính]", "-Hỏa [Đinh]", "+Thổ [Mậu]", "-Thổ [Kỷ]", "+Kim [Canh]", "-Kim [Tân]", "+Thủy [Nhâm]", "-Thủy [Quý]", "+Mộc [Giáp]");

var ji_vi = Array( "Hợi [Hai]", "Tý [Zi]", "Sửu [Chou]", "Dần [Yin]", "Mão [Mao]", "Thìn [Chen]", "Tị [Si]", "Ngọ [Wu]", "Mùi [Wei]", "Thân [Shen]", "Dậu [You]", "Tuất [Xu]", "Hợi [Hai]", "Tý [Zi]");

var ji_en = Array( "Pig [Hai]", "Rat [Zi]", "Ox [Chou]", "Tiger [Yin]", "Rabbit [Mao]", "Dragon [Chen]", "Snake [Si]", "Horse [Wu]", "Goat [Wei]", "Monkey [Shen]", "Rooster [You]", "Dog [Xu]", "Pig [Hai]", "Rat [Zi]");

var nguhanh_vi	= Array("Kim","Thuỷ","Mộc","Hoả","Thổ");
var nguhanh 	= Array("Jin","Shui","Mu","Huo","Tu");
var nguhanh 	= Array("Metal","Water","Wood","Fire","Earth");
				
	TZ=form.ITZ.options[form.ITZ.selectedIndex].value;
	MM=eval(form.nyuet.value);
	DD=eval(form.nyat.value);
	YY=eval(form.nnin.value);
	HR=eval(form.nsee.value);
	MN=eval(form.nfen.value);
	GEN=eval(form.BBB.value);
	LON=eval(form.longi.value);
if (form.ngonngu.value == 1){
	gon = gon_vi;
	ji = ji_vi;
}else if (form.ngonngu.value == 2) {
	gon= gon_en;
	ji = ji_en
}
with (Math){
	HR = HR + (MN / 60);
	if ((LON>-181) & (LON<181)) HR = HR + (LON/15 - TZ);
	AAA = 1;
	if (YY <= 1585) AAA = 0;
	JD = -1 * floor(7 * (floor((MM + 9) / 12) + YY) / 4);
	S = 1;
	if ((MM - 9)<0) S=-1;
	A = abs(MM - 9);
	J1 = floor(YY + S * floor(A / 7));
	J1 = -1 * floor((floor(J1 / 100) + 1) * 3 / 4);
	JD = JD + floor(275 * MM / 9) + DD + (AAA * J1);
	JD = JD + 1721027 + 2 * AAA + 367 * YY - 0.5;
	JZJD =  JD + (HR / 24);
	JD = JD + (HR/24) - (TZ/24);
	T = (JD - 2451545.0 ) / 36525;
	d = 2*PI/360;
	M = 357.52910 + 35999.05030*T - 0.0001559*T*T - 0.00000048*T*T*T;
	L0 = 280.46645 + 36000.76983*T + 0.0003032*T*T;
	DL = (1.914600 - 0.004817*T - 0.000014*T*T)*sin(d*M);
	DL = DL+ (0.019993 - 0.000101*T)*sin(d*2*M) + 0.000290*sin(d*3*M);
	L = L0 + DL;
}

YEFL=0;
for(var i=0;L>360;i++){
	L=L-360;
}
for(var i=0;L<0;i++){
	L=L+360;
}
if ((L<315) && (MM==1 || MM==2)){
	ys0=YY-4;
	yb0=YY-4;
	YEFL=1;
	}
	else {
	ys0=YY-3;
	yb0=YY-3;
	}
for(var i=0;ys0>10;i++){
	ys0=ys0-10;
}
ys=gon[ys0];
for(var i=0;yb0>12;i++){
	yb0=yb0-12;
}
if((ys0==0 || ys0==2 || ys0==4 || ys0==6 || ys0==8 || ys0==10)){
	FW=-1*GEN;
	}
	else{
	FW=1*GEN;
	}
yb=ji[yb0];
ms0 = 1;
for (var i=0;i<6;i++){
	if ((ys0==i) || (ys0==i+5)) {
	ms0=ms0+ (i * 2);
	if (ms0>10) {
	ms0=ms0-10;
	}
	}
	}
form.comment1.value = "";
form.comment2.value = "";
str00 = "Your given date and time is close to the Jie, ";
str01 = "Visit www.fourpillars.net for a more accurate reading";
str1 = "";
str2 = "";
if (L>314.95 && L<315.05){
	str1 = str00 + "Spring Beginning.";
	str2 = str01;
	}
if (L>344.95 && L<345.05){
	str1 = str00 + "Insects Awakening.";
	str2 = str01;
	}
if (L>14.95 && L<15.05){
	str1 = str00 + "Clear Bright.";
	str2 = str01;
	}
if (L>44.95 && L<45.05){
	str1 = str00 + "Summer Beginning.";
	str2 = str01;
	}
if (L>74.95 && L<75.05){
	str1 = str00 + "Planting Crops.";
	str2 = str01;
	}
if (L>104.95 && L<105.05){
	str1 = str00 + "Lesser Heat.";
	str2 = str01;
	}
if (L>134.95 && L<135.05){
	str1 = str00 + "Autumn Beginning.";
	str2 = str01;
	}
if (L>164.95 && L<165.05){
	str1 = str00 + "White Dew.";
	str2 = str01;
	}
if (L>194.95 && L<195.05){
	str1 = str00 + "Cold Dew.";
	str2 = str01;
	}
if (L>224.95 && L<225.05){
	str1 = str00 + "Winter Beginning.";
	str2 = str01;
	}
if (L>254.95 && L<255.05){
	str1 = str00 + "Greater Snow.";
	str2 = str01;
	}
if (L>284.95 && L<285.05){
	str1 = str00 + "Lesser Cold.";
	str2 = str01;
	}
if ((L==315 || L>315) && (L<345)){
	mb = ji[3];
	lpb0 = 3;
	cb = ji[6];
	nsb=2;
	if( FW==1){
	LP = ((345 - L)/3);
	}
	else{
	LP = ((L - 315)/3);
	}
	}
if ((L==345 || L>345) || (L<15)){
	mb = ji[4];
	lpb0 = 4;
	cb = ji[7];
	nsb=3;
	ms0=ms0+ 1;
	if( FW==1){
	LP = ((375 - L)/3);
	}
	else{
	LP =((L - 345)/3);
	}
	if (LP>11){
	LP = LP - 120;
	}
	if (LP<0){
	LP = LP + 120;
	}
	}
if ((L==15 || L>15) && (L<45)){
	mb = ji[5];
	lpb0 = 5;
	cb = ji[8];
	nsb=4;
	ms0=ms0+ 2;
	if( FW==1){
	LP = ((45 - L)/3);
	}
	else{
	LP = ((L - 15)/3);
	}
	}
if ((L==45 || L>45) && (L<75)){
	mb = ji[6];
	lpb0 = 6;
	cb = ji[9];
	nsb=5;
	ms0=ms0+ 3;
	if( FW==1){
	LP = ((75 - L)/3);
	}
	else{
	LP = ((L - 45)/3);
	}
	}
if ((L==75 || L>75) && (L<105)){
	mb = ji[7];
	lpb0 = 7;
	cb = ji[10];
	nsb=6;
	ms0=ms0+ 4;
	if( FW==1){
	LP = ((105 - L)/3);
	}
	else{
	LP = ((L - 75)/3);
	}
	}
if ((L==105 || L>105) && (L<135)){
	mb = ji[8];
	lpb0 = 8;
	cb = ji[11];
	nsb=7;
	ms0=ms0+ 5;
	if( FW==1){
	LP = ((135 - L)/3);
	}
	else{
	LP = ((L - 105)/3);
	}
	}
if ((L==135 || L>135) && (L<165)){
	mb = ji[9];
	lpb0 = 9;
	cb = ji[12];
	nsb=8;
	ms0=ms0+ 6;
	if( FW==1){
	LP = ((165 - L)/3);
	}
	else{
	LP = ((L - 135)/3);
	}
	}
if ((L==165 || L>165) && (L<195)){
	mb = ji[10];
	lpb0 = 10;
	cb = ji[1];
	nsb=9;
	ms0=ms0+ 7;
	if( FW==1){
	LP = ((195 - L)/3);
	}
	else{
	LP = ((L - 165)/3);
	}
	}
if ((L==195 || L>195) && (L<225)){
	mb = ji[11];
	lpb0 = 11;
	cb = ji[2];
	nsb=10;
	ms0=ms0+ 8;
	if( FW==1){
	LP = ((225 - L)/3);
	}
	else{
	LP = ((L - 195)/3);
	}
	}
if ((L==225 || L>225) && (L<255)){
	mb = ji[12];
	lpb0 = 12;
	cb = ji[3];
	nsb=11;
	ms0=ms0+ 9;
	if( FW==1){
	LP = ((255 - L)/3);
	}
	else{
	LP = ((L - 225)/3);
	}
	}
if ((L==255 || L>255) && (L<285)){
	mb = ji[1];
	lpb0 = 1;
	cb = ji[4];
	nsb=0;
	ms0=ms0+ 10;
	if( FW==1){
	LP = ((285 - L)/3);
	}
	else{
	LP = ((L - 255)/3);
	}
	}
if ((L==285 || L>285) && (L<315)){
	mb = ji[2];
	lpb0 = 2;
	cb = ji[5];
	nsb=1;
	ms0=ms0+ 11;
	if( FW==1){
	LP = ((315 - L)/3);
	}
	else{
	LP = ((L - 285)/3);
	}
	}
if (ms0>10) {
ms0=ms0-10;
}

with(Math){
	ms = gon[ms0];
	cs = gon[ms0+1];
	lps0 = ms0;
	ds0="" + floor(JZJD+0.5);
	ds=gon[ds0.substring(6,7)];
	db0=floor(JZJD - 12*floor((JZJD+0.5)/12)+0.5)+2;
	db = ji[db0];
	hs0=1;
	hs1=0;
	}
for (var i=1;i<5;i++){
	if ((eval(ds0.substring(6,7))==i) || (eval(ds0.substring(6,7))==i+5)) {
	hs1=hs0;
	}
	hs0=hs0+2;
	}
if ((eval(ds0.substring(6,7))==0) || (eval(ds0.substring(6,7))==5)) {
	hs1=9;
}
if ((HR==23) || (HR>23 && HR<24)) {
	hs1=hs1+2;
}
if (((HR==23) || (HR>23 && HR<24)) || ((HR==00) || (HR>0 && HR<1) || (HR==24))) {
	hb=ji[1];
	}
hb0=2;

for (var i=1;i<23;i++){
	if ((HR==i) || (HR>i && HR<i+2)) {
	hb=ji[hb0];
	hs1=hs1+hb0-1;
	}
	i=i+1;
	hb0=hb0+1;
	}

	if (hs1>10) {
	hs1=hs1-10;
}

with(Math){
	hs=gon[hs1];
	LP = (floor(LP*100)/100);
}

	if (hb==ji[0] ){ // ji[0]  = "Pig [Hai]"
	his1=gon[9];
	his2=gon[1];
	his3="";
	hbi=1;
	}
	if (hb==ji[1]){ // ji[1]  = "Rat [Zi]"
	his1=gon[0];
	his2="";
	his3="";
	hbi=2;
	}
	if (hb==ji[2]){  // ji[2] = "Ox [Chou]" 
	his1=gon[6];
	his2=gon[0];
	his3=gon[8];
	hbi=3;
	}
	if (hb==ji[3] ){  // ji[3]  = "Tiger [Yin]"
	his1=gon[1];
	his2=gon[3];
	his3=gon[5];
	hbi=4;
	}
	if (hb==ji[4]){  // ji[4] "Rabbit [Mao]"
	his1=gon[2];
	his2="";
	his3="";
	hbi=5;
	}
	if (hb==ji[5]){ //  ji[5]   = "Dragon [Chen]"
	his1=gon[5];
	his2=gon[2];
	his3=gon[0];
	hbi=6;
	}
	if (hb==ji[6]){  // ji[6]  "Snake [Si]"
	his1=gon[3]; 
	his2=gon[5];
	his3=gon[7];
	hbi=7;
	}
	if (hb==ji[7]){ // ji[7]  = "Horse [Wu]"
	his1=gon[4];
	his2=gon[6];
	his3="";
	hbi=8;
	}
	if (hb==ji[8]){ // ji[8]  = "Goat [Wei]"
	his1=gon[6];
	his2=gon[4];
	his3=gon[2];
	hbi=9;
	} 
	if (hb==ji[9]){ // ji[9] =   "Monkey [Shen]"
	his1=gon[7];
	his2=gon[9];
	his3=gon[5];
	hbi=10;
	}
	if (hb==ji[10]){ //ji[10] = "Rooster [You]"
	his1=gon[8];
	his2="";
	his3="";
	hbi=11;
	}
	if (hb==ji[11] ){  // ji[11] =  "Dog [Xu]"
	his1=gon[5];
	his2=gon[8];
	his3=gon[4];
	hbi=12;
	}

	if (db==ji[0]){  // "Pig [Hai]"  ji[0]
	dis1=gon[9];
	dis2=gon[1];
	dis3="";
	}
	if (db==ji[1]){  // "Rat [Zi]"
	dis1=gon[0];
	dis2="";
	dis3="";
	}
	if (db==ji[2]){ //"Ox [Chou]"
	dis1=gon[6];
	dis2=gon[0];
	dis3=gon[8];
	}
	if (db==ji[3]){ //"Tiger [Yin]"
	dis1=gon[1];
	dis2=gon[3];
	dis3=gon[5];
	}
	if (db==ji[4]){  //"Rabbit [Mao]"
	dis1=gon[2];
	dis2="";
	dis3="";
	}
	if (db==ji[5]){  // "Dragon [Chen]"
	dis1=gon[5];
	dis2=gon[2];
	dis3=gon[0];
	}
	if (db==ji[6]){ //"Snake [Si]"
	dis1=gon[3];
	dis2=gon[5];
	dis3=gon[7];
	}
	if (db==ji[7]){ //"Horse [Wu]"
	dis1=gon[4];
	dis2=gon[6];
	dis3="";
	}
	if (db==ji[8]){  //"Goat [Wei]"
	dis1=gon[6];
	dis2=gon[4];
	dis3=gon[2];
	}
	if (db==ji[9]){ //"Monkey [Shen]"
	dis1=gon[7];
	dis2=gon[9];
	dis3=gon[5];
	}
	if (db==ji[10]){ //"Rooster [You]"
	dis1=gon[8];
	dis2="";
	dis3="";
	}
	if (db==ji[11]){ //"Dog [Xu]"
	dis1=gon[5];
	dis2=gon[8];
	dis3=gon[4];
	}
	if (mb==ji[0]){ //"Pig [Hai]"
	mis1=gon[9];
	mis2=gon[1];
	mis3="";
	mbi=1;
	}
	if (mb==ji[1]){ //"Rat [Zi]"
	mis1=gon[0];
	mis2="";
	mis3="";
	mbi=2;
	}
	if (mb==ji[2]){ //"Ox [Chou]"
	mis1=gon[6];
	mis2=gon[0];
	mis3=gon[8];
	mbi=3;
	}
	if (mb==ji[3]){ //"Tiger [Yin]"
	mis1=gon[1];
	mis2=gon[3];
	mis3=gon[5];
	mbi=4;
	}
	if (mb==ji[4]){ //"Rabbit [Mao]"
	mis1=gon[2];
	mis2="";
	mis3="";
	mbi=5;
	}
	if (mb==ji[5]){ //"Dragon [Chen]"
	mis1=gon[5];
	mis2=gon[2];
	mis3=gon[0];
	mbi=6;
	}
	if (mb==ji[6]){ //"Snake [Si]"
	mis1=gon[3];
	mis2=gon[5];
	mis3=gon[7];
	mbi=7;
	}
	if (mb==ji[7]){ //"Horse [Wu]"
	mis1=gon[4];
	mis2=gon[6];
	mis3="";
	mbi=8;
	}
	if (mb==ji[8]){ //"Goat [Wei]"
	mis1=gon[6];
	mis2=gon[4];
	mis3=gon[2];
	mbi=9;
	}
	if (mb==ji[9]){ //"Monkey [Shen]"
	mis1=gon[7];
	mis2=gon[9];
	mis3=gon[5];
	mbi=10;
	}
	if (mb==ji[10]){ //"Rooster [You]"
	mis1=gon[8];
	mis2="";
	mis3="";
	mbi=11;
	}
	if (mb==ji[11]){ //"Dog [Xu]"
	mis1=gon[5];
	mis2=gon[8];
	mis3=gon[4];
	mbi=12;
	}
	if (yb==ji[0]){ //"Pig [Hai]"
	yis1=gon[9];
	yis2=gon[1];
	yis3="";
	}
	if (yb==ji[1]){ //"Rat [Zi]"
	yis1=gon[0];
	yis2="";
	yis3="";
	}
	if (yb==ji[2]){ //"Ox [Chou]"
	yis1=gon[6];
	yis2=gon[0];
	yis3=gon[8];
	}
	if (yb==ji[3]){ //"Tiger [Yin]"
	yis1=gon[1];
	yis2=gon[3];
	yis3=gon[5];
	}
	if (yb==ji[4]){ //"Rabbit [Mao]"
	yis1=gon[2];
	yis2="";
	yis3="";
	}
	if (yb==ji[5]){ //"Dragon [Chen]"
	yis1=gon[5];
	yis2=gon[2];
	yis3=gon[0];
	}
	if (yb==ji[6]){ //"Snake [Si]"
	yis1=gon[3];
	yis2=gon[5];
	yis3=gon[7];
	}
	if (yb==ji[7]){ //"Horse [Wu]"
	yis1=gon[4];
	yis2=gon[6];
	yis3="";
	}
	if (yb==ji[8]){ //"Goat [Wei]"
	yis1=gon[6];
	yis2=gon[4];
	yis3=gon[2];
	}
	if (yb==ji[9]){ //"Monkey [Shen]"
	yis1=gon[7];
	yis2=gon[9];
	yis3=gon[5];
	}
	if (yb==ji[10]){ //"Rooster [You]"
	yis1=gon[8];
	yis2="";
	yis3="";
	}
	if (yb==ji[11]){ //"Dog [Xu]"
	yis1=gon[5];
	yis2=gon[8];
	yis3=gon[4];
	}
	if (cb==ji[0]){ //"Pig [Hai]"
	cis1=gon[9];
	cis2=gon[1];
	cis3="";
	}
	if (cb==ji[1]){ //"Rat [Zi]"
	cis1=gon[0];
	cis2="";
	cis3="";
	}
	if (cb==ji[2]){ //"Ox [Chou]"
	cis1=gon[6];
	cis2=gon[0];
	cis3=gon[8];
	}
	if (cb==ji[3]){ //"Tiger [Yin]"
	cis1=gon[1];
	cis2=gon[3];
	cis3=gon[5];
	}
	if (cb==ji[4]){ //"Rabbit [Mao]"
	cis1=gon[2];
	cis2="";
	cis3="";
	}
	if (cb==ji[5]){ //"Dragon [Chen]"
	cis1=gon[5];
	cis2=gon[2];
	cis3=gon[0];
	}
	if (cb==ji[6]){ //"Snake [Si]"
	cis1=gon[3];
	cis2=gon[5];
	cis3=gon[7];
	}
	if (cb==ji[7]){ //"Horse [Wu]"
	cis1=gon[4];
	cis2=gon[6];
	cis3="";
	}
	if (cb==ji[8]){ //"Goat [Wei]"
	cis1=gon[6];
	cis2=gon[4];
	cis3=gon[2];
	}
	if (cb==ji[9]){ //"Monkey [Shen]"
	cis1=gon[7];
	cis2=gon[9];
	cis3=gon[5];
	}
	if (cb==ji[10]){ //"Rooster [You]"
	cis1=gon[8];
	cis2="";
	cis3="";
	}
	if (cb==ji[11]){ //"Dog [Xu]"
	cis1=gon[5];
	cis2=gon[8];
	cis3=gon[4];
	}
	lbi=34-mbi-hbi;
	for(var i=0;lbi>12;i++){
	lbi=lbi-12;
	}
	lb = ji[lbi];
	if (lb==ji[0]){ //"Pig [Hai]"
	lis1=gon[9];
	lis2=gon[1];
	lis3="";
	}
	if (lb==ji[1]){ //"Rat [Zi]"
	lis1=gon[0];
	lis2="";
	lis3="";
	}
	if (lb==ji[2]){ //"Ox [Chou]"
	lis1=gon[6];
	lis2=gon[0];
	lis3=gon[8];
	}
	if (lb==ji[3]){ //"Tiger [Yin]"
	lis1=gon[1];
	lis2=gon[3];
	lis3=gon[5];
	}
	if (lb==ji[4]){ //"Rabbit [Mao]"
	lis1=gon[2];
	lis2="";
	lis3="";
	}
	if (lb==ji[5]){ //"Dragon [Chen]"
	lis1=gon[5];
	lis2=gon[2];
	lis3=gon[0];
	}
	if (lb==ji[6]){ //"Snake [Si]"
	lis1=gon[3];
	lis2=gon[5];
	lis3=gon[7];
	}
	if (lb==ji[7]){ //"Horse [Wu]"
	lis1=gon[4];
	lis2=gon[6];
	lis3="";
	}
	if (lb==ji[8]){ //"Goat [Wei]"
	lis1=gon[6];
	lis2=gon[4];
	lis3=gon[2];
	}
	if (lb==ji[9]){ //"Monkey [Shen]"
	lis1=gon[7];
	lis2=gon[9];
	lis3=gon[5];
	}
	if (lb==ji[10]){ //"Rooster [You]"
	lis1=gon[8];
	lis2="";
	lis3="";
	}
	if (lb==ji[11]){ //
	lis1=gon[5];
	lis2=gon[8];
	lis3=gon[4];
	}
	if (ys0==2){
	lsi=lbi+2;
	}
	if (ys0==7){
	lsi=lbi+2;
	}
	if (ys0==3){
	lsi=lbi+4;
	}
	if (ys0==8){
	lsi=lbi+4;
	}
	if (ys0==4){
	lsi=lbi+6;
	}
	if (ys0==9){
	lsi=lbi+6;
	}
	if (ys0==5){
	lsi=lbi+8;
	}
	if (ys0==10){
	lsi=lbi+8;
	}
	if (ys0==1){
	lsi=lbi;
	}
	if (ys0==6){
	lsi=lbi;
	}
	for(var i=0;lsi>10;i++){
	lsi=lsi-10;
	}
	ls=gon[lsi];
	lpb0 = lpb0 + FW;
	if ((lpb0>12) || (lpb0<0)){
	lpb0 = lpb0 - 12*FW;
	}
	lpb1 = ji[lpb0];
	lpb0 = lpb0 + FW;
	if ((lpb0>12) || (lpb0<0)){
	lpb0 = lpb0 - 12*FW;
	}
	lpb2 = ji[lpb0];
	lpb0 = lpb0 + FW;
	if ((lpb0>12) || (lpb0<0)){
	lpb0 = lpb0 - 12*FW;
	}
	lpb3 = ji[lpb0];
	lpb0 = lpb0 + FW;
	if ((lpb0>12) || (lpb0<0)){
	lpb0 = lpb0 - 12*FW;
	}
	lpb4 = ji[lpb0];
	lpb0 = lpb0 + FW;
	if ((lpb0>12) || (lpb0<0)){
	lpb0 = lpb0 - 12*FW;
	}
	lpb5 = ji[lpb0];
	lpb0 = lpb0 + FW;
	if ((lpb0>12) || (lpb0<0)){
	lpb0 = lpb0 - 12*FW;
	}
	lpb6 = ji[lpb0];
	lpb0 = lpb0 + FW;
	if ((lpb0>12) || (lpb0<0)){
	lpb0 = lpb0 - 12*FW;
	}
	lpb7 = ji[lpb0];
	lpb0 = lpb0 + FW;
	if ((lpb0>12) || (lpb0<0)){
	lpb0 = lpb0 - 12*FW;
	}
	lpb8 = ji[lpb0];
	lpb0 = lpb0 + FW;
	if ((lpb0>12) || (lpb0<0)){
	lpb0 = lpb0 - 12*FW;
	}
	lpb9 = ji[lpb0];
	lpb0 = lpb0 + FW;
	if ((lpb0>12) || (lpb0<0)){
	lpb0 = lpb0 - 12*FW;
	}
	lpb10 = ji[lpb0];
	lpb0 = lpb0 + FW;
	if ((lpb0>12) || (lpb0<0)){
	lpb0 = lpb0 - 12*FW;
	}
	lps0 = lps0 + FW;
	if ((lps0>10) || (lps0<0)){
	lps0 = lps0 - 10*FW;
	}
	lps1 = gon[lps0];
	lps0 = lps0 + FW;
	if ((lps0>10) || (lps0<0)){
	lps0 = lps0 - 10*FW;
	}
	lps2 = gon[lps0];
	lps0 = lps0 + FW;
	if ((lps0>10) || (lps0<0)){
	lps0 = lps0 - 10*FW
	}
	lps3 = gon[lps0];
	lps0 = lps0 + FW;
	if ((lps0>10) || (lps0<0)){
	lps0 = lps0 - 10*FW;
	}
	lps4 = gon[lps0];
	lps0 = lps0 + FW;
	if ((lps0>10) || (lps0<0)){
	lps0 = lps0 - 10*FW;
	}
	lps5 = gon[lps0]
	lps0 = lps0 + FW
	if ((lps0>10) || (lps0<0)){
	lps0 = lps0 - 10*FW
	}
	lps6 = gon[lps0];
	lps0 = lps0 + FW;
	if ((lps0>10) || (lps0<0)){
	lps0 = lps0 - 10*FW;
	}
	lps7 = gon[lps0];
	lps0 = lps0 + FW;
	if ((lps0>10) || (lps0<0)){
	lps0 = lps0 - 10*FW;
	}
	lps8 = gon[lps0];
	lps0 = lps0 + FW;
	if ((lps0>10) || (lps0<0)){
	lps0 = lps0 - 10*FW;
	}
	lps9 = gon[lps0];
	lps0 = lps0 + FW;
	if ((lps0>10) || (lps0<0)){
	lps0 = lps0 - 10*FW;
	}
	lps10 = gon[lps0];
	lps0 = lps0 + FW;
	if ((lps0>10) || (lps0<0)){
	lps0 = lps0 - 10*FW;
	}

	form.ys.value = ys ;
	form.ms.value= ms ;
	form.ds.value = ds ;
	form.hs.value = hs ;
	form.cs.value = cs;
	form.ls.value = ls;

	form.yb.value = yb;
	form.mb.value= mb;
	form.db.value = db;
	form.hb.value = hb;
	form.cb.value = cb;
	form.lb.value = lb;

	form.comment1.value = str1;
	form.comment2.value = str2;

	form.hs1.value = his1;
	form.hs2.value = his2;
	form.hs3.value = his3;
	form.ds1.value = dis1;
	form.ds2.value = dis2;
	form.ds3.value = dis3;
	form.ms1.value = mis1;
	form.ms2.value = mis2;
	form.ms3.value = mis3;
	form.ys1.value = yis1;
	form.ys2.value = yis2;
	form.ys3.value = yis3;
	form.cs1.value = cis1;
	form.cs2.value = cis2;
	form.cs3.value = cis3;
	form.ls1.value = lis1;
	form.ls2.value = lis2;
	form.ls3.value = lis3;
	form.lp1.value = (Math.round((LP)*100)/100);
	form.lp2.value = (Math.round((LP + 10)*100)/100);
	form.lp3.value = (Math.round((LP + 20)*100)/100);
	form.lp4.value = (Math.round((LP + 30)*100)/100);
	form.lp5.value = (Math.round((LP + 40)*100)/100);
	form.lp6.value = (Math.round((LP + 50)*100)/100);
	form.lp7.value = (Math.round((LP + 60)*100)/100);
	form.lp8.value = (Math.round((LP + 70)*100)/100);
	form.lp9.value = (Math.round((LP + 80)*100)/100);
	form.lp10.value = (Math.round((LP + 90)*100)/100);
	form.lps1.value = lps1;
	form.lps2.value = lps2;
	form.lps3.value = lps3;
	form.lps4.value = lps4;
	form.lps5.value = lps5;
	form.lps6.value = lps6;
	form.lps7.value = lps7;
	form.lps8.value = lps8;
	form.lps9.value = lps9;
	form.lps10.value = lps10;
	form.lpb1.value = lpb1;
	form.lpb2.value = lpb2;
	form.lpb3.value = lpb3;
	form.lpb4.value = lpb4;
	form.lpb5.value = lpb5;
	form.lpb6.value = lpb6;
	form.lpb7.value = lpb7;
	form.lpb8.value = lpb8;
	form.lpb9.value = lpb9;
	form.lpb10.value = lpb10;

	nsky=((3007 -YY)%9)+1;
	if(YEFL==1){
	nsky=nsky+1;
	}
	if(nsky==10){
	nsky=1;
	}
	smo=nsb-2;
	if(smo<0){
	smo=smo+12;
	}
	nyb=yb0-1;
	if(nyb<0){
	nyb=nyb+12
	}
	if((nyb%3)==0){
	nskm=((25-smo)%9)+1;
	}
	if((nyb%3)==1){
	nskm=((22-smo)%9)+1;
	}
	if((nyb%3)==2){
	nskm=((19-smo)%9)+1;
	}
	if(GEN==1){
	if(nsky==5){
	mng=2;
	}
	else{
	mng=nsky;
	}
	}
	else{
	mng=6-nsky;
	if(mng==5){
	mng=8;
	}
	}
	if(mng<1){
	mng=mng+9;
	}
	str5="West group";
	if(mng==1||mng==3||mng==4||mng==9){
	str5="East group";
	}

	form.nsky.value="  " + nsky;
	form.nskm.value="  " + nskm;
	form.mng.value="  " + mng;
	form.strgr.value=str5;
}


function start(form) {
	nowdate = new Date();
	sday = nowdate.getDate();
	smonth = nowdate.getMonth() +1;
	syear =nowdate.getFullYear();
	shour = nowdate.getHours();
	sminute = nowdate.getMinutes();
	form.nnin.value = syear;
	form.nyuet.value = smonth;
	form.nyat.value = sday;
	form.nsee.value = shour;
	form.nfen.value = sminute;
	}