226 Biorhythms
130 PEN 3:LOCATE 4,12:PRINT"YEAR REQUIRE D:";:PEN 1:INPUT Y1:LOCATE 18,12:PRINT C HR$(18):LOCATE 18,12:PRINT Y1;"
140 PEN 2:LOCATE 4,14:PRINT CHR$(18);"MO NTH REQUIRED:";:PEN 1:INPUT M$:IF M$<"1"
THEN 140 ELSE M1=VAL(M$):IF M1<1 OR Ml> 12 THEN 140
150 LOCATE 4,16:PRINT CHR$(18);"DAY REQU IRED:";:PEN 1:INPUT D$:IF D$<"1" THEN 15 0 ELSE D1=VAL(D$):IF D1<1 OR D1>31 THEN 150
160 TOTAL=(Y-1)*365.25
170 TOTAL2=(Y1-1)*365.25
180 IF M>1 THEN TOTAL=TOTAL+M(M-1)
190 IF M1>1 THEN TOTAL2=TOTAL2+M(M1-1) 200 IF M-1>1 AND Y/4=INT(Y/4) THEN TOTAL =TOTAL+1
210 IF M1-1>1 AND Y/4=INT(Y/4) THEN TOTA L2=TOTAL2+1
220 TOTAL=TOTAL+D:TOTAL2=TOTAL2+D1 230 DAY=TOTAL2-TOTAL1
240 IF M1=M AND D1=D THEN GOSUB 540 250 CLS
260 GOSUB 460
270 P=DAY-(INT(DAY/23)*23)
280 E=DAY-(INT(DAY/28)*28)
290 I=DAY-(INT(DAY/33)*33)
300 LOCATE 1,1:PRINT CHR$(24);"Physical cycle";CHR$(24)
310 FOR N=P*C TO (P*C)+638
320 PLOT N-(P*C),(167+167*SIN(N/(11.5*PI ))),1
330 NEXT
340 PEN 2:LOCATE 1,1:PRINT"Emotional cyc le":PEN 1
350 FOR N=E*C TO (E*C)+638
360 PLOT N-(E*C),(167+167*SIN(N/(14*PI)) ),2
370 NEXT
380 PEN 3:LOCATE 1,1:PRINT"Intellectual cycle":PEN 1
390 FOR N=I*C TO (I*C)+639
400 PLOT N-(I*C),(167+167*SIN(N/(16.5*PI ))),3