Posts: 163

Threads: 7

Joined: Jul 2007

I don't know the one in the manual by heart, but this is *my* version, in my 42S:

00 { 72-Byte Prgm } 01#LBL "TVM" 02 MVAR "N" 03 MVAR "I%" 04 MVAR "PV" 05 MVAR "PMT" 06 MVAR "FV" 07 FC? 45 08 VARMENU "TVM" 09 RCL "PMT" 10 1 11 RCL "I%" 12 % 13 STO/ ST Z 14 + 15 FS? 00 16 STO* ST Y 17 RCL "N" 18 Y^X 19 RCL* "PV" 20 LASTX 21 1 22 - 23 R^ 24 * 25 + 26 RCL+ "FV" 27 END

the ^ character represents the up-arrow Flag 00 controls payments at the beginning or end of period. FC? 45 tests whether the program is run from the Solver (in which case it displays the VARMENU) or not.

Werner.