BIORTMS

This program turns your calculator into a calendar with biorhythm counting (year 1700-2099). You enter your birthdate in a DDMMYY form (f.e. 24081977). If the century is not specified, 19 will be inserted. Program first tells you your age (in days), the it starts printing the biorhythms in the following order:
Physical cycle - 23 days
Emotional cycle - 28 days
Intellectual cycle - 33 days
"+" stands for the positive phase, "-" for the negative and "!" for the critical day.
If you want to know, which day of week will the date fall on, enter the date in a form of DDMMRR.1 (f.e. 24081977.1).
Not the 5th line from the end. It is a complete calendar for 4 centuries in one line ...

Source code (484 B)


CLRT
PRINT"BIRTH -DDMMRR
STATx
INPUT D
N=INT D
GOSUB 1
IF FPART D=.1 GOTO 7
PRINT"TODAY -DDMMRR
INPUT W
N=W
GOSUB 1
PRINT"AGE
N=Σx
PRINT N
LABEL 2
Z=18
WAIT
CLRT
LABEL 3
IF Z>=33 GOTO 2
Z=Z+5
X=INT (.1+ZFPART Σx⌈Z
DATA 3-1
IF 2X>Z GOTO 4
IF =FPART X⌈INT .5Z GOTO 5
PRINT" +
GOTO 3
LABEL 4
PRINT" -
GOTO 3
LABEL 5
PRINT"!
GOTO 3
LABEL 1
X=E2FPART E-2N
Z=INT (E2FPART E-4N
A=INT (E2FPART E-6N
C=INT E-6N
IF N>E6 GOTO 6
C=A
A=Z
Z=19
LABEL 6
DATA INT .05Z-2Σx+C+INT .25X+365X+36524(Z-17)+INT √2A-1INT -sin (X+INT .05Z)INT cos FPART .25X+INT (30.55A-31.9+AINT 2A-1
CLRT
RETURN
LABEL 7
1+INT (7.1FPART (7-1(Σx+3