The Museum of HP Calculators

Savings Plan 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 "SAVE"
 02 "INT ?"
 03 PROMPT
 04  E2
 05 /
 06 STO 00
 07 0
 08 STO 08
 09 +
 10 CF 00
 11 CF 01
 12 CF 03
 13 CF 02
 14 "CONT/PER ?"
 15 PROMPT
 16 ASTO Y
 17 "CONT"
 18 ASTO X
 19 X=Y?
 20 GTO 09
 21 "NO. PERIODS ?"
 22 PROMPT
 23 STO 08
 24 SF 02
 25 LBL 09
 26 365
 27 STO 09
 28 CF 00
 29 "LEAP/NORM ?"
 30 PROMPT
 31 ASTO Y
 32 "NORM"
 33 ASTO X
 34 X=Y?
 35 GTO 10
 36 SF 00
 37 366
 38 STO 09
 39 LBL 10
 40 CF 01
 41 "  INT ON W/D DA"
 42 "TE ? <Y/N>"
 43 PROMPT
 44 ASTO Y
 45 "Y"
 46 ASTO X
 47 X=Y?
 48 SF 01
 49 "   INT BASIS ? "
 50 "<360/365>"
 51 PROMPT
 52 STO 10
 53 "QUARTER NO. ?"
 54 PROMPT
 55 31
 56 STO 01
 57 STO 02
 58 STO 03
 59 CLX
 60 STO 06
 61 STO 07
 62 +
 63 STO 11
 64 3
 65 *
 66 STO 04
 67 1
 68 DSE 11
 69 GTO 02
 70 RCL 02
 71 3
 72 -
 73 FS? 00
 74 1
 75 FS? 00
 76 +
 77 STO 02
 78 GTO 07
 79 LBL 02
 80 DSE 11
 81 GTO 03
 82 ST- 01
 83 ST- 03
 84 GTO 07
 85 LBL 03
 86 DSE 11
 87 GTO 04
 88 ST- 03
 89 GTO 07
 90 LBL 04
 91 ST- 02
 92 LBL 07
 93 RCL 09
 94 RCL 10
 95 /
 96 FS?C 02
 97 GTO 08
 98 RCL 00
 99 *
100 1
101 E^X
102 X<>Y
103 Y^X
104 STO 05
105 RTN
106 LBL 08
107 RCL 08
108 *
109 RCL 00
110 LASTX
111 /
112 1
113 +
114 X<>Y
115 Y^X
116 STO 05
117 RTN
118 LBL B
119 XEQ 13
120 "W/D AMT ?"
121 PROMPT
122 CHS
123 FS? 01
124 SF 02
125 SF 03
126 LBL A
127 FC? 03
128 XEQ 13
129 "DEP. AMT ?"
130 FC?C 03
131 PROMPT
132 ST+ 07
133 X<>Y
134 FS?C 02
135 GTO 03
136 1
137 +
138 LBL 03
139 RCL 09
140 /
141 RCL 05
142 X<>Y
143 Y^X
144 1
145 -
146 *
147 RND
148 ST+ 06
149 "NEXT TRANS. ?"
150 PROMPT
151 LBL 13
152 "DATE <MM.DD>?"
153 PROMPT
154 FRC
155 RCL 04
156 1
157 LASTX
158 INT
159 -
160 +
161 STO 11
162 RCL 03
163 R^
164  E2
165 *
166 -
167 DSE 11
168 GTO 01
169 RTN
170 LBL 01
171 RCL 02
172 +
173 DSE 11
174 GTO 02
175 RTN
176 LBL 02
177 RCL 01
178 +
179 RTN
180 LBL D
181 RCL 06
182 "ACC. INT"
183 XEQ 12
184 RCL 07
185 "BAL"
186 XEQ 12
187 +
188 "T. BAL"
189 LBL 12
190 "=$"
191 ARCL X
192 PROMPT
193 RTN
194 END

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