The Museum of HP Calculators

Add-On to APR with Odd Days for the HP-41C/CV/CX

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 "ADD"
 02 "ODD ?"
 03 PROMPT
 04 STO 00
 05 12
 06 *
 07 365
 08 /
 09 STO 01
 10 "N ?"
 11 PROMPT
 12 STO 02
 13 "AIR ?"
 14 PROMPT
 15 STO 03
 16 "PV ?"
 17 PROMPT
 18 STO 04
 19 RCL 02
 20 RCL 01
 21 +
 22 12
 23 /
 24 RCL 03
 25 *
 26  E2
 27 /
 28 RCL 04
 29 *
 30 STO 00
 31 RCL 04
 32 +
 33 RCL 02
 34 /
 35 STO 05
 36 "PMT"
 37 XEQ 09
 38 RCL 00
 39 "FC"
 40 XEQ 09
 41 RCL 03
 42 12 E2
 43 /
 44 X=0?
 45 GTO 08
 46 STO 00
 47 LBL 01
 48 1
 49 RCL 00
 50 1
 51 +
 52 STO 06
 53 RCL 02
 54 CHS
 55 Y^X
 56 STO 07
 57 -
 58 RCL 00
 59 /
 60 RCL 05
 61 *
 62 RCL 06
 63 RCL 01
 64 Y^X
 65 RCL 04
 66 *
 67 -
 68 RCL 07
 69 RCL 06
 70 /
 71 RCL 02
 72 1
 73 +
 74 *
 75 RCL 00
 76 *
 77 1
 78 RCL 07
 79 -
 80 RCL 00
 81 +
 82 -
 83 RCL 00
 84 X^2
 85 /
 86 RCL 05
 87 *
 88 RCL 06
 89 RCL 01
 90 Y^X
 91 RCL 06
 92 /
 93 RCL 01
 94 X<>Y
 95 *
 96 LASTX
 97 -
 98 RCL 04
 99 *
100 -
101 /
102 RCL 00
103 X<>Y
104 -
105 STO 00
106 LASTX
107 ABS
108  E6-
109 X<=Y?
110 GTO 01
111 RCL 00
112 1200
113 *
114 LBL 08
115 "APR"
116 LBL 09
117 "="
118 ARCL X
119 PROMPT
120 RTN
121 END

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