TVM Program From Advantage Module

01 LBL "TVM"
02 CF 00
03 LBL e
04 CLX
05 STO 01
06 STO 02
07 STO 03
08 STO 04
09 STO 05
10 GTO J

11 LBL 14
12 SF 21
13 |-"="
14 ARCL X
15 AVIEW

16 LBL J
17 SF 27
18 CF 22
19 " N, I, PV,PMT,F"
20 |-"V"
21 PROMPT
22 GTO J

23 LBL a
24 12
25 *
26 LBL A
27 "N"
28 STO 01
29 FC?C 22
30 XEQ "N"
31 GTO 14

32 LBL b
33 12
34 /
35 LBL B
36 "I"
37 STO 02
38 FC?C 22
39 XEQ "*I"
40 GTO 14

41 LBL C
42 "PV"
43 STO 03
44 FC?C 22
45 XEQ "PV"
46 GTO 14

47 LBL D
48 "PMT"
49 STO 04
50 FC?C 22
51 XEQ "PMT"
52 GTO 14

53 LBL E
54 "FV"
55 STO 05
56 FC?C 22
57 XEQ "FV"
58 GTO 14

59 LBL d
60 SF 21
61 "END"
62 FC?C 00
63 SF 00
64 FS? 00
65 "BEGIN"
66 |-" MODE"
67 AVIEW
68 GTO J

69 LBL "N"
70 RCL 02
71 X=0?
72 GTO 03
73 1 E2
74 /
75 STO 06
76 XEQ 08
77 X>0?
78 GTO 10
79 RCL 08
80 X>0?
81 GTO 01
82 LBL 04
83 "$ERROR"
84 PROMPT
85 GTO J
86 LBL 03
87 RCL 03
88 RCL 05
89 +
90 RCL 04
91 X=0?
92 GTO 04
93 /
94 GTO 00
95 LBL 01
96 XEQ 10
97 LBL 00
98 CHS
99 STO 01
100 RTN
101 LBL 10
102 LN1+X
103 RCL 06
104 LN1+X
105 /
106 STO 01
107 RTN
108 LBL 08
109 XEQ 09
110 STO 08
111 XEQ 09
112 STO 09
113 RTN
114 LBL 11
115 FS? 00
116 1
117 FC? 00
118 0
119 *
120 RTN
121 LBL 09
122 RCL 03
123 ENTER
124 X<> 05
125 STO 03
126 +
127 RCL 06
128 CHS
129 STO 06
130 ABS
131 XEQ 11
132 1
133 +
134 RCL 04
135 *
136 RCL 06
137 RCL 03
138 *
139 +
140 X=0?
141 GTO 04
142 /
143 RCL 06
144 *
145 CHS
146 RTN

147 LBL "PV"
148 RCL 02
149 X=0?
150 GTO 00
151 XEQ 07
152 RCL 07
153 RCL 05
154 *
155 RCL 06
156 GTO 01
157 LBL 00
158 RCL 05
159 RCL 01
160 LBL 01
161 RCL 04
162 *
163 +
164 CHS
165 STO 03
166 RTN

167 LBL "PMT"
168 RCL 02
169 X=0?
170 GTO 00
171 XEQ 07
172 RCL 07
173 RCL 05
174 *
175 RCL 03
176 +
177 RCL 06
179 GTO 01
179 LBL 00
180 RCL 03
181 RCL 05
182 +
183 RCL 01
184 LBL 01
185 X=0?
186 GTO 04
187 /
188 CHS
189 STO 04
190 RTN

191 LBL "FV"
192 RCL 02
193 X=0?
194 GTO 00
195 XEQ 07
196 RCL 04
197 *
198 RCL 03
199 +
200 RCL 07
201 /
202 GTO 01
203 LBL 00
204 RCL 04
205 RCL 01
206 *
207 RCL 03
208 +
209 LBL 01
210 CHS
211 STO 05
212 RTN
213 LBL 07
214 RCL 02
215 1 E2
216 /
217 LN1+X
218 RCL 01
219 *
220 CHS
221 E^X
222 STO 07
223 LASTX
224 E^X-1
225 CHS
226 RCL 02
227 1 E2
228 /
229 /
230 LASTX
231 XEQ 11
232 1
233 +
234 *
235 STO 06
236 RTN

237 LBL "*I"
238 RCL 01
239 RCL 04
240 *
241 RCL 03
242 +
243 RCL 05
244 +
245 X=0?
246 STO 02
247 X=0?
248 RTN
249 CF 05
250 RCL 03
251 RCL 04
252 XEQ 11
253 +
254 STO 06
255 LASTX
256 RCL 04
257 -
258 CHS
259 RCL 05
260 +
261 STO 07
262 *
263 X>0?
264 GTO 04
265 RCL 01
266 1
267 X=Y?
268 GTO 00
269 RCL 04
270 X#0?
271 GTO 01
272 LBL 00
273 RCL 06
274 RCL 07
275 *
276 X=0?
277 GTO 04
278 RCL 07
279 RCL 06
280 /
281 CHS
282 RCL 01
283 1/X
284 Y^X
285 GTO 02
286 LBL 01
287 RCL 01
288 1/X
289 1
290 +
291 STO 02
292 RCL 06
293 RCL 04
294 *
295 X<0?
296 XEQ 05
297 LBL 12
298 RCL 02
299 LN
300 RCL 01
301 *
302 E^X-1
303 RCL 02
304 1
305 -
306 X=0?
307 GTO 00
308 /
309 GTO 01
310 LBL 00
311 RCL 01
312 LBL 01
313 STO 08
314 1
315 -
316 RCL 04
317 *
318 RCL 02
319 RCL 01
320 Y^X
321 RCL 06
322 *
323 +
324 STO 09
325 RCL 01
326 RCL 08
327 -
328 RCL 02
329 1
330 -
331 X=0?
332 GTO 00
333 /
334 RCL 02
335 *
336 RCL 04
337 *
338 GTO 01
339 LBL 02
340 1
341 X<>Y
342 %CH
343 STO 02
344 RTN
345 LBL 00
346 RCL 01
347 1
348 RCL 01
349 -
350 *
351 2
352 /
353 LBL 01
354 RCL 09
355 RCL 01
356 *
357 +
358 RCL 09
359 X<>Y
360 /
361 RCL 07
362 CHS
363 RCL 09
364 /
365 X<>Y
366 Y^X
367 RCL 02
368 *
369 LASTX
370 X<>Y
371 STO 02
372 X<>Y
373 %CH
374 ABS
375 1 E-6
376 X<=Y?
377 GTO 12
378 FS? 05
379 XEQ 05
380 CF 05
381 RCL 02
382 GTO 02
383 LBL 05
384 SF 05
385 RCL 02
386 1/X
387 STO 02
388 RCL 07
389 X<> 06
390 STO 07