function Dobio(f) {
    A=new Array(); Z=new Array();
    TAB17="     "; TAB10="               "
    Z[1]=23;Z[2]=28;Z[3]=33
    P2=2*Math.PI
    A$=" 01020304050607080910111213141516171819202122232425262728293031"
    for (i=1; i <= 12; i++) { A[1,i]=31; A[2,i]=31; }
    A[1,2]=28;A[1,4]=30;A[1,6]=30;A[1,9]=30;A[1,11]=30;
    A[2,2]=29;A[2,4]=30;A[2,6]=30;A[2,9]=30;A[2,11]=30;
    db=f.DateofB.value;sbd=f.SBIO.value;
    Q=f.nmos.value;
    window2=window.open("","window2","resizable=yes,scrollbars,width=640,height=480,screenX=0,screenY=0,left=0,top=0")
    //window2.resizeTo(800,600)
    window2.document.write(" Bio-Rhythm Curves for ***" + f.urname.value + ", born: " + f.DateofB.value + " ***<BR>")
    window2.document.write(" Courtesy: FL-Mall.com")
    window2.document.write("<PRE>")
    window2.document.write(" <BR>")
    //document.write(" <BR>")
    //document.write(" <BR>")
    //document.write(" <BR>")
    window2.document.write("    DATE                  DOWN          0          UP<BR>")
    window2.document.write(" ----------     ------------------------+------------------------<BR>")
    //document.write("</PRE>")
    DOB=new Date(db);B=DOB.getMonth()+1;C=DOB.getDate();D=DOB.getYear();
    SBIO=new Date(sbd);E=SBIO.getMonth()+1;F=SBIO.getDate();G=SBIO.getYear();
    if (D < 1900) { D=D+1900 }; if (G < 1900) { G=G+1900 };
    //document.write("B="+B+" C="+C+" D="+D+" E="+E+" F="+F+" G="+G+"<BR>")
    H=G-D;I=0;
    for (j=D; j<=G; j++) { if ((j/4) == Math.floor(j/4)) {I=I+1} }
    K=365*H+I
    M=1; if (D/4 == Math.floor(D/4)) { M=2 }
    if (B != 1) {
        for (N=1; N<B; N++) { K=K-A[M,N] }
    }
    if (M != 1) { K=K-1 }
    K=K-C
    M=1; if (G/4 == Math.floor(G/4)) { M=2 }
    if (E != 1) {
        for (N=1; N<E; N++) { K=K+A[M,N] }
    }
    K=K+F;V=F-1;Q=Q*31;
    for (P=K; P<=K+Q; P++) {
        L$="                        :                        "
        V=V+1
        for (R=1; R<=3; R++) {
            P1=P/Z[R];O=(Math.sin((P1-Math.floor(P1))*P2)+1)*24 + 1.5
            O1=Math.floor(O-1);O2=Math.floor(O+1);
            L1$="I"; if (R==1){L1$="P"}; if(R==2){L1$="E"};
            L$=L$.substr(0,O1)+L1$+L$.substr(O2-1,L$.length)
        }
        if (V > A[M,E]) {
            V=1
            if (E == 12) {
                G=G+1; E=1; M=1; window2.document.write("<br>"); nico=prtaxis();
                if (G/4 == Math.floor(G/4)) { M=2 }
            }
            else { E=E+1 ; window2.document.write("<br>"); nico=prtaxis();}
        }
        Y$=new String(G)
        if (Y$.length ==1 ) { Y$="0"+Y$ }
        D$=A$.substr(E*2-1,2) + "/" + A$.substr(V*2-1,2) + "/" + Y$
        window2.document.write(" " + D$ + TAB17 + L$ + "<br>")
    }
    window2.document.write("<br>")
    //document.write("<pre>")
    window2.document.write(" ----------     ")
    for (Z9=1; Z9<=25; Z9++) {
        window2.document.write("--")
    }
    window2.document.write("</pre>")
    return false
}
function prt(astr) {
    document.write(astr)
    return false
}
function prtaxis() {
return
}
function ResetStDt() {
    today = new Date();
    dtstr = (today.getMonth()+1) + "/" + today.getDate() + "/" + today.getYear()
    document.BioInputs.SBIO.value = dtstr
    return
}