The Museum of HP Calculators

Energy Cash Flow 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 "ECF"
 02 CLRG
 03 CF 06
 04 XEQ I
 05 SF 05
 06 CF 08
 07 LBL 13
 08 1.011
 09 FS? 06
 10 1.008
 11 STO 00
 12 LBL 14
 13 CF 22
 14 XEQ IND 00
 15 FS? 08
 16 XROM 29,08
 17 ISG 00
 18 GTO 14
 19 FS?C 05
 20 GTO J
 21 RTN
 22 LBL A
 23 LBL 01
 24 1
 25 "LOAN TERM"
 26 GTO 00
 27 LBL B
 28 LBL 02
 29 2
 30 "LOAN %"
 31 GTO 00
 32 LBL C
 33 LBL 03
 34 3
 35 "LOAN AMT"
 36 GTO 00
 37 LBL D
 38 LBL 04
 39 4
 40 "E BEFORE"
 41 GTO 00
 42 LBL E
 43 LBL 05
 44 5
 45 "E AFTER"
 46 GTO 00
 47 LBL F
 48 LBL 06
 49 6
 50 "E $/UNIT"
 51 GTO 00
 52 LBL a
 53 LBL 07
 54 7
 55 "% E INF"
 56 GTO 00
 57 LBL b
 58 LBL 08
 59 8
 60 "% G INF"
 61 GTO 00
 62 LBL c
 63 LBL 09
 64 9
 65 "% M INF"
 66 GTO 00
 67 LBL d
 68 LBL 10
 69 10
 70 "M BEFORE"
 71 GTO 00
 72 LBL e
 73 LBL 11
 74 11
 75 "M AFTER"
 76 LBL 00
 77 FIX 02
 78 FS? 22
 79 CF 05
 80 FS? 05
 81 GTO 00
 82 FC? 08
 83 STO 00
 84 RDN
 85 FS?C 22
 86 STO IND 00
 87 ": "
 88 RCL IND 00
 89 ARCL X
 90 FC? 08
 91 PROMPT
 92 RTN
 93 LBL 00
 94 CLX
 95 "?"
 96 PROMPT
 97 STO IND 00
 98 RTN
 99 LBL I
