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