The Museum of HP Calculators

Biorythms for the HP-41C/CV/CX

This program is supplied without representation or warranty of any kind. Chris Johnson, 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 "BIOR"
 02 26
 03 XEQ "SIZE?"
 04 FC?C 25
 05 PROMPT
 06 LBL 13
 07 RAD
 08 SF 29
 09 CF 01
 10 CF 02
 11 SF 21
 12 CF 22
 13 33
 14 STO 12
 15 28
 16 STO 13
 17 23
 18 STO 14
 19 CLA
 20 23
 21 STO 09
 22 RCL IND 09
 23 FIX 06
 24 "BIR=M.DDYYYY?"
 25 PROMPT
 26 FC?C 22
 27 GTO 05
 28 STO IND 09
 29 XEQ 06
 30 STO 15
 31 LBL 05
 32 DSE 09
 33 CLA
 34 RCL IND 09
 35 FIX 06
 36 "BIODATE?"
 37 PROMPT
 38 FC?C 22
 39 GTO 05
 40 STO IND 09
 41 XEQ 06
 42 STO 16
 43 LBL 05
 44 RCL 16
 45 RCL 15
 46 -
 47 X<0?
 48 GTO 07
 49 STO 17
 50 CLA
 51 RCL 24
 52 FIX 00
 53 "NO. OF DAYS?"
 54 PROMPT
 55 STO 24
 56 STO 19
 57 FS? 55
 58 GTO 23
 59 LBL 22
 60 CLA
 61 AON
 62 "X"
 63 ASTO Z
 64 CLA
 65 "C"
 66 ASTO X
 67 CLA
 68 "B:IO/C:RT/X:TR?"
 69 PROMPT
 70 ASTO Y
 71 AOFF
 72 X=Y?
 73 GTO 15
 74 RDN
 75 X=Y?
 76 GTO 16
 77 XEQ e
 78 LBL 00
 79 3
 80 STO 18
 81 RCL 15
 82 RCL 17
 83 +
 84 FIX 00
 85 XEQ b
 86 CF 29
 87 XEQ a
 88 ADV
 89 AVIEW
 90 SF 29
 91 FIX 02
 92 LBL 04
 93 CLA
 94 XEQ IND 18
 95 XEQ 08
 96 RND
 97 ARCL X
 98 AVIEW
 99 DSE 18
