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.