# 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=**E**2FPART **E**-2N

Z=INT (**E**2FPART **E**-4N

A=INT (**E**2FPART **E**-6N

C=INT **E**-6N

IF N>**E**6 GOTO 6

C=A

A=Z

Z=19

LABEL 6

DATA INT .05Z-2Σx+C+INT .25X+365X+36524(Z-17)+INT √2A^{-1}INT -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