100 GTO 04
101 1
102 ST+ 17
103 DSE 19
104 GTO 00
105 GTO 13
106 LBL 01
107 "COG"
108 GTO 05
109 LBL 02
110 "SEN"
111 GTO 05
112 LBL 03
113 "PHY"
114 LBL 05
115 FC? 01
116 " = "
117 RTN
118 LBL 08
119 RCL 18
120 11
121 +
122 RCL IND X
123 RCL 17
124 X<>Y
125 /
126 FRC
127 2
128 *
129 PI
130 *
131 SIN
132 RTN
133 LBL 06
134 STO 04
135 XEQ a
136 1600
137 -
138 STO 00
139 RCL 01
140 3
141 X<=Y?
142 ST- 01
143 X<=Y?
144 GTO 05
145 9
146 ST+ 01
147 1
148 ST- 00
149 LBL 05
150 RCL 00
151 XEQ E
152 RCL 01
153 XEQ d
154 +
155 RCL 02
156 +
157 STO 03
158 XEQ b
159 RCL 04
160 X#Y?
161 GTO 07
162 RCL 03
163 RTN
164 LBL a
165 CLA
166 LBL 21
167 FIX 00
168 CF 28
169 CF 29
170 ENTER
171 INT
172 ARCL X
173 "/"
174 STO 01
175 -
176 1 E2
177 *
178 ENTER
179 INT
180 ARCL X
181 "/"
182 STO 02
183 -
184 1 E4
185 *
186 ARCL X
187 SF 28
188 SF 29
189 RTN
190 LBL E
191 365
192 X<>Y
193 *
194 .25
195 RCL L
196 *
197 INT
198 .04
199 RCL L
200 *
201 INT
202 -
203 .25
204 RCL L
205 *
206 INT
207 +
208 +
209 RTN
210 LBL d
211 30.6
212 *
213 .5
214 +
215 INT
216 RTN
217 LBL b
218 STO 02
219 ENTER
220 INT
221 X>0?
222 X#Y?
223 GTO 07
224 .5
225 +
226 365.2425
227 /
228 INT
229 LBL 11
230 STO 00
231 XEQ E
232 RCL 02
233 X<>Y
234 -
235 X>0?
236 GTO 05
237 RCL 00
238 1
239 -
240 GTO 11
241 LBL 05
242 ENTER
243 ENTER
244 .5
245 -
246 30.6
247 /
248 INT
249 STO 01
250 XEQ d
251 -
252 STO 02
253 1601
254 ST+ 00
255 9
256 ST- 01
257 RCL 01
258 X>0?
259 GTO 05
260 12
261 ST+ 01
262 1
263 ST- 00
264 LBL 05
265 RCL 00
266 1 E4
267 X<=Y?
268 GTO 07
269 /
270 RCL 02
271 +
272 .01
273 *
274 RCL 01
275 +
276 RTN
277 LBL 07
278 TONE 05
279 TONE 05
280 CLA
281 "ILLEGAL DATE"
282 CF 21
283 AVIEW
284 PSE
285 FIX 06
286 CLA
287 ARCL IND 09
288 AVIEW
289 PSE
290 SF 21
291 GTO 13
292 LBL 16
293 SF 02
294 XEQ e
295 CF 00
296 .75
297 STO 20
298 -1
299 STO 21
300 XEQ 08
301 .25
302 STO 20
303 1
304 STO 21
305 XEQ 08
306 LBL 15
307 FC?C 02
308 XEQ e
309 SF 00
310 CLX
311 STO 21
312 XEQ 08
313 CF 00
314 GTO 13
315 LBL 08
316 3
317 STO 18
318 FIX 00
319 RCL 16
320 RCL 19
321 +
322 1
323 -
324 STO 05
325 LBL 12
326 CLA
327 XEQ IND 18
328 RCL 21
329 CF 29
330 ARCL X
331 " ON:"
332 ADV
333 AVIEW
334 RCL 18
335 11
336 +
337 RCL IND X
338 FC? 00
339 GTO 05
340 2
341 /
342 LBL 05
343 STO 06
344 RCL 17
345 X<>Y
346 /
347 INT
348 RCL 06
349 *
350 RCL 15
351 +
352 FS? 00
353 GTO 09
354 RCL 20
355 RCL 06
356 *
357 +
358 LBL 09
359 STO 07
360 RCL 16
361 X<=Y?
362 GTO 05
363 LBL 10
364 RCL 06
365 RCL 07
366 +
367 GTO 09
368 LBL 05
369 X<>Y
370 RCL 05
371 X<>Y
372 INT
373 X>Y?
374 GTO 05
375 XEQ b
376 CF 29
377 XEQ a
378 AVIEW
379 SF 29
380 GTO 10
381 LBL 05
382 DSE 18
383 GTO 12
384 RTN
385 LBL 23
386 CLA
387 "N"
388 ASTO Y
389 CLA
390 AON
391 "PLOT? Y/N"
392 PROMPT
393 ASTO X
394 AOFF
395 X=Y?
396 GTO 22
397 CLA
398 "BIOPLOT FROM "
399 RCL 22
400 XEQ 21
401 ADV
402 XROM 29,08
403 XEQ e
404 SF 21
405 3
406 STO 18
407 1.1
408 STO 01
409 CHS
410 STO 00
411 0
412 STO 04
413 1
414 STO 10
415 STO 08
416 "BIOF"
417 ASTO 11
418 SF 01
419 RCL 17
420 STO 25
421 LBL 20
422 ADV
423 ADV
424 ADV
425 1 E2
426 STO 09
427 SF 12
428 CLA
429 31
430 XROM 29,23
431 XEQ IND 18
432 XROM 29,01
433 XROM 29,10
434 XROM 29,15
435 DSE 18
436 GTO 20
437 CF 01
438 GTO 13
439 LBL "BIOF"
440 1
441 -
442 RCL 25
443 +
444 STO 17
445 XEQ 08
446 RCL 24
447 STO 09
448 RDN
449 RTN
450 LBL e
451 CLA
452 "BIRTHDATE:   "
453 RCL 23
454 XEQ 21
455 AVIEW
456 RTN
457 LBL "SIZE?"
458 FIX 00
459 "SIZE>="
460 ARCL X
461 1
462 -
463 SF 25
464 RCL IND X
465 RTN
466 END

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