0 'NEWBIO.BA Richard Hanson
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:MAXFILES=0:CLEAR50:PRINTTAB(10)"BIORHYTHYM CALCULATOR":INPUT"Your birth month";MM:INPUT"Day";DD
3 INPUT"Year";YY:IFYY<1000THENPRINT"Enter full year":GOTO3
4 GOSUB31:BF=FA:INPUT"Present month";MM:INPUT"Day";DD
5 INPUT"Year";YY:IFYY<1000THENPRINT"Enter full year":GOTO5
6 GOSUB31:PF=FA:DO=PF-BF
7 CLS:PRINT:PRINT"You are"DO"days old":D=3.14159/180:DO=DO-10:PRINT"Press any key to draw graphs.
8 A$=INKEY$:IFA$=""THEN8
9 P=23:E=28:I=33:CLS:PP=DO/P:EE=DO/E:II=DO/I:PP=PP-INT(PP):EE=EE-INT(EE):II=II-INT(II):II=INT((I*II)+.5):PP=INT((P*PP)+.5):EE=INT((E*EE)+.5):EN=(EE*100)/E:PN=(PP*100)/P:IN=(II*100)/I:DS=(EN/100)*360:XO=0:YO=0:PRINT@0,"E";:X=0:XI=239/E
10 LINE(0,31)-(239,31):FORXX=0TO239STEPXI:LINE(XX,29)-(XX,33):NEXT:LINE(XI*10,0)-(XI*10,63):FORA=DSTODS+360STEP360/E:ED=(SIN(A*D)*31)+31:IFXO=0THEN12
11 LINE(XO,YO)-(X,ED)
12 XO=X:YO=ED:X=X+XI:NEXT
13 A$=INKEY$:IFA$=""THEN13
14 CLS:XO=0:YO=0:PRINT@0,"P";:LINE(0,31)-(239,31):X=0:XI=239/P:DS=(PN/100)*360:FORXX=0TO239STEPXI:LINE(XX,29)-(XX,32):NEXT:LINE(XI*10,0)-(XI*10,63):FORA=DSTODS+360STEP360/P:S=(SIN(A*D)*31)+31:IFXO=0THEN16
15 LINE(XO,YO)-(X,S)
16 XO=X:YO=S:X=X+XI:NEXT
17 A$=INKEY$:IFA$=""THEN17
18 CLS:DS=(IN/100)*360:LINE(0,31)-(239,31):XI=239/I:FORXX=0TO239STEPXI:LINE(XX,29)-(XX,33):NEXT:LINE(XI*10,0)-(XI*10,63):PRINT@0,"I";:X=0:XO=O:YO=0:FORA=DSTODS+360STEP360/I:S=(SIN(A*D)*31)+31:IFXO=0THEN20
19 LINE(XO,YO)-(X,S)
20 XO=X:YO=S:X=X+XI:NEXT
21 A$=INKEY$:IFA$=""THEN21
22 CLS:PRINT"Redraw same graph? ";
23 A$=INKEY$:IFA$=""THEN23
24 IFASC(A$)>90THENA$=CHR$(ASC(A$)-32)
25 IFA$="Y"ORA$="y"THENPRINT"yes...":FORZ=1TO200:NEXTZ:DO=DO+10:GOTO7
26 IFA$="N"ORA$="n"THENPRINT"no...":FORZ=1TO200:NEXTZ:GOTO27ELSEGOTO23
27 PRINT:PRINT:PRINT"Draw another graph? ";
28 A$=INKEY$:IFA$=""THEN28
29 IFASC(A$)>90THENA$=CHR$(ASC(A$)-32)
30 IFA$="Y"ORA$="y"THENPRINT"yes...":FORZ=1TO200:NEXTZ:RUNELSEIFA$="N"ORA$="n"THENPRINT"no...":FORZ=1TO200:NEXTZ:MENUELSE28
31 IFMM=1ORMM=2THEN33
32 FA=365*YY+DD+31*(MM-1)-INT(.4*MM+2.3)+INT(YY/4)-INT(3/4*(INT(YY/100)+1)):RETURN
33 FA=365*YY+DD+31*(MM-1)+INT((YY-1)/4)-INT(3/4*(INT(((YY-1)/100)+1))):RETURN