00 { 99-Byte Prgm }
01▸LBL "TVM"
02 MVAR "N"
03 MVAR "I%YR"
04 MVAR "PV"
05 MVAR "PMT"
06 MVAR "FV"
07 MVAR "P/YR"
08 MVAR "B1/E0"
09 1
10 ENTER
11 ENTER
12 RCL "I%YR"
13 %
14 RCL÷ "P/YR"
15 STO ST T
16 RCL× "B1/E0"
17 +
18 R↓
19 +
20 RCL "N"
21 +/-
22 Y↑X
23 1
24 X<>Y
25 -
26 LASTX
27 RCL× "FV"
28 R↓
29 X<>Y
30 ÷
31 ×
32 RCL× "PMT"
33 +
34 RCL+ "PV"
35 END

00 { 279-Byte Prgm }
01▸LBL "CURRX"
02▸LBL 00
03 CLMENU
04 CF 05
05 CLA
06 SF 25
07 ARCL "C1"
08 KEY 1 GTO 01
09 CLA
10 SF 25
11 ARCL "C2"
12 CF 25
13 KEY 2 GTO 02
14 "RATE"
15 KEY 3 GTO 03
16 "SELCT"
17 KEY 6 GTO 06
18 KEY 9 GTO 09
19 MENU
20 STOP
21 GTO 00
22▸LBL 01
23 RCL÷ "RATE"
24 GTO 00
25▸LBL 02
26 RCL× "RATE"
27 GTO 00
28▸LBL 03
29 INPUT IND "C1"
30 STO "RATE"
31 INPUT IND "C2"
32 RCL÷ "RATE"
33 STO "RATE"
34 CLV IND "C1"
35 CLV IND "C2"
36 VIEW "RATE"
37 GTO 00
38▸LBL 06
39 "US$"
40 KEY 1 XEQ 21
41 "CAN$"
42 KEY 2 XEQ 22
43 "UKP"
44 KEY 3 XEQ 23
45 "EURO"
46 KEY 4 XEQ 24
47 "YEN"
48 KEY 5 XEQ 25
49 "OTHER"
50 KEY 6 XEQ 26
51 "SELECT CURRENCY"
52 FC? 05
53 ├" 1"
54 FS? 05
55 ├" 2"
56 AVIEW
57 MENU
58 STOP
59 FC? 05
60 ASTO "C1"
61 FS? 05
62 ASTO "C2"
63 FS? 05
64 GTO 00
65 SF 05
66 GTO 06
67▸LBL 21
68 "US$"
69 RTN
70▸LBL 22
71 "CAN$"
72 RTN
73▸LBL 23
74 "UKP"
75 RTN
76▸LBL 24
77 "EURO"
78 RTN
79▸LBL 25
80 "YEN"
81 RTN
82▸LBL 26
83 CLA
84 AON
85 STOP
86 AOFF
87 ASTO ST X
88 RTN
89▸LBL 09
90 END

00 { 46-Byte Prgm }
01▸LBL "MU%C"
02 MVAR "COST"
03 MVAR "M%C"
04 MVAR "PRICE"
05 RCL "COST"
06 RCL "M%C"
07 %
08 +
09 RCL- "PRICE"
10 END

00 { 46-Byte Prgm }
01▸LBL "MU%P"
02 MVAR "COST"
03 MVAR "M%P"
04 MVAR "PRICE"
05 RCL "PRICE"
06 RCL "M%P"
07 %
08 -
09 RCL- "COST"
10 END

00 { 48-Byte Prgm }
01▸LBL "%TOTL"
02 MVAR "TOTAL"
03 MVAR "PART"
04 MVAR "%T"
05 RCL "PART"
06 RCL÷ "TOTAL"
07 100
08 ×
09 RCL- "%T"
10 END

00 { 39-Byte Prgm }
01▸LBL "%CHG"
02 MVAR "OLD"
03 MVAR "NEW"
04 MVAR "%CH"
05 RCL "OLD"
06 RCL "NEW"
07 %CH
08 RCL- "%CH"
09 END

