The Museum of HP Calculators

Lease with Add'nal Payments in Advance for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Lend/Save/Lease Solution Book. This program was entered and uploaded by Tony Duell.

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 "ADV"
 02 "NO. ADV. PMTS?"
 03 PROMPT
 04 STO 01
 05 "NO. PER. ?"
 06 PROMPT
 07 X<=Y?
 08 GTO 02
 09 CHS
 10 STO 00
 11 "PV ?"
 12 PROMPT
 13 STO 04
 14 "RESID. ?"
 15 PROMPT
 16 STO 05
 17 CF 22
 18 "PMT ?"
 19 PROMPT
 20 FS?C 22
 21 GTO 01
 22 "INT ?"
 23 PROMPT
 24  E2
 25 /
 26 STO 02
 27 1
 28 +
 29 STO 07
 30 RCL 00
 31 Y^X
 32 RCL 05
 33 *
 34 RCL 04
 35 X<>Y
 36 -
 37 RCL 07
 38 RCL 00
 39 RCL 01
 40 +
 41 Y^X
 42 1
 43 X<>Y
 44 -
 45 RCL 02
 46 /
 47 RCL 01
 48 +
 49 /
 50 "PMT"
 51 XEQ 12
 52 LBL 01
 53 STO 03
 54  E-3
 55 STO 02
 56 LBL 00
 57 1
 58 RCL 02
 59 +
 60 STO 07
 61 RCL 00
 62 RCL 01
 63 +
 64 Y^X
 65 1
 66 X<>Y
 67 -
 68 RCL 02
 69 /
 70 RCL 01
 71 +
 72 RCL 03
 73 *
 74 RCL 07
 75 RCL 00
 76 Y^X
 77 RCL 05
 78 *
 79 +
 80 RCL 04
 81 -
 82 STO 06
 83 RCL 07
 84 RCL 00
 85 RCL 01
 86 +
 87 1
 88 -
 89 Y^X
 90 RCL 00
 91 CHS
 92 RCL 01
 93 -
 94 *
 95 RCL 02
 96 *
 97 RCL 07
 98 RCL 00
 99 RCL 01
100 +
101 Y^X
102 1
103 X<>Y
104 -
105 -
106 RCL 02
107 X^2
108 /
109 RCL 03
110 *
111 RCL 07
112 RCL 00
113 1
114 -
115 Y^X
116 RCL 05
117 *
118 RCL 00
119 *
120 +
121 RCL 06
122 X<>Y
123 /
124 ST- 02
125 ABS
126  E-6
127 X<=Y?
128 GTO 00
129 RCL 02
130 1 E2
131 *
132 "INT"
133 LBL 12
134 "="
135 ARCL X
136 PROMPT
137 RTN
138 LBL 02
139 0
140 /
141 END

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