00 { 220-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
44 LBL "TVM"
45 MVAR "DUE"
46 MVAR "FV"
47 MVAR "PV"
48 MVAR "i"
49 MVAR "N"
50 MVAR "PMT"
51 1
52 1
53 RCL+ "i"
54 RCL "N"
55 +/-
56 Y↑X
57 -
58 RCL÷ "i"
59 RCL× "PMT"
60 1
61 RCL "i"
62 RCL× "DUE"
63 +
64 ×
65 +/-
66 1
67 RCL+ "i"
68 RCL "N"
69 +/-
70 Y↑X
71 RCL× "FV"
72 -
73 RCL+ "PV"
74 END