 01 LBL "DISC"
 02 FIX 02
 03 "DISCASH"
 04 39
 05 XROM 16,11
 06 FC?C 25
 07 PROMPT
 08 CF 07
 09 LBL 15
 10 CF 03
 11 1.3
 12 STO 09
 13 LBL 14
 14 12
 15 STO 00
 16 "CF 0"
 17 XROM 15,15
 18 LBL 13
 19 "NCF "
 20 FS?C 29
 21 SF 07
 22 RCL 09
 23 FIX 00
 24 ARCL X
 25 FIX 02
 26 FS?C 07
 27 SF 29
 28 XROM 15,15
 29 FC? 03
 30 FS? 22
 31 GTO 00
 32 GTO 01
 33 LBL 00
 34 ISG 09
 35 GTO 13
 36 LBL 01
 37 RCL 09
 38 INT
 39 1
 40 -
 41 1 E3
 42 +
 43 LASTX
 44 /
 45 STO 09
 46 ADV
 47 "EDIT"
 48 3
 49 XROM 16,13
 50 FS? 03
 51 GTO 14
 52 12.013
 53 ST+ 09
 54 SF 00
 55 RCL 09
 56 0
 57 LBL 12
 58 RCL IND Y
 59 X<0?
 60 CF 00
 61 +
 62 X#0?
 63 X>0?
 64 GTO 02
 65 STO 11
 66 X<>Y
 67 STO 10
 68 X<>Y
 69 LBL 02
 70 ISG Y
 71 GTO 12
 72 STO 12
 73 "CUM CF"
 74 XROM 16,39
 75 X<0?
 76 GTO 04
 77 RCL 09
 78 LBL 11
 79 RCL IND X
 80 X#0?
 81 GTO 03
 82 RDN
 83 ISG X
 84 GTO 11
 85 LBL 03
 86 X>0?
 87 GTO 04
 88 RCL 10
 89 INT
 90 1
 91 +
 92 RCL 11
 93 RCL IND Y
 94 /
 95 -
 96 14
 97 -
 98 "YR"
 99 ASTO 01
100 ASTO Y
101 CLA
102 ASTO 02
103 ASTO Z
104 "PAYOUT"
105 XROM 16,38
106 LBL 04
107 10
108 STO 08
109 XEQ 16
110 "NPV10"
111 XROM 16,39
112 RCL 12
113 FC? 00
114 X<0?
115 GTO 08
116 ADV
117 "DO ROR"
118 4
119 XROM 16,13
120 FC? 04
121 GTO 08
122 7
123 STO 00
124 "EST %R"
125 XROM 15,15
126 FC? 22
127 25
128 STO 08
129 LBL 10
130 TONE 05
131 XEQ 16
132 STO 06
133 RCL 09
134 1
135 STO 11
136 +
137 STO 10
138 CLX
139 LBL 09
140 RCL 07
141 RCL 11
142 1
143 +
144 CHS
145 Y^X
146 RCL 11
147 *
148 RCL IND 10
149 *
150 +
151 ISG 11
152 CLD
153 ISG 10
154 GTO 09
155 RCL 06
156 X<>Y
157 /
158 100
159 *
160 ENTER
161 X<> 08
162 ST+ 08
163 /
164 ABS
165 1 E-4
166 X<=Y?
167 GTO 10
168 RCL 08
169 TONE 09
170 "DCFROR"
171 XROM 16,39
172 LBL 08
173 ADV
174 7
175 STO 00
176 "%R"
177 XROM 15,15
178 FC? 22
179 GTO 15
180 XEQ 16
181 "NPV"
182 XROM 16,39
183 GTO 08
184 LBL 16
185 RCL 08
186 100
187 /
188 1
189 +
190 STO 07
191 RCL 09
192 1
193 STO 11
194 +
195 STO 10
196 RCL 13
197 LBL 07
198 RCL IND 10
199 RCL 07
200 RCL 11
201 Y^X
202 /
203 +
204 ISG 11
205 CLD
206 ISG 10
207 GTO 07
208 END