00 { 115-Byte Prgm }
01▸LBL "%CALC"
02▸LBL 00
03 CLMENU
04 "%CHG"
05 KEY 1 XEQ 01
06 "%TOTL"
07 KEY 2 XEQ 02
08 "MU%C"
09 KEY 3 XEQ 03
10 "MU%P"
11 KEY 4 XEQ 04
12 KEY 9 GTO 09
13 MENU
14 STOP
15 GTO 00
16▸LBL 01
17 "%CHG"
18 GTO 10
19▸LBL 02
20 "%TOTL"
21 GTO 10
22▸LBL 03
23 "MU%C"
24 GTO 10
25▸LBL 04
26 "MU%P"
27▸LBL 10
28 ASTO 00
29 PGMSLV IND 00
30 VARMENU IND 00
31 CLA
32 STOP
33 ALENG
34 X=0?
35 RTN
36 ASTO 00
37 SOLVE IND 00
38 VIEW IND 00
39 RTN
40▸LBL 09
41 EXITALL
42 END

00 { 389-Byte Prgm }
01▸LBL "DEPRC"
02▸LBL 00
03 CLMENU
04 "BASIS"
05 KEY 1 XEQ 01
06 "SALV"
07 KEY 2 XEQ 02
08 "LIFE"
09 KEY 3 XEQ 03
10 "ACRS%"
11 KEY 4 XEQ 04
12 "ACRS"
13 KEY 5 XEQ 05
14 KEY 7 GTO 10
15 KEY 8 GTO 10
16 KEY 9 GTO 09
17 MENU
18 STOP
19 GTO 00
20▸LBL 10
21 "YR#"
22 KEY 1 XEQ 11
23 "FACT%"
24 KEY 2 XEQ 12
25 "DB"
26 KEY 3 XEQ 13
27 "SOYD"
28 KEY 4 XEQ 14
29 "SL"
30 KEY 5 XEQ 15
31 KEY 7 GTO 00
32 KEY 8 GTO 00
33 MENU
34 STOP
35 GTO 10
36▸LBL 01
37 STO "BASIS"
38 VIEW "BASIS"
39 RTN
40▸LBL 02
41 STO "SALV"
42 VIEW "SALV"
43 RTN
44▸LBL 03
45 STO "LIFE"
46 VIEW "LIFE"
47 RTN
48▸LBL 04
49 STO "ACRS%"
50 VIEW "ACRS%"
51 RTN
52▸LBL 05
53 RCL "BASIS"
54 RCL "ACRS%"
55 %
56 STO "ACRS"
57 VIEW "ACRS"
58 RTN
59▸LBL 11
60 STO "YR#"
61 VIEW "YR#"
62 RTN
63▸LBL 12
64 STO "FACT%"
65 VIEW "FACT%"
66 RTN
67▸LBL 13
68 RCL "YR#"
69 STO 01
70 RCL "BASIS"
71 STO 00
72 RCL- "SALV"
73 STO 02
74▸LBL A
75 RCL "FACT%"
76 100
77 ÷
78 RCL÷ "LIFE"
79 RCL× 00
80 STO- 00
81 RCL 02
82 RCL- ST Y
83 STO 02
84 X<>Y
85 DSE 01
86 GTO A
87 RTN
88▸LBL 14
89 RCL "LIFE"
90 0
91▸LBL B
92 RCL+ ST Y
93 DSE ST Y
94 GTO B
95 RCL "LIFE"
96 RCL- "YR#"
97 1
98 +
99 X<>Y
100 ÷
101 RCL "BASIS"
102 RCL- "SALV"
103 ×
104 RTN
105▸LBL 15
106 RCL "BASIS"
107 RCL- "SALV"
108 RCL÷ "LIFE"
109 LASTX
110 RCL ST Y
111 RCL× "YR#"
112 -
113 X<>Y
114▸LBL 09
115 END

00 { 66-Byte Prgm }
01▸LBL "IRR%"
02 MVAR "I%"
03 MVAR "IRR%"
04 MVAR "NPV"
05 CLST
06 INDEX "CF"
07▸LBL 00
08 RCL "IRR%"
09 100
10 ÷
11 1
12 +
13 RCLIJ
14 R↓
15 1
16 -
17 Y↑X
18 RCLEL
19 X<>Y
20 ÷
21 +
22 I+
23 FC? 77
24 GTO 00
25 RCL- "NPV"
26 END

