The Museum of HP Calculators

Biorhythms 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 Games Pac 1. 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. The Barcode for this program was provided by Brian Ward.

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
Display the Program Barcode (.pdf) for printing and scanning

Program Listing

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

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