(42S) TVM Program for HP 42S

[Werner]

This is my version.
Shorter, and also works for I%=0:

Code:

00 { 78-Byte Prgm }
01*LBL "TVM"
02 MVAR "N"
03 MVAR "i%"
04 MVAR "PV"
05 MVAR "PMT"
06 MVAR "FV"
07 MVAR "BEG"
08 RCL "i%"
09 X=0?
10 1 E-99
11 1
12 X<>Y
13 %
14 ENTER
15 LN1+X
16 RCL* "N"
17 E^X-1
18 STO+ ST Z
19 RCL* "PMT"
20 X<>Y
21 1/X
22 RCL+ "BEG"
23 *
24 X<>Y
25 RCL* "PV"
26 +
27 RCL+ "FV"
28 END

Cheers, Werner