100 "NO. YEARS?"
101 PROMPT
102 INT
103 1 E3
104 /
105 STO 12
106 CLX
107 "START YEAR?"
108 PROMPT
109 STO 13
110 RTN
111 LBL J
112 CF 12
113 FIX 02
114 CF 05
115 CF 06
116 RCL 10
117 RCL 11
118 +
119 X=0?
120 SF 06
121 FS? 55
122 SF 08
123 FS? 08
124 XEQ 13
125 CF 08
126 1
127 RCL 07
128 %
129 +
130 STO 16
131 1
132 RCL 09
133 %
134 +
135 STO 17
136 1
137 RCL 08
138 %
139 +
140 STO 18
141 RCL 04
142 RCL 05
143 %CH
144 SF 21
145 ADV
146 "E % CH="
147 ARCL X
148 AVIEW
149 RCL 01
150 12
151 *
152 1
153 RCL 02
154 X=0?
155 GTO 28
156 LASTX
157 /
158 %
159 +
160 STO 14
161 X<>Y
162 Y^X
163 STO Y
164 1
165 -
166 /
167 RCL 03
168 *
169 RCL 14
170 1
171 -
172 *
173 LBL 29
174 RND
175 STO 14
176 "MO PMT="
177 ARCL X
178 AVIEW
179 12
180 ST* 14
181 RCL 14
182 "AN PMT="
183 ARCL X
184 AVIEW
185 FC? 55
186 CF 21
187 1 E3
188 RCL 13
189 X<Y?
190 +
191 STO 13
192 RCL 12
193 FRC
194 1
195 +
196 STO 12
197 ADV
198 ADV
199 FC? 55
200 GTO 23
201 7
202 XROM 29,22
203 "YEARLY"
204 XROM 29,01
205 5
206 XROM 29,22
207 "ACCUM"
208 XROM 29,01
209 XROM 29,10
210 "YR"
211 XROM 29,01
212 5
213 XROM 29,22
214 "COSTS"
215 XROM 29,01
216 6
217 XROM 29,22
218 XROM 29,01
219 XROM 29,10
220 ADV
221 LBL 23
222 SREG 20
223 CLS
224 SREG 25
225 CLS
226 CF 10
227 LBL 19
228 7
229 STO 19
230 XEQ 16
231 STO 21
232 RCL 04
233 RCL 06
234 *
235 *
236 RCL 22
237 CHS
238 X<>Y
239 STO 22
240 STO 29
241 +
242 STO 23
243 FC? 06
244 XEQ 17
245 FIX 00
246 CF 29
247 "AAAA"
248 RCL 13
249 RCL 12
250 INT
251 +
252 1
253 -
254 ARCL X
255 SF 29
256 ASHF
257 FC? 55
258 GTO 24
259 XROM 29,01
260 RCL 23
261 XEQ 15
262 RCL 29
263 XEQ 15
264 XROM 29,10
265 LBL 26
266 RCL 05
267 RCL 06
268 *
269 RCL 21
270 *
271 STO 30
272 ENTER
273 X<> 25
274 -
275 STO 26
276 RCL 20
277 RCL 11
278 *
279 ST+ 30
280 ENTER
281 X<> 27
282 -
283 ST+ 26
284 RCL 01
285 RCL 12
286 INT
287 X<=Y?
288 GTO 12
289 RCL 28
290 ST+ 30
291 GTO 00
292 LBL 12
293 SF 10
294 XEQ 16
295 RCL 14
296 *
297 ST+ 30
298 ENTER
299 X<> 28
300 -
301 ST+ 26
302 LBL 00
303 " "
304 RCL 23
305 RCL 26
306 X<=Y?
307 "Y"
308 RCL 29
309 RCL 30
310 X<=Y?
311 "~"
312 SF 12
313 FC? 55
314 GTO 25
315 XROM 29,01
316 CF 12
317 X<> Z
318 XEQ 15
319 RCL 30
320 XEQ 15
321 XROM 29,10
322 ADV
323 LBL 99
324 ISG 12
325 GTO 19
326 ADV
327 ADV
328 ADV
329 ADV
330 ADV
331 ADV
332 LBL 22
333 FIX 02
334 RTN
335 GTO 22
336 LBL 15
337 8
338 X<>Y
339 RND
340 RCL Y
341 RCL Y
342 ABS
343 X#0?
344 LOG
345 INT
346 X<0?
347 CLX
348 SF 29
349 .75
350 /
351 INT
352 -
353 XROM 29,22
354 RDN
355 XROM 29,05
356 RTN
357 LBL 16
358 1
359 RCL IND 19
360 FS? 10
361 CLX
362 %
363 +
364 STO 15
365 1
366 RCL 08
367 %
368 +
369 /
370 RCL 12
371 INT
372 Y^X
373 CHS
374 1
375 +
376 RCL 15
377 RCL 08
378 RCL IND 19
379 FS?C 10
380 CLX
381 -
382 1 E2
383 /
384 X=0?
385 GTO 12
386 /
387 *
388 RTN
389 LBL 12
390 RCL 12
391 INT
392 RTN
393 LBL 24
394 " "
395 ARCL 23
396 " "
397 ARCL 29
398 PROMPT
399 GTO 26
400 LBL 25
401 " "
402 ARCL 26
403 " "
404 ARCL 30
405 PROMPT
406 GTO 99
407 LBL 28
408 RCL 03
409 R^
410 /
411 GTO 29
412 LBL 17
413 9
414 STO 19
415 XEQ 16
416 STO 20
417 RCL 10
418 *
419 RCL 24
420 CHS
421 X<>Y
422 STO 24
423 ST+ 29
424 +
425 ST+ 23
426 END

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