1 R1=(360/33)/57.2958
2 R2=(360/28)/57.2958
3 R3=(360/23)/57.2958
50 DATA0,31,59,90,120,151,181,212,243,273,304,334,365
60 DIML$(50)
75 RESTORE
100 PRINT"ENTER BIRTHDATE,CURRENT DATE (YYMMDD)"
125 P1=0
150 J6=1
200 INPUTD1,D2
205 D9=D2
206 PRINT"ENTER DURATION"
207 INPUTJ5
210 PRINT"ENTER NAME OF SUBJECT"
220 INPUT A$
230 GOSUB12000
300 IFD1>D2THENPRINT"INVALID DATES":GOTO200
400 X1=D1
500 GOSUB1000
550 Y1=X2:M1=X3:D1=X4
600 X1=D2
625 GOSUB1000
650 Y2=X2:M2=X3:D2=X4
800 GOTO4000
1000 X2=INT(X1/10000)
1100 X3=INT(X1/100)-(X2*100)
1200 X4=X1-((X3*100)+(X2*10000))
1300 RETURN
4000 D4=(INT((Y2-1)*365.25)-INT((Y1-1)*365.25))
4100 FOR I=1TOM1
4200 READJ1
4300 NEXTI
4400 RESTORE
4500 FORI=1TOM2
4600 READJ2
4700 NEXTI
4800 J1=J1+D1
4900 J2=J2+D2
5000 L1=(Y1/4)-(INT(Y1/4))
5100 IFL1=0THENL1=1:GOTO5300
5200 L1=0
5300 L2=(Y2/4)-(INT(Y2/4))
5400 IFL2=0THENL2=1:GOTO5600
5500 L2=0
5600 IFM1>2THENJ1=J1+L1
5700 IFM2>2THENJ2=J2+L2
5800 D4=D4+J2-J1
6000 D1=(D4-(INT(D4/33)*33))
6100 D2=(D4-(INT(D4/28)*28))
6200 D3=(D4-(INT(D4/23)*23))
6300 FORL3=1TO50
6350 FORI=1TO50
6360 L$(I)=" "
6370 NEXTI
6400 X=SIN(R1*D1)
6500 Y=SIN(R2*D2)
6600 Z=SIN(R3*D3)
6700 L$(X*20+25)="*"
6800 L$(Y*20+25)="+"
6900 L$(Z*20+25)="."
6950 PRINT":  ";
7000 FORI=1TO50
7050 L$(25)=":"
7100 PRINTL$(I);
7200 NEXTI
7205 PRINT":  ";
7207 GOSUB10000:PRINTD5;" :    ";
7210 IFD1=0THENC=1:PRINT"* ";
7215 IFD1=16THENC=1:PRINT"* ";
7220 IFD2=0THENC=1:PRINT"+ ";
7225 IFD2=14THENC=1:PRINT"+ ";
7230 IFD3=0THENC=1:PRINT". ";
7235 IFD3=12THENC=1:PRINT". ";
7240 IFC=1THENC=0
7250 PRINT
7300 D1=D1+1
7400 D2=D2+1
7500 D3=D3+1
7600 IFD1=33THEND1=0
7700 IFD2=28THEND2=0
7800 IFD3=23THEND3=0
7900 J2=J2+1
7920 J6=J6+1
7950 IFJ5<J6GOTO8300
8000 NEXTL3
8050 P1=P1+1
8100 GOSUB14500
8125 PRINT:PRINT
8150 GOSUB12000
8200 GOTO6300
8300 P1=P1+1
8350 GOSUB14500
8400 FORI=1/60:PRINT:NEXTI
8500 GOTO75
10000 RESTORE
10100 FORI=1TO13
10150 J4=J3
10200 READJ3
10250 IFJ2>59THENJ3=J3+L2
10300 IFJ2<=J3GOTO11000
10400 NEXTI
10500 Y2=Y2+1
10510 L2=(Y2/4)-(INT(Y2/4))
10520 IFL2=0THENL2=1:GOTO10600
10530 L2=0
10600 J2=J2-365
10700 GOTO10000
11000 M2=I-1
11100 D6=J2-J4
11150 IFJ2=60THEND6=D6+L2
11200 D5=Y2*10000+(M2*100)+D6
11300 RETURN
12000 FORI=1TO75
12100 PRINT"-";
12200 NEXTI
12250 PRINT
12300 PRINT": COMPUTERIZED STUDY OF BIORYTHMIC CURVES";
12400 GOSUB13600
12500 PRINT": SUBJECT, ";A$;
12600 GOSUB13600
12700 PRINT": DATE OF STUDY - ";D9;" - DURATION";J5;" DAYS";
12800 GOSUB13600
12810 FORI=1TO75:PRINT"-";:NEXTI:PRINT
13200 FORI=1TO75:PRINT"-";:NEXTI
13210 PRINT
13250 PRINT":          LOW             :          HIGH           :";
13260 PRINT"   DATE    :CRITICAL";
13400 PRINT":"
13500 FORI=1TO75
13510 PRINT"-";
13520 NEXTI
13530 PRINT
13540 RETURN
13600 J=75-POS(X)
13700 FORI=1TOJ-1
13800 PRINT" ";
13900 PRINT":"
14100 RETURN
14500 FORI=1TO75:PRINT"-";:NEXTI:PRINT
14600 PRINT": * = INTELLECTUAL ABILITY, AMBITION";
14700 GOSUB13600
14800 PRINT": + = SENSIBILITY, NERVES, MOOD, CREATIVE ABILITY";
14900 GOSUB13600
15000 PRINT": . = PHYSICAL STRENGTH, FORURANCE, CONFIDENCE";
15100 GOSUB13600
15150 FORI=1TO75:PRINT"-";:NEXTI:PRINT
15200 PRINTTAB(31);"PAGE ";P1
15400 RETURN
ORURANCE, CONFIDENCE";
15100 GOSUB136