75 lines
813 B
Plaintext
75 lines
813 B
Plaintext
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 |