The Museum of HP Calculators

Biorhythms for the HP-95C

This program is Copyright © 1977 by Hewlett-Packard Company and is used here by permission. It was originally printed in the HP-95C Applications book. This program was entered by André Wilhelmus and the curator added comments from the HP manual.

This program is supplied without representation or warranty of any kind. André Wilhelmus, Hewlett-Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Program Listing

CODE KEYS
A-000    lbl A f LBL A
A-001    62 22 g RAD Birthdate
A-002    53  9 GSB 9 Store N
A-003    35  9 STO 9
A-004    61 53 f RTN - - - - - - - - - - - - - - - - - - - -
A-005 61 63  1 f LBL 1
A-006    53  9 GSB 9 Biodate
A-007    45  9 RCL 9
A-008       49
A-009    35  8 STO 8 Store N2 − N1
A-010 61 63  8 f LBL 8
A-011        1 1
A-012        8 8
A-013    35  7 STO 7
A-014    61 14 f SPACE
A-015    53  7 GSB 7 23-day cycle
A-016    53  7 GSB 7 28-day cycle
A-017 61 63  7 f LBL 7 - - - - - - - - - - - - - - - - - - - -
A-018        5 5
A-019 35 59  7 STO + 7 # days
A-020    45  8 RCL 8
A-021    45  7 RCL 7
A-022       24 ÷
A-023    62  1 g FRAC
A-024        2 2
A-025       39 ×
A-026    62  0 g π
A-027       39 ×
A-028    61  7 f SIN
A-029       21 ENTER ↑
A-030    61  2 f ABS
A-031    62 42 g x≠0
A-032       24 ÷
A-033    61  0 f LAST x
A-034       23 EEX
A-035        7 7
A-036       59 +
A-037       23 EEX
A-038        7 7
A-039       49
A-040       39 ×
A-041       14 PRINT x Bio value
A-042    61 53 f RTN - - - - - - - - - - - - - - - - - - - -
A-043 61 63  6 f LBL 6
A-044        1 1 Next day
A-045 35 59  8 STO + 8
A-046    53  8 GSB 8 - - - - - - - - - - - - - - - - - - - -
A-047    63  6 GTO 6
A-048 61 63  9 f LBL 9 Compute N(M, D, Y)
A-049       21 ENTER ↑
A-050    61  1 f INT
A-051    35  6 STO 6 M
A-052       49
A-053       23 EEX
A-054        2 2
A-055       39 ×
A-056       21 ENTER ↑ D
A-057    61  1 f INT
A-058    35  5 STO 5
A-059       49
A-060       23 EEX
A-061        4 4
A-062       39 × Y
A-063    35  4 STO 4
A-064        2 2
A-065    45  6 RCL 6
A-066    61 44 f x>y
A-067    63  2 GTO 2
A-068        1 1
A-069 35 49  4 STO − 4
A-070        1 1
A-071        2 2
A-072 35 59  6 STO + 6
A-073 61 63  2 f LBL 2
A-074        1 1
A-075 35 59  6 STO + 6
A-076    45  6 RCL 6
A-077        3 3
A-078        0 0
A-079       66
A-080        6 6
A-081       39 ×
A-082    61  1 f INT
A-083    45  4 RCL 4
A-084        3 3
A-085        6 6
A-086        5 5
A-087       66
A-088        2 2
A-089        5 5
A-090       39 ×
A-091    61  1 f INT
A-092       59 +
A-093    45  5 RCL 5 N
A-094       59 +

Go back to the HP-95C software library
Go back to the general software library
Go back to the main exhibit hall