1 REM *** Written by Mark Ray, please read welcome.msg first ***
2 ON ERROR IF ERR=17 THEN CH."AUTO" ELSE REPORT:PRINT " at ";ERL:END
10 CLS:PRINT SPC(32);"BIORHYTHM PLOTTER"'''
20 INPUT "Date Of Birth (DD,MM,YY):"BD,BM,BY
30 INPUT TAB(49,4);"Graph Date (DD,MM,YY):"D,M,Y
40 DIM DAYS(12):FOR C=1TO12:READ DAYS(C):NEXT
50 FORC=BM+1TO12:Z=Z+DAYS(C):NEXT:FORC=1TOM:L=L+DAYS(C):NEXT
60 Z=Z+DAYS(BM)-BD:L=L+D:IF Z<60 AND BY MOD 4=0 THEN Z=Z+1
70 IF Z>59 AND Y MOD 4=0 THEN L=L+1
80 FORC=BY+1TOY-1:L=L-(C MOD4=0):NEXT:L=L+Z+((Y-BY-2)*365)
90 CLS:PRINTTAB(58,0);"High";TAB(58,4);"Critical";TAB(58,7);"Low";
100PRINTTAB(14,4);D;"/";M;"/";Y;CHR$(30);
110MOVE 345,31:DRAW 135,31:PROCblip:PROCplot("Intellectual",33)
120PROCplot("Physical",23):PROCplot("Emotional",28)
130CHAIN"AUTO"
140DATA 31,28,31,30,31,30,31,31,30,31,30,31
150DEF PROCplot(N$,P)
160C=0:MOVE 135,FNcurve(P)
170FORC=0TO21:DRAW 135+C*10,FNcurve(P):NEXT
180PRINTN$:A=GET
190ENDPROC
200DEFPROCblip:FORC=135TO345STEP10:PLOT69,C,32:NEXT:ENDPROC
210DEFFNcurve(P)=31+SIN((L+C MOD P)*PI*2/P)*31