00 { 133-Byte Prgm }
01▸LBL "MORT"
02 PGMSLV "TVM"
03▸LBL 99
04 VARMENU "TVM"
05 STOP
06 "DUE"
07 KEY 1 GTO 01
08 "FV"
09 KEY 2 GTO 02
10 "PV"
11 KEY 3 GTO 03
12 "I"
13 KEY 4 GTO 04
14 "N"
15 KEY 5 GTO 05
16 "PMT"
17 KEY 6 GTO 06
18 MENU
19▸LBL 07
20 STOP
21 GTO 07
22 GTO 99
23▸LBL 01
24 "1=due,0=arrears"
25 AVIEW
26 PSE
27 GTO 99
28▸LBL 02
29 SOLVE "FV"
30 GTO 99
31▸LBL 03
32 SOLVE "PV"
33 GTO 99
34▸LBL 04
35 SOLVE "I"
36 GTO 99
37▸LBL 05
38 SOLVE "N"
39 GTO 99
40▸LBL 06
41 SOLVE "PMT"
42 GTO 99
43 END

00 { 84-Byte Prgm }
01▸LBL "TVM"
02 MVAR "DUE"
03 MVAR "FV"
04 MVAR "PV"
05 MVAR "i"
06 MVAR "N"
07 MVAR "PMT"
08 1
09 1
10 RCL+ "i"
11 RCL "N"
12 +/-
13 Y↑X
14 -
15 RCL÷ "i"
16 RCL× "PMT"
17 1
18 RCL "i"
19 RCL× "DUE"
20 +
21 ×
22 +/-
23 1
24 RCL+ "i"
25 RCL "N"
26 +/-
27 Y↑X
28 RCL× "FV"
29 -
30 RCL+ "PV"
31 END