00 { 213-Byte Prgm }
01▸LBL "CFLO"
02▸LBL 00
03 CLMENU
04 "CALC"
05 KEY 1 XEQ 01
06 "EDIT"
07 KEY 2 XEQ 02
08 "NEW"
09 KEY 3 XEQ 03
10 KEY 9 GTO 09
11 MENU
12 STOP
13 GTO 00
14▸LBL 02
15 EDITN "CF"
16 STOP
17 EXITALL
18 RTN
19▸LBL 03
20 MAT?
21 GTO 08
22 1
23 1
24 NEWMAT
25▸LBL 08
26 STO "CF"
27 CLST
28 RTN
29▸LBL 01
30 "TOTAL"
31 KEY 1 XEQ 11
32 "IRR%"
33 KEY 2 XEQ 12
34 "I%"
35 KEY 3 XEQ 13
36 "NPV"
37 KEY 4 XEQ 14
38 MENU
39 STOP
40 GTO 01
41▸LBL 11
42 INDEX "CF"
43 CLST
44▸LBL 20
45 RCLEL
46 +
47 I+
48 FC? 77
49 GTO 20
50 STO "TOTAL"
51 VIEW "TOTAL"
52 RTN
53▸LBL 12
54 CLST
55 STO "NPV"
56 PGMSLV "IRR%"
57 SOLVE "IRR%"
58 VIEW "IRR%"
59 RTN
60▸LBL 13
61 INPUT "I%"
62 RTN
63▸LBL 14
64 RCL "I%"
65 STO "IRR%"
66 PGMSLV "IRR%"
67 SOLVE "NPV"
68 VIEW "NPV"
69 RTN
70▸LBL 15
71 RTN
72▸LBL 16
73 RTN
74▸LBL 09
75 END

00 { 182-Byte Prgm }
01▸LBL "ICNV"
02▸LBL 00
03 CLMENU
04 "PER"
05 KEY 1 XEQ 01
06 "CONT"
07 KEY 2 XEQ 02
08 KEY 9 GTO 09
09 MENU
10 STOP
11 GTO 00
12▸LBL 01
13 "NOM%"
14 KEY 1 XEQ 03
15 "EFF%"
16 KEY 2 XEQ 04
17 "P"
18 KEY 3 XEQ 05
19 MENU
20 STOP
21 GTO 01
22▸LBL 03
23 100
24 ÷
25 1
26 +
27 RCL "P"
28 1/X
29 Y↑X
30 1
31 -
32 RCL× "P"
33 100
34 ×
35 RTN
36▸LBL 04
37 100
38 ÷
39 RCL÷ "P"
40 1
41 +
42 RCL "P"
43 Y↑X
44 1
45 -
46 100
47 ×
48 RTN
49▸LBL 05
50 STO "P"
51 VIEW "P"
52 RTN
53▸LBL 02
54 "NOM%"
55 KEY 1 XEQ 06
56 "EFF%"
57 KEY 2 XEQ 07
58 MENU
59 STOP
60 GTO 02
61▸LBL 06
62 100
63 ÷
64 1
65 +
66 LN
67 100
68 ×
69 RTN
70▸LBL 07
71 100
72 ÷
73 E↑X
74 1
75 -
76 100
77 ×
78▸LBL 09
79 END

00 { 90-Byte Prgm }
01▸LBL "FINANCE"
02▸LBL 00
03 CLMENU
04 "ICNV"
05 KEY 1 XEQ "ICNV"
06 "CFLO"
07 KEY 2 XEQ "CFLO"
08 "DEPRC"
09 KEY 3 XEQ "DEPRC"
10 "%CALC"
11 KEY 4 XEQ "%CALC"
12 "CURRX"
13 KEY 5 XEQ "CURRX"
14 KEY 9 GTO 09
15 MENU
16 STOP
17 GTO 00
18▸LBL 09
19 END