(41C) Biorhythm Calculator

[Gamo]

This is my first attempt to program on HP 41C
I don't own a real one and used the GO41C for Android emulator.

This Biorhythm Calculator program was adapted from my previous post
that was program on HP-11C

Procedure:

[SIN] "Day Alive?" input your Total Day Alive then "Ready"
[A] "Physical" [R/S] result in percent
[B] " Emotional" [R/S] result in percent
[C] "Intellectual" [R/S] result in percent
[E] "Average" [R/S] result in percent [R/S] Add one more day to previous TDA

Continue start with A B C E and so on.

Example: USER mode

My TDA is 14554 What is the Physical, Emotional, Intellectual and Average?

[SIN] "DAY ALIVE?" --> 14554 [R/S] --> "Ready"

[A] "PHYSICAL" [R/S] 98
[B] "EMOTION" [R/S] 97
[C] "INTELLCTUAL" [R/S] 19
[E] "AVERAGE" [R/S] 59 [R/S] 14555

Continue [A] --> [B] --> [C] --> [E] then [R/S]

For new Total Day Alive Start [SIN] and enter new TDA

Program:

Code:


LBL BIO
DAY ALIVE?
XEQ "PROMPT"
STO 01
360
STO 02
23
STO 03
28
STO 04
33
STO 05
FIX 0
READY
XEQ "PROMPT"
-----------------------------
LBL PHY
PHYSICAL
XEQ "PROMPT"
RCL 01
RCL 02
x
STO 00
RCL 03
÷
SIN
STO 06
EEX 2
x
RTN
-----------------------------
LBL EMO
EMOTIONAL
XEQ "PROMPT"
RCL 00
RCL 04
÷
SIN
STO+06
EEX 2
x
RTN
----------------------------
LBL INT
INTELLECTUAL
XEQ "PROMPT"
RCL 00
RCL 05
÷
SIN
STO+06
EEX 2
x
RTN
---------------------------
LBL AVE
AVERAGE
XEQ "PROMPT"
RCL 06
3
÷
EEX 2
x
R/S
1
STO+01
RCL 01
RTN

Run Mode:
ASN BIO [SIN]
ASN PHY [A]
ASN EMO [B]
ASN INT [C]
ASN AVE [E]
--------------------------------

Gamo