The Museum of HP Calculators

Biorhythm for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Calendars Solution Book. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. This program was entered and uploaded by Tony Duell.

This program is supplied without representation or warranty of any kind. Tony Duell, 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.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Program Listing

LINE  KEYS
 01 LBL "BIORTM"
 02 LBL 09
 03 12
 04 STO 20
 05 1461
 06 STO 02
 07 4800
 08 STO 03
 09 32113
 10 STO 04
 11 2299170
 12 STO 05
 13  E2
 14 STO 06
 15  E4
 16 STO 07
 17 360
 18 STO 25
 19 RTN
 20 LBL 00
 21 ENTER
 22 ABS
 23 /
 24 STO 08
 25 LASTX
 26 ENTER
 27 INT
 28 STO 22
 29 -
 30 RCL 06
 31 *
 32 ENTER
 33 INT
 34 STO 23
 35 -
 36 RCL 07
 37 *
 38 RCL 08
 39 *
 40 RCL 22
 41 14
 42 -
 43 RCL 20
 44 /
 45 INT
 46 STO 09
 47 +
 48 STO 08
 49 RCL 03
 50 +
 51 RCL 02
 52 *
 53 4
 54 /
 55 INT
 56 RCL 22
 57 2
 58 -
 59 RCL 09
 60 RCL 20
 61 *
 62 -
 63 30.59
 64 *
 65 INT
 66 +
 67 RCL 23
 68 +
 69 RCL 04
 70 -
 71 RCL 05
 72 X<>Y
 73 X<=Y?
 74 RTN
 75 RCL 08
 76 RCL 06
 77 +
 78 LASTX
 79 /
 80 INT
 81 .75
 82 *
 83 INT
 84 -
 85 2
 86 +
 87 RTN
 88 LBL 03
 89 STOP
 90 0
 91 /
 92 GTO 03
 93 LBL 10
 94 LBL A
 95 STO 22
 96 FS?C 02
 97 XEQ 09
 98 RCL 22
 99 XEQ 00
100 STO 00
101 STOP
102 GTO 05
103 LBL 11
104 LBL B
105 STO 01
106 FS?C 02
107 XEQ 09
108 RCL 01
109 XEQ 00
110 STO 01
111 STOP
112 LBL 05
113 7
114 STO 24
115 RDN
116 GTO 04
117 LBL 12
118 LBL C
119 23
120 STO 24
121 GTO 01
122 LBL 13
123 LBL D
124 28
125 STO 24
126 GTO 01
127 LBL 14
128 LBL E
129 33
130 STO 24
131 LBL 01
132 RCL 00
133 RCL 01
134 -
135 ABS
136 LBL 04
137 ENTER
138 ENTER
139 RCL 24
140 /
141 INT
142 RCL 24
143 *
144 -
145 STOP
146 RCL 24
147 /
148 STOP
149 RCL 25
150 *
151 1
152 P-R
153 X<>Y
154 STOP
155 X<>Y
156 GTO 03
157 LBL 15
158 LBL a
159 XEQ 02
160 ST+ 00
161 GTO 03
162 LBL 16
163 LBL b
164 XEQ 02
165 ST+ 01
166 GTO 03
167 LBL 02
168 HR
169 RCL 20
170 -
171 24
172 /
173 RTN
174 LBL 17
175 LBL c
176 RCL 00
177 RCL 01
178 -
179 ABS
180 STOP
181 7
182 /
183 INT
184 LASTX
185 FRC
186 .7
187 *
188 +
189 GTO 03
190 LBL 18
191 LBL d
192 RCL 01
193 1
194 +
195 STO 01
196 STOP
197 GTO 05
198 LBL 19
199 LBL e
200 STO 24
201 GTO 01
202 STOP
203 END

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