/ APDL Public Domain 1 / APDL_PD1A.iso / apps / compint / !CompInt / Compnd1

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1e 20 f4 20 3e | 20 3c 57 69 6d 70 53 79 |.... . >| <WimpSy|
|00000010| 73 24 44 69 72 3e 2e 43 | 6f 6d 70 6e 64 31 0d 00 |s$Dir>.C|ompnd1..|
|00000020| 14 22 20 f4 20 43 6f 70 | 79 72 69 67 68 74 20 45 |." . Cop|yright E|
|00000030| 2e 46 2e 4c 6f 72 64 20 | 31 30 2f 31 31 2f 38 35 |.F.Lord |10/11/85|
|00000040| 0d 00 1e 16 20 f4 20 52 | 65 76 69 73 65 64 20 31 |.... . R|evised 1|
|00000050| 30 2f 35 2f 39 31 0d 00 | 28 23 20 f4 20 43 6f 6d |0/5/91..|(# . Com|
|00000060| 70 6f 75 6e 64 20 49 6e | 74 65 72 65 73 74 20 43 |pound In|terest C|
|00000070| 61 6c 63 75 6c 61 74 6f | 72 0d 00 32 09 20 eb 20 |alculato|r..2. . |
|00000080| 31 31 0d 00 3c 0f 20 ee | 20 85 20 e5 20 8d 74 5a |11..<. .| . . .tZ|
|00000090| 41 0d 00 46 17 20 66 6c | 74 6e 3d 30 3a 6c 6d 70 |A..F. fl|tn=0:lmp|
|000000a0| 3d 30 3a 72 65 67 3d 30 | 0d 00 50 61 20 6c 75 6d |=0:reg=0|..Pa lum|
|000000b0| 70 73 75 6d 24 3d 22 30 | 22 3a 79 65 61 72 24 3d |psum$="0|":year$=|
|000000c0| 22 30 22 3a 66 75 74 76 | 61 6c 24 3d 22 30 22 3a |"0":futv|al$="0":|
|000000d0| 52 24 3d 22 30 22 3a 6e | 24 3d 22 30 22 3a 66 6c |R$="0":n|$="0":fl|
|000000e0| 74 6e 24 3d 22 30 22 3a | 72 65 67 6c 61 72 24 3d |tn$="0":|reglar$=|
|000000f0| 22 30 22 3a 6e 70 61 24 | 3d 22 30 22 3a 70 65 72 |"0":npa$|="0":per|
|00000100| 61 6c 6c 77 24 3d 22 30 | 22 0d 00 5a 0e 20 40 25 |allw$="0|"..Z. @%|
|00000110| 3d 26 32 30 32 30 38 0d | 00 64 06 20 f5 0d 00 6e |=&20208.|.d. ...n|
|00000120| 06 20 db 0d 00 78 0b 20 | f2 74 69 74 6c 65 0d 00 |. ...x. |.title..|
|00000130| 82 21 20 f1 8a 30 2c 35 | 29 22 4c 75 6d 70 73 75 |.! ..0,5|)"Lumpsu|
|00000140| 6d 20 63 61 6c 63 75 6c | 61 74 69 6f 6e 73 22 0d |m calcul|ations".|
|00000150| 00 8c 3b 20 f1 8a 30 2c | 37 29 22 20 20 30 2e 20 |..; ..0,|7)"  0. |
|00000160| 43 61 6c 63 75 6c 61 74 | 65 20 4c 75 6d 70 73 75 |Calculat|e Lumpsu|
|00000170| 6d 20 66 72 6f 6d 20 70 | 65 72 73 6f 6e 61 6c 20 |m from p|ersonal |
|00000180| 61 6c 6c 6f 77 61 6e 63 | 65 22 0d 00 96 2d 20 f1 |allowanc|e"...- .|
|00000190| 8a 30 2c 38 29 22 20 20 | 31 2e 20 43 61 6c 63 75 |.0,8)"  |1. Calcu|
|000001a0| 6c 61 74 65 20 65 6e 64 | 20 6f 66 20 74 65 72 6d |late end| of term|
|000001b0| 20 76 61 6c 75 65 22 0d | 00 a0 2b 20 f1 8a 30 2c | value".|..+ ..0,|
|000001c0| 39 29 22 20 20 32 2e 20 | 43 61 6c 63 75 6c 61 74 |9)"  2. |Calculat|
|000001d0| 65 20 49 6e 74 65 72 65 | 73 74 20 72 61 74 65 20 |e Intere|st rate |
|000001e0| 20 22 0d 00 aa 2b 20 f1 | 8a 30 2c 31 30 29 22 20 | "...+ .|.0,10)" |
|000001f0| 20 33 2e 20 43 61 6c 63 | 75 6c 61 74 65 20 73 74 | 3. Calc|ulate st|
|00000200| 61 72 74 69 6e 67 20 76 | 61 6c 75 65 22 0d 00 b4 |arting v|alue"...|
|00000210| 2a 20 f1 8a 30 2c 31 31 | 29 22 20 20 34 2e 20 43 |* ..0,11|)"  4. C|
|00000220| 61 6c 63 75 6c 61 74 65 | 20 74 65 72 6d 20 69 6e |alculate| term in|
|00000230| 20 79 65 61 72 73 22 0d | 00 be 29 20 f1 8a 30 2c | years".|..) ..0,|
|00000240| 31 33 29 22 52 65 67 75 | 6c 61 72 20 53 61 76 69 |13)"Regu|lar Savi|
|00000250| 6e 67 20 63 61 6c 63 75 | 6c 61 74 69 6f 6e 73 22 |ng calcu|lations"|
|00000260| 0d 00 c8 2e 20 f1 8a 30 | 2c 31 35 29 22 20 20 35 |.... ..0|,15)"  5|
|00000270| 2e 20 43 61 6c 63 75 6c | 61 74 65 20 65 6e 64 20 |. Calcul|ate end |
|00000280| 6f 66 20 74 65 72 6d 20 | 76 61 6c 75 65 22 0d 00 |of term |value"..|
|00000290| d2 2c 20 f1 8a 30 2c 31 | 36 29 22 20 20 36 2e 20 |., ..0,1|6)"  6. |
|000002a0| 43 61 6c 63 75 6c 61 74 | 65 20 49 6e 74 65 72 65 |Calculat|e Intere|
|000002b0| 73 74 20 72 61 74 65 20 | 20 22 0d 00 dc 2b 20 f1 |st rate | "...+ .|
|000002c0| 8a 30 2c 31 37 29 22 20 | 20 37 2e 20 43 61 6c 63 |.0,17)" | 7. Calc|
|000002d0| 75 6c 61 74 65 20 73 74 | 61 72 74 69 6e 67 20 76 |ulate st|arting v|
|000002e0| 61 6c 75 65 22 0d 00 e6 | 2a 20 f1 8a 30 2c 31 38 |alue"...|* ..0,18|
|000002f0| 29 22 20 20 38 2e 20 53 | 65 74 20 76 61 6c 75 65 |)"  8. S|et value|
|00000300| 20 6f 66 20 69 6e 66 6c | 61 74 69 6f 6e 20 22 0d | of infl|ation ".|
|00000310| 00 f0 38 20 f1 8a 30 2c | 31 39 29 22 20 20 39 2e |..8 ..0,|19)"  9.|
|00000320| 20 43 61 6c 63 75 6c 61 | 74 65 20 43 6f 6d 70 6f | Calcula|te Compo|
|00000330| 75 6e 64 20 41 6e 6e 75 | 61 6c 20 52 61 74 65 20 |und Annu|al Rate |
|00000340| 28 43 41 52 29 20 22 0d | 00 fa 1f 20 f1 8a 30 2c |(CAR) ".|... ..0,|
|00000350| 32 30 29 22 20 20 45 2e | 20 45 6e 64 20 70 72 6f |20)"  E.| End pro|
|00000360| 67 72 61 6d 20 22 0d 01 | 04 34 20 f1 8a 30 2c 32 |gram "..|.4 ..0,2|
|00000370| 32 29 22 43 75 72 72 65 | 6e 74 20 76 61 6c 75 65 |2)"Curre|nt value|
|00000380| 20 6f 66 20 69 6e 66 6c | 61 74 69 6f 6e 20 22 3b | of infl|ation ";|
|00000390| 66 6c 74 6e 24 3b 22 20 | 25 22 0d 01 0e 23 20 f1 |fltn$;" |%"...# .|
|000003a0| 8a 30 2c 32 34 29 22 45 | 6e 74 65 72 20 63 68 6f |.0,24)"E|nter cho|
|000003b0| 69 63 65 20 22 3b 3a 63 | 68 63 24 3d be 0d 01 18 |ice ";:c|hc$=....|
|000003c0| 06 20 db 0d 01 22 22 20 | e7 20 63 68 63 24 3d 22 |. ..."" |. chc$="|
|000003d0| 30 22 20 6c 6d 70 3d 31 | 3a f2 6c 75 6d 70 3a f2 |0" lmp=1|:.lump:.|
|000003e0| 70 72 69 6e 74 0d 01 2c | 27 20 e7 20 63 68 63 24 |print..,|' . chc$|
|000003f0| 3d 22 31 22 20 6c 6d 70 | 3d 31 3a f2 66 75 74 75 |="1" lmp|=1:.futu|
|00000400| 72 65 76 61 6c 3a f2 70 | 72 69 6e 74 0d 01 36 26 |reval:.p|rint..6&|
|00000410| 20 e7 20 63 68 63 24 3d | 22 32 22 20 6c 6d 70 3d | . chc$=|"2" lmp=|
|00000420| 31 3a f2 69 6e 74 65 72 | 65 73 74 3a f2 70 72 69 |1:.inter|est:.pri|
|00000430| 6e 74 0d 01 40 26 20 e7 | 20 63 68 63 24 3d 22 33 |nt..@& .| chc$="3|
|00000440| 22 20 6c 6d 70 3d 31 3a | f2 73 74 61 72 74 76 61 |" lmp=1:|.startva|
|00000450| 6c 3a f2 70 72 69 6e 74 | 0d 01 4a 26 20 e7 20 63 |l:.print|..J& . c|
|00000460| 68 63 24 3d 22 34 22 20 | 6c 6d 70 3d 31 3a f2 66 |hc$="4" |lmp=1:.f|
|00000470| 69 6e 64 74 65 72 6d 3a | f2 70 72 69 6e 74 0d 01 |indterm:|.print..|
|00000480| 54 27 20 e7 20 63 68 63 | 24 3d 22 35 22 20 72 65 |T' . chc|$="5" re|
|00000490| 67 3d 31 3a f2 72 65 67 | 65 6e 64 76 61 6c 3a f2 |g=1:.reg|endval:.|
|000004a0| 70 72 69 6e 74 0d 01 5e | 29 20 e7 20 63 68 63 24 |print..^|) . chc$|
|000004b0| 3d 22 36 22 20 72 65 67 | 3d 31 3a f2 72 65 67 69 |="6" reg|=1:.regi|
|000004c0| 6e 74 65 72 65 73 74 3a | f2 70 72 69 6e 74 0d 01 |nterest:|.print..|
|000004d0| 68 28 20 e7 20 63 68 63 | 24 3d 22 37 22 20 72 65 |h( . chc|$="7" re|
|000004e0| 67 3d 31 3a f2 72 65 67 | 73 74 61 72 74 76 6c 3a |g=1:.reg|startvl:|
|000004f0| f2 70 72 69 6e 74 0d 01 | 72 1a 20 e7 20 63 68 63 |.print..|r. . chc|
|00000500| 24 3d 22 38 22 20 f2 69 | 6e 66 6c 61 74 69 6f 6e |$="8" .i|nflation|
|00000510| 0d 01 7c 1a 20 e7 20 63 | 68 63 24 3d 22 39 22 20 |..|. . c|hc$="9" |
|00000520| 6c 6d 70 3d 31 3a f2 63 | 61 72 0d 01 86 1a 20 fd |lmp=1:.c|ar.... .|
|00000530| 20 63 68 63 24 3d 22 45 | 22 20 84 20 63 68 63 24 | chc$="E|" . chc$|
|00000540| 3d 22 65 22 0d 01 90 11 | 20 db 3a eb 37 3a 40 25 |="e"....| .:.7:@%|
|00000550| 3d 31 30 3a e0 0d 01 9a | 1a 20 e7 20 9f 3c 3e 31 |=10:....|. . .<>1|
|00000560| 37 20 8c 20 8d 74 64 41 | 20 8b 20 8d 44 64 40 0d |7 . .tdA| . .Dd@.|
|00000570| 01 a4 22 20 ee 20 85 20 | 87 3a f6 3a f1 22 20 40 |.." . . |.:.:." @|
|00000580| 20 6c 69 6e 65 20 22 3b | 9e 3a 40 25 3d 31 30 3a | line ";|.:@%=10:|
|00000590| e0 0d 01 ae 05 3a 0d 01 | b8 0b dd 20 f2 6c 75 6d |.....:..|... .lum|
|000005a0| 70 0d 01 c2 0f 20 f2 65 | 6e 74 65 72 74 65 72 6d |p.... .e|nterterm|
|000005b0| 0d 01 cc 0f 20 f2 65 6e | 74 65 72 72 61 74 65 0d |.... .en|terrate.|
|000005c0| 01 d6 0f 20 f2 65 6e 74 | 65 72 63 6f 6d 70 0d 01 |... .ent|ercomp..|
|000005d0| e0 84 20 74 31 3d 31 34 | 3a 74 32 3d 35 36 3a 71 |.. t1=14|:t2=56:q|
|000005e0| 24 3d 22 45 6e 74 65 72 | 20 70 65 72 73 6f 6e 61 |$="Enter| persona|
|000005f0| 6c 20 74 61 78 20 61 6c | 6c 6f 77 61 6e 63 65 20 |l tax al|lowance |
|00000600| 6f 72 20 69 6e 74 65 72 | 65 73 74 20 74 6f 20 62 |or inter|est to b|
|00000610| 65 20 65 61 72 6e 65 64 | 20 a3 20 22 3a 70 65 72 |e earned| . ":per|
|00000620| 61 6c 6c 77 3d a4 71 75 | 65 73 74 28 74 31 2c 74 |allw=.qu|est(t1,t|
|00000630| 32 2c 71 24 2c 70 65 72 | 61 6c 6c 77 24 29 3a 70 |2,q$,per|allw$):p|
|00000640| 65 72 61 6c 6c 77 24 3d | c3 28 70 65 72 61 6c 6c |erallw$=|.(perall|
|00000650| 77 29 0d 01 ea 33 20 6c | 75 6d 70 73 75 6d 3d 70 |w)...3 l|umpsum=p|
|00000660| 65 72 61 6c 6c 77 2f 28 | 28 28 31 2b 28 52 2f 28 |erallw/(|((1+(R/(|
|00000670| 6e 2a 31 30 30 29 29 29 | 5e 28 79 65 61 72 2a 6e |n*100)))|^(year*n|
|00000680| 29 29 2d 31 29 0d 01 f4 | 1b 20 66 75 74 76 61 6c |))-1)...|. futval|
|00000690| 3d 6c 75 6d 70 73 75 6d | 2b 70 65 72 61 6c 6c 77 |=lumpsum|+perallw|
|000006a0| 0d 01 fe 29 20 64 65 66 | 6c 61 74 65 3d 28 28 31 |...) def|late=((1|
|000006b0| 2d 28 66 6c 74 6e 2f 31 | 30 30 29 29 5e 79 65 61 |-(fltn/1|00))^yea|
|000006c0| 72 29 2a 66 75 74 76 61 | 6c 0d 02 08 28 20 72 65 |r)*futva|l...( re|
|000006d0| 61 6c 6f 67 61 72 6d 3d | 28 ab 28 64 65 66 6c 61 |alogarm=|(.(defla|
|000006e0| 74 65 2f 6c 75 6d 70 73 | 75 6d 29 29 2f 79 65 61 |te/lumps|um))/yea|
|000006f0| 72 0d 02 12 1f 20 72 65 | 61 6c 52 3d 31 30 30 2a |r.... re|alR=100*|
|00000700| 28 31 30 5e 72 65 61 6c | 6f 67 61 72 6d 2d 31 29 |(10^real|ogarm-1)|
|00000710| 0d 02 1c 05 e1 0d 02 26 | 05 3a 0d 02 30 10 dd 20 |.......&|.:..0.. |
|00000720| f2 66 75 74 75 72 65 76 | 61 6c 0d 02 3a 0f 20 f2 |.futurev|al..:. .|
|00000730| 65 6e 74 65 72 6c 75 6d | 70 0d 02 44 0f 20 f2 65 |enterlum|p..D. .e|
|00000740| 6e 74 65 72 74 65 72 6d | 0d 02 4e 0f 20 f2 65 6e |nterterm|..N. .en|
|00000750| 74 65 72 72 61 74 65 0d | 02 58 0f 20 f2 65 6e 74 |terrate.|.X. .ent|
|00000760| 65 72 63 6f 6d 70 0d 02 | 62 2e 20 66 75 74 76 61 |ercomp..|b. futva|
|00000770| 6c 3d 28 28 31 2b 28 52 | 2f 28 6e 2a 31 30 30 29 |l=((1+(R|/(n*100)|
|00000780| 29 29 5e 28 79 65 61 72 | 2a 6e 29 29 2a 6c 75 6d |))^(year|*n))*lum|
|00000790| 70 73 75 6d 0d 02 6c 29 | 20 64 65 66 6c 61 74 65 |psum..l)| deflate|
|000007a0| 3d 28 28 31 2d 28 66 6c | 74 6e 2f 31 30 30 29 29 |=((1-(fl|tn/100))|
|000007b0| 5e 79 65 61 72 29 2a 66 | 75 74 76 61 6c 0d 02 76 |^year)*f|utval..v|
|000007c0| 28 20 72 65 61 6c 6f 67 | 61 72 6d 3d 28 ab 28 64 |( realog|arm=(.(d|
|000007d0| 65 66 6c 61 74 65 2f 6c | 75 6d 70 73 75 6d 29 29 |eflate/l|umpsum))|
|000007e0| 2f 79 65 61 72 0d 02 80 | 1f 20 72 65 61 6c 52 3d |/year...|. realR=|
|000007f0| 31 30 30 2a 28 31 30 5e | 72 65 61 6c 6f 67 61 72 |100*(10^|realogar|
|00000800| 6d 2d 31 29 0d 02 8a 05 | e1 0d 02 94 05 3a 0d 02 |m-1)....|.....:..|
|00000810| 9e 0f dd 20 f2 69 6e 74 | 65 72 65 73 74 0d 02 a8 |... .int|erest...|
|00000820| 0f 20 f2 65 6e 74 65 72 | 6c 75 6d 70 0d 02 b2 0f |. .enter|lump....|
|00000830| 20 f2 65 6e 74 65 72 74 | 65 72 6d 0d 02 bc 15 20 | .entert|erm.... |
|00000840| f2 65 6e 74 65 72 66 75 | 74 76 61 6c 28 31 30 29 |.enterfu|tval(10)|
|00000850| 0d 02 c6 24 20 6c 6f 67 | 61 72 6d 3d 28 ab 28 66 |...$ log|arm=(.(f|
|00000860| 75 74 76 61 6c 2f 6c 75 | 6d 70 73 75 6d 29 29 2f |utval/lu|mpsum))/|
|00000870| 79 65 61 72 0d 02 d0 18 | 20 52 3d 31 30 30 2a 28 |year....| R=100*(|
|00000880| 31 30 5e 6c 6f 67 61 72 | 6d 2d 31 29 0d 02 da 29 |10^logar|m-1)...)|
|00000890| 20 64 65 66 6c 61 74 65 | 3d 28 28 31 2d 28 66 6c | deflate|=((1-(fl|
|000008a0| 74 6e 2f 31 30 30 29 29 | 5e 79 65 61 72 29 2a 66 |tn/100))|^year)*f|
|000008b0| 75 74 76 61 6c 0d 02 e4 | 28 20 72 65 61 6c 6f 67 |utval...|( realog|
|000008c0| 61 72 6d 3d 28 ab 28 64 | 65 66 6c 61 74 65 2f 6c |arm=(.(d|eflate/l|
|000008d0| 75 6d 70 73 75 6d 29 29 | 2f 79 65 61 72 0d 02 ee |umpsum))|/year...|
|000008e0| 1f 20 72 65 61 6c 52 3d | 31 30 30 2a 28 31 30 5e |. realR=|100*(10^|
|000008f0| 72 65 61 6c 6f 67 61 72 | 6d 2d 31 29 0d 02 f8 05 |realogar|m-1)....|
|00000900| e1 0d 03 02 05 3a 0d 03 | 0c 0f dd 20 f2 73 74 61 |.....:..|... .sta|
|00000910| 72 74 76 61 6c 0d 03 16 | 0f 20 f2 65 6e 74 65 72 |rtval...|. .enter|
|00000920| 74 65 72 6d 0d 03 20 0f | 20 f2 65 6e 74 65 72 72 |term.. .| .enterr|
|00000930| 61 74 65 0d 03 2a 0f 20 | f2 65 6e 74 65 72 63 6f |ate..*. |.enterco|
|00000940| 6d 70 0d 03 34 15 20 f2 | 65 6e 74 65 72 66 75 74 |mp..4. .|enterfut|
|00000950| 76 61 6c 28 31 35 29 0d | 03 3e 2e 20 6c 75 6d 70 |val(15).|.>. lump|
|00000960| 73 75 6d 3d 66 75 74 76 | 61 6c 2f 28 28 31 2b 28 |sum=futv|al/((1+(|
|00000970| 52 2f 28 6e 2a 31 30 30 | 29 29 29 5e 28 79 65 61 |R/(n*100|)))^(yea|
|00000980| 72 2a 6e 29 29 0d 03 48 | 29 20 64 65 66 6c 61 74 |r*n))..H|) deflat|
|00000990| 65 3d 28 28 31 2d 28 66 | 6c 74 6e 2f 31 30 30 29 |e=((1-(f|ltn/100)|
|000009a0| 29 5e 79 65 61 72 29 2a | 66 75 74 76 61 6c 0d 03 |)^year)*|futval..|
|000009b0| 52 28 20 72 65 61 6c 6f | 67 61 72 6d 3d 28 ab 28 |R( realo|garm=(.(|
|000009c0| 64 65 66 6c 61 74 65 2f | 6c 75 6d 70 73 75 6d 29 |deflate/|lumpsum)|
|000009d0| 29 2f 79 65 61 72 0d 03 | 5c 1f 20 72 65 61 6c 52 |)/year..|\. realR|
|000009e0| 3d 31 30 30 2a 28 31 30 | 5e 72 65 61 6c 6f 67 61 |=100*(10|^realoga|
|000009f0| 72 6d 2d 31 29 0d 03 66 | 05 e1 0d 03 70 05 3a 0d |rm-1)..f|....p.:.|
|00000a00| 03 7a 0f dd 20 f2 66 69 | 6e 64 74 65 72 6d 0d 03 |.z.. .fi|ndterm..|
|00000a10| 84 0f 20 f2 65 6e 74 65 | 72 6c 75 6d 70 0d 03 8e |.. .ente|rlump...|
|00000a20| 0f 20 f2 65 6e 74 65 72 | 72 61 74 65 0d 03 98 0f |. .enter|rate....|
|00000a30| 20 f2 65 6e 74 65 72 63 | 6f 6d 70 0d 03 a2 15 20 | .enterc|omp.... |
|00000a40| f2 65 6e 74 65 72 66 75 | 74 76 61 6c 28 31 35 29 |.enterfu|tval(15)|
|00000a50| 0d 03 ac 31 20 79 78 6e | 3d 28 ab 28 66 75 74 76 |...1 yxn|=(.(futv|
|00000a60| 61 6c 2f 6c 75 6d 70 73 | 75 6d 29 29 2f 28 ab 28 |al/lumps|um))/(.(|
|00000a70| 28 31 2b 28 52 2f 28 6e | 2a 31 30 30 29 29 29 29 |(1+(R/(n|*100))))|
|00000a80| 29 0d 03 b6 0f 20 79 65 | 61 72 3d 79 78 6e 2f 6e |).... ye|ar=yxn/n|
|00000a90| 0d 03 c0 29 20 64 65 66 | 6c 61 74 65 3d 28 28 31 |...) def|late=((1|
|00000aa0| 2d 28 66 6c 74 6e 2f 31 | 30 30 29 29 5e 79 65 61 |-(fltn/1|00))^yea|
|00000ab0| 72 29 2a 66 75 74 76 61 | 6c 0d 03 ca 28 20 72 65 |r)*futva|l...( re|
|00000ac0| 61 6c 6f 67 61 72 6d 3d | 28 ab 28 64 65 66 6c 61 |alogarm=|(.(defla|
|00000ad0| 74 65 2f 6c 75 6d 70 73 | 75 6d 29 29 2f 79 65 61 |te/lumps|um))/yea|
|00000ae0| 72 0d 03 d4 1f 20 72 65 | 61 6c 52 3d 31 30 30 2a |r.... re|alR=100*|
|00000af0| 28 31 30 5e 72 65 61 6c | 6f 67 61 72 6d 2d 31 29 |(10^real|ogarm-1)|
|00000b00| 0d 03 de 05 e1 0d 03 e8 | 05 3a 0d 03 f2 0c dd 20 |........|.:..... |
|00000b10| f2 70 72 69 6e 74 0d 03 | fc 06 20 db 0d 04 06 0b |.print..|.. .....|
|00000b20| 20 f1 8a 30 2c 34 29 0d | 04 10 2d 20 f1 22 52 61 | ..0,4).|..- ."Ra|
|00000b30| 74 65 20 6f 66 20 69 6e | 66 6c 61 74 69 6f 6e 20 |te of in|flation |
|00000b40| 20 20 20 20 20 20 3d 20 | 20 20 22 66 6c 74 6e 3b |      = |  "fltn;|
|00000b50| 22 20 25 22 0d 04 1a 2a | 20 f1 22 52 61 74 65 20 |" %"...*| ."Rate |
|00000b60| 6f 66 20 69 6e 74 65 72 | 65 73 74 20 20 20 20 20 |of inter|est     |
|00000b70| 20 20 20 3d 20 20 20 22 | 52 3b 22 20 25 22 0d 04 |   =   "|R;" %"..|
|00000b80| 24 31 20 f1 22 54 65 72 | 6d 20 6f 66 20 69 6e 76 |$1 ."Ter|m of inv|
|00000b90| 65 73 74 6d 65 6e 74 20 | 20 20 20 20 20 3d 20 20 |estment |     =  |
|00000ba0| 20 22 79 65 61 72 3b 22 | 20 59 65 61 72 73 22 0d | "year;"| Years".|
|00000bb0| 04 2e 18 20 e7 20 6c 6d | 70 3d 31 20 8c 20 f2 6c |... . lm|p=1 . .l|
|00000bc0| 6d 70 70 72 69 6e 74 0d | 04 38 18 20 e7 20 72 65 |mpprint.|.8. . re|
|00000bd0| 67 3d 31 20 8c 20 f2 72 | 65 67 70 72 69 6e 74 0d |g=1 . .r|egprint.|
|00000be0| 04 42 2b 20 f1 27 22 45 | 6e 64 20 6f 66 20 74 65 |.B+ .'"E|nd of te|
|00000bf0| 72 6d 20 76 61 6c 75 65 | 20 20 20 20 20 20 20 3d |rm value|       =|
|00000c00| 20 a3 20 22 66 75 74 76 | 61 6c 0d 04 4c 17 20 f1 | . "futv|al..L. .|
|00000c10| 3a e7 20 72 65 67 3d 31 | 20 8c 20 e5 20 8d 44 6a |:. reg=1| . . .Dj|
|00000c20| 44 0d 04 56 2c 20 f1 27 | 22 44 65 66 6c 61 74 65 |D..V, .'|"Deflate|
|00000c30| 64 20 66 75 74 75 72 65 | 20 76 61 6c 75 65 20 20 |d future| value  |
|00000c40| 20 3d 20 a3 20 22 64 65 | 66 6c 61 74 65 0d 04 60 | = . "de|flate..`|
|00000c50| 2e 20 f1 22 52 65 61 6c | 20 72 61 74 65 20 6f 66 |. ."Real| rate of|
|00000c60| 20 69 6e 74 65 72 65 73 | 74 20 20 20 3d 20 20 20 | interes|t   =   |
|00000c70| 22 72 65 61 6c 52 3b 22 | 20 25 22 0d 04 6a 2c 20 |"realR;"| %"..j, |
|00000c80| f1 8a 30 2c 32 30 29 22 | 50 52 45 53 53 20 61 6e |..0,20)"|PRESS an|
|00000c90| 79 20 6b 65 79 20 74 6f | 20 63 6f 6e 74 69 6e 75 |y key to| continu|
|00000ca0| 65 22 3b 3a 47 3d a5 0d | 04 74 05 e1 0d 04 7e 05 |e";:G=..|.t....~.|
|00000cb0| 3a 0d 04 88 10 dd 20 f2 | 69 6e 66 6c 61 74 69 6f |:..... .|inflatio|
|00000cc0| 6e 0d 04 92 32 20 f1 8a | 30 2c 31 38 29 22 4e 6f |n...2 ..|0,18)"No|
|00000cd0| 74 20 69 6d 70 6c 65 6d | 65 6e 74 65 64 20 77 69 |t implem|ented wi|
|00000ce0| 74 68 20 72 65 67 75 6c | 61 72 20 73 61 76 69 6e |th regul|ar savin|
|00000cf0| 67 73 22 0d 04 9c 6a 20 | 74 31 3d 31 32 3a 74 32 |gs"...j |t1=12:t2|
|00000d00| 3d 34 33 3a 71 24 3d 22 | 57 68 61 74 20 20 69 73 |=43:q$="|What  is|
|00000d10| 20 20 74 68 65 20 20 6e | 65 77 20 20 72 61 74 65 |  the  n|ew  rate|
|00000d20| 20 6f 66 20 69 6e 66 6c | 61 74 69 6f 6e 20 28 25 | of infl|ation (%|
|00000d30| 29 20 22 3a 66 6c 74 6e | 3d a4 71 75 65 73 74 28 |) ":fltn|=.quest(|
|00000d40| 74 31 2c 74 32 2c 71 24 | 2c 66 6c 74 6e 24 29 3a |t1,t2,q$|,fltn$):|
|00000d50| 66 6c 74 6e 24 3d c3 28 | 66 6c 74 6e 29 0d 04 a6 |fltn$=.(|fltn)...|
|00000d60| 05 e1 0d 04 b0 05 3a 0d | 04 ba 0a dd 20 f2 63 61 |......:.|.... .ca|
|00000d70| 72 0d 04 c4 0f 20 f2 65 | 6e 74 65 72 72 61 74 65 |r.... .e|nterrate|
|00000d80| 0d 04 ce 0f 20 f2 65 6e | 74 65 72 63 6f 6d 70 0d |.... .en|tercomp.|
|00000d90| 04 d8 1d 20 65 66 66 65 | 63 52 3d 28 31 2b 28 52 |... effe|cR=(1+(R|
|00000da0| 2f 28 31 30 30 2a 6e 29 | 29 29 5e 6e 0d 04 e2 1e |/(100*n)|))^n....|
|00000db0| 20 65 66 66 65 63 74 69 | 76 65 52 3d 28 65 66 66 | effecti|veR=(eff|
|00000dc0| 65 63 52 2d 31 29 2a 31 | 30 30 0d 04 ec 3e 20 f1 |ecR-1)*1|00...> .|
|00000dd0| 27 27 22 45 66 66 65 63 | 74 69 76 65 20 20 72 61 |''"Effec|tive  ra|
|00000de0| 74 65 20 6f 66 20 20 69 | 6e 74 65 72 65 73 74 20 |te of  i|nterest |
|00000df0| 20 20 20 20 20 3d 20 22 | 3b 65 66 66 65 63 74 69 |     = "|;effecti|
|00000e00| 76 65 52 3b 22 20 25 22 | 0d 04 f6 2c 20 f1 8a 30 |veR;" %"|..., ..0|
|00000e10| 2c 32 30 29 22 50 52 45 | 53 53 20 61 6e 79 20 6b |,20)"PRE|SS any k|
|00000e20| 65 79 20 74 6f 20 63 6f | 6e 74 69 6e 75 65 22 3b |ey to co|ntinue";|
|00000e30| 3a 47 3d a5 0d 05 00 05 | e1 0d 05 0a 05 3a 0d 05 |:G=.....|.....:..|
|00000e40| 14 10 dd 20 a4 79 65 73 | 6e 6f 28 61 24 29 0d 05 |... .yes|no(a$)..|
|00000e50| 1e 14 20 f1 61 24 3b 22 | 20 28 59 2f 4e 29 3f 20 |.. .a$;"| (Y/N)? |
|00000e60| 22 3b 0d 05 28 06 20 f5 | 0d 05 32 16 20 72 65 70 |";..(. .|..2. rep|
|00000e70| 6c 79 24 3d bd 28 a5 20 | 80 20 26 44 46 29 0d 05 |ly$=.(. |. &DF)..|
|00000e80| 3c 1e 20 fd 20 72 65 70 | 6c 79 24 3d 22 4e 22 20 |<. . rep|ly$="N" |
|00000e90| 84 20 72 65 70 6c 79 24 | 3d 22 59 22 0d 05 46 11 |. reply$|="Y"..F.|
|00000ea0| 3d 28 72 65 70 6c 79 24 | 3d 22 4e 22 29 0d 05 50 |=(reply$|="N")..P|
|00000eb0| 05 3a 0d 05 5a 10 dd 20 | f2 72 65 67 65 6e 64 76 |.:..Z.. |.regendv|
|00000ec0| 61 6c 0d 05 64 12 20 f2 | 65 6e 74 65 72 72 65 67 |al..d. .|enterreg|
|00000ed0| 6c 75 6d 70 0d 05 6e 0e | 20 f2 65 6e 74 65 72 6e |lump..n.| .entern|
|00000ee0| 70 61 0d 05 78 0f 20 f2 | 65 6e 74 65 72 74 65 72 |pa..x. .|enterter|
|00000ef0| 6d 0d 05 82 0f 20 f2 65 | 6e 74 65 72 72 61 74 65 |m.... .e|nterrate|
|00000f00| 0d 05 8c 12 20 69 3d 52 | 2f 28 6e 70 61 2a 31 30 |.... i=R|/(npa*10|
|00000f10| 30 29 0d 05 96 2d 20 66 | 75 74 76 61 6c 3d 28 28 |0)...- f|utval=((|
|00000f20| 28 28 31 2b 69 29 5e 28 | 79 65 61 72 2a 6e 70 61 |((1+i)^(|year*npa|
|00000f30| 29 29 2d 31 29 2f 69 29 | 2a 72 65 67 6c 61 72 0d |))-1)/i)|*reglar.|
|00000f40| 05 a0 17 20 6c 75 6d 70 | 73 75 6d 3d 72 65 67 6c |... lump|sum=regl|
|00000f50| 61 72 2a 6e 70 61 0d 05 | aa 05 e1 0d 05 b4 05 3a |ar*npa..|.......:|
|00000f60| 0d 05 be 12 dd 20 f2 72 | 65 67 69 6e 74 65 72 65 |..... .r|egintere|
|00000f70| 73 74 0d 05 c8 12 20 f2 | 65 6e 74 65 72 72 65 67 |st.... .|enterreg|
|00000f80| 6c 75 6d 70 0d 05 d2 0e | 20 f2 65 6e 74 65 72 6e |lump....| .entern|
|00000f90| 70 61 0d 05 dc 0f 20 f2 | 65 6e 74 65 72 74 65 72 |pa.... .|enterter|
|00000fa0| 6d 0d 05 e6 15 20 f2 65 | 6e 74 65 72 66 75 74 76 |m.... .e|nterfutv|
|00000fb0| 61 6c 28 31 30 29 0d 05 | f0 24 20 f1 8a 30 2c 32 |al(10)..|.$ ..0,2|
|00000fc0| 32 29 22 43 6f 6d 70 75 | 74 69 6e 67 2d 50 6c 65 |2)"Compu|ting-Ple|
|00000fd0| 61 73 65 20 57 61 69 74 | 22 3b 0d 05 fa 18 20 69 |ase Wait|";.... i|
|00000fe0| 3d 30 3a 78 3d 66 75 74 | 76 61 6c 2f 72 65 67 6c |=0:x=fut|val/regl|
|00000ff0| 61 72 0d 06 04 06 20 f5 | 0d 06 0e 0f 20 20 69 3d |ar.... .|....  i=|
|00001000| 69 2b 30 2e 30 30 35 0d | 06 18 1c 20 20 52 3d 69 |i+0.005.|...  R=i|
|00001010| 2a 6e 70 61 2a 31 30 30 | 3a f1 8a 33 30 2c 32 33 |*npa*100|:..30,23|
|00001020| 29 3b 52 0d 06 22 20 20 | 20 79 3d 28 28 28 31 2b |);R.."  | y=(((1+|
|00001030| 69 29 5e 28 79 65 61 72 | 2a 6e 70 61 29 29 2d 31 |i)^(year|*npa))-1|
|00001040| 29 2f 69 0d 06 2c 10 20 | fd 20 79 3d 78 20 84 20 |)/i..,. |. y=x . |
|00001050| 79 3e 78 0d 06 36 10 20 | 69 3d 69 2d 30 2e 30 30 |y>x..6. |i=i-0.00|
|00001060| 35 30 31 0d 06 40 06 20 | f5 0d 06 4a 11 20 20 69 |501..@. |...J.  i|
|00001070| 3d 69 2b 30 2e 30 30 30 | 30 35 0d 06 54 1c 20 20 |=i+0.000|05..T.  |
|00001080| 52 3d 69 2a 6e 70 61 2a | 31 30 30 3a f1 8a 33 30 |R=i*npa*|100:..30|
|00001090| 2c 32 33 29 3b 52 0d 06 | 5e 20 20 20 79 3d 28 28 |,23);R..|^   y=((|
|000010a0| 28 31 2b 69 29 5e 28 79 | 65 61 72 2a 6e 70 61 29 |(1+i)^(y|ear*npa)|
|000010b0| 29 2d 31 29 2f 69 0d 06 | 68 10 20 fd 20 79 3d 78 |)-1)/i..|h. . y=x|
|000010c0| 20 84 20 79 3e 78 0d 06 | 72 23 20 52 3d 69 2a 6e | . y>x..|r# R=i*n|
|000010d0| 70 61 2a 31 30 30 3a 6c | 75 6d 70 73 75 6d 3d 72 |pa*100:l|umpsum=r|
|000010e0| 65 67 6c 61 72 2a 6e 70 | 61 0d 06 7c 05 e1 0d 06 |eglar*np|a..|....|
|000010f0| 86 05 3a 0d 06 90 11 dd | 20 f2 72 65 67 73 74 61 |..:.....| .regsta|
|00001100| 72 74 76 6c 0d 06 9a 1d | 20 66 6c 74 6e 3d 30 3a |rtvl....| fltn=0:|
|00001110| 64 65 66 6c 61 74 65 3d | 30 3a 72 65 61 6c 52 3d |deflate=|0:realR=|
|00001120| 30 0d 06 a4 0e 20 f2 65 | 6e 74 65 72 6e 70 61 0d |0.... .e|nternpa.|
|00001130| 06 ae 0f 20 f2 65 6e 74 | 65 72 74 65 72 6d 0d 06 |... .ent|erterm..|
|00001140| b8 0f 20 f2 65 6e 74 65 | 72 72 61 74 65 0d 06 c2 |.. .ente|rrate...|
|00001150| 15 20 f2 65 6e 74 65 72 | 66 75 74 76 61 6c 28 31 |. .enter|futval(1|
|00001160| 32 29 0d 06 cc 12 20 69 | 3d 52 2f 28 6e 70 61 2a |2).... i|=R/(npa*|
|00001170| 31 30 30 29 0d 06 d6 2d | 20 72 65 67 6c 61 72 3d |100)...-| reglar=|
|00001180| 66 75 74 76 61 6c 2f 28 | 28 28 28 31 2b 69 29 5e |futval/(|(((1+i)^|
|00001190| 28 79 65 61 72 2a 6e 70 | 61 29 29 2d 31 29 2f 69 |(year*np|a))-1)/i|
|000011a0| 29 0d 06 e0 05 e1 0d 06 | ea 05 3a 0d 06 f4 0f dd |).......|..:.....|
|000011b0| 20 f2 6c 6d 70 70 72 69 | 6e 74 0d 06 fe 2c 20 f1 | .lmppri|nt..., .|
|000011c0| 27 22 4c 75 6d 70 73 75 | 6d 20 69 6e 76 65 73 74 |'"Lumpsu|m invest|
|000011d0| 6d 65 6e 74 20 20 20 20 | 20 20 3d 20 a3 20 22 6c |ment    |  = . "l|
|000011e0| 75 6d 70 73 75 6d 0d 07 | 08 33 20 f1 20 22 54 6f |umpsum..|.3 . "To|
|000011f0| 74 61 6c 20 69 6e 74 65 | 72 65 73 74 20 65 61 72 |tal inte|rest ear|
|00001200| 6e 65 64 20 20 20 3d 20 | a3 20 22 66 75 74 76 61 |ned   = |. "futva|
|00001210| 6c 2d 6c 75 6d 70 73 75 | 6d 0d 07 12 05 e1 0d 07 |l-lumpsu|m.......|
|00001220| 1c 05 3a 0d 07 26 0f dd | 20 f2 72 65 67 70 72 69 |..:..&..| .regpri|
|00001230| 6e 74 0d 07 30 2a 20 f1 | 22 52 65 67 75 6c 61 72 |nt..0* .|"Regular|
|00001240| 20 61 6d 6f 75 6e 74 20 | 69 6e 76 65 73 74 65 64 | amount |invested|
|00001250| 20 3d 20 a3 20 22 72 65 | 67 6c 61 72 0d 07 3a 27 | = . "re|glar..:'|
|00001260| 20 f1 22 4e 75 6d 62 65 | 72 20 6f 66 20 64 65 70 | ."Numbe|r of dep|
|00001270| 6f 73 69 74 73 20 70 2e | 61 2e 20 3d 20 a3 20 22 |osits p.|a. = . "|
|00001280| 6e 70 61 0d 07 44 2e 20 | f1 22 41 6d 6f 75 6e 74 |npa..D. |."Amount|
|00001290| 20 73 61 76 65 64 20 70 | 2e 61 2e 20 20 20 20 20 | saved p|.a.     |
|000012a0| 20 20 3d 20 a3 20 22 72 | 65 67 6c 61 72 2a 6e 70 |  = . "r|eglar*np|
|000012b0| 61 0d 07 4e 3c 20 f1 22 | 54 6f 74 61 6c 20 69 6e |a..N< ."|Total in|
|000012c0| 74 65 72 65 73 74 20 65 | 61 72 6e 65 64 20 20 20 |terest e|arned   |
|000012d0| 3d 20 a3 20 22 66 75 74 | 76 61 6c 2d 28 72 65 67 |= . "fut|val-(reg|
|000012e0| 6c 61 72 2a 6e 70 61 2a | 79 65 61 72 29 0d 07 58 |lar*npa*|year)..X|
|000012f0| 05 e1 0d 07 62 05 3a 0d | 07 6c 1c dd 20 a4 71 75 |....b.:.|.l.. .qu|
|00001300| 65 73 74 28 79 31 2c 79 | 32 2c 51 24 2c 64 61 74 |est(y1,y|2,Q$,dat|
|00001310| 61 24 29 0d 07 76 09 20 | ea 20 69 6e 0d 07 80 06 |a$)..v. |. in....|
|00001320| 20 f5 0d 07 8a 15 20 20 | f1 8a 30 2c 79 31 29 51 | .....  |..0,y1)Q|
|00001330| 24 3b 64 61 74 61 24 0d | 07 94 10 20 20 e8 8a 79 |$;data$.|...  ..y|
|00001340| 32 2c 79 31 29 69 6e 0d | 07 9e 1a 20 20 e7 20 69 |2,y1)in.|...  . i|
|00001350| 6e 3d 30 20 8c 20 69 6e | 3d bb 28 64 61 74 61 24 |n=0 . in|=.(data$|
|00001360| 29 0d 07 a8 0b 20 fd 20 | 69 6e 3e 30 0d 07 b2 09 |).... . |in>0....|
|00001370| 3d 28 69 6e 29 0d 07 bc | 05 3a 0d 07 c6 10 dd 20 |=(in)...|.:..... |
|00001380| f2 65 6e 74 65 72 74 65 | 72 6d 0d 07 d0 5f 20 74 |.enterte|rm..._ t|
|00001390| 31 3d 38 3a 74 32 3d 33 | 32 3a 71 24 3d 22 45 6e |1=8:t2=3|2:q$="En|
|000013a0| 74 65 72 20 69 6e 76 65 | 73 74 6d 65 6e 74 20 74 |ter inve|stment t|
|000013b0| 65 72 6d 20 28 79 65 61 | 72 73 29 20 3f 20 22 3a |erm (yea|rs) ? ":|
|000013c0| 79 65 61 72 3d a4 71 75 | 65 73 74 28 74 31 2c 74 |year=.qu|est(t1,t|
|000013d0| 32 2c 71 24 2c 79 65 61 | 72 24 29 3a 79 65 61 72 |2,q$,yea|r$):year|
|000013e0| 24 3d c3 28 79 65 61 72 | 29 0d 07 da 05 e1 0d 07 |$=.(year|).......|
|000013f0| e4 05 3a 0d 07 ee 10 dd | 20 f2 65 6e 74 65 72 72 |..:.....| .enterr|
|00001400| 61 74 65 0d 07 f8 54 20 | 74 31 3d 31 30 3a 74 32 |ate...T |t1=10:t2|
|00001410| 3d 33 32 3a 71 24 3d 22 | 57 68 61 74 20 69 73 20 |=32:q$="|What is |
|00001420| 74 68 65 20 72 61 74 65 | 20 6f 66 20 69 6e 74 65 |the rate| of inte|
|00001430| 72 65 73 74 20 20 3f 20 | 22 3a 52 3d a4 71 75 65 |rest  ? |":R=.que|
|00001440| 73 74 28 74 31 2c 74 32 | 2c 71 24 2c 52 24 29 3a |st(t1,t2|,q$,R$):|
|00001450| 52 24 3d c3 28 52 29 0d | 08 02 05 e1 0d 08 0c 05 |R$=.(R).|........|
|00001460| 3a 0d 08 16 10 dd 20 f2 | 65 6e 74 65 72 63 6f 6d |:..... .|entercom|
|00001470| 70 0d 08 20 76 20 f5 3a | 74 31 3d 31 32 3a 74 32 |p.. v .:|t1=12:t2|
|00001480| 3d 35 36 3a 71 24 3d 22 | 48 6f 77 20 6f 66 74 65 |=56:q$="|How ofte|
|00001490| 6e 20 69 73 20 74 68 65 | 20 69 6e 74 65 72 65 73 |n is the| interes|
|000014a0| 74 20 63 6f 6d 70 6f 75 | 6e 64 65 64 20 69 6e 20 |t compou|nded in |
|000014b0| 61 20 79 65 61 72 20 28 | 31 2d 31 32 29 20 3f 20 |a year (|1-12) ? |
|000014c0| 22 3a 6e 3d a4 71 75 65 | 73 74 28 74 31 2c 74 32 |":n=.que|st(t1,t2|
|000014d0| 2c 71 24 2c 6e 24 29 3a | 6e 24 3d c3 28 6e 29 3a |,q$,n$):|n$=.(n):|
|000014e0| fd 20 6e 3c 3d 31 32 0d | 08 2a 05 e1 0d 08 34 05 |. n<=12.|.*....4.|
|000014f0| 3a 0d 08 3e 16 dd 20 f2 | 65 6e 74 65 72 66 75 74 |:..>.. .|enterfut|
|00001500| 76 61 6c 28 79 31 29 0d | 08 48 85 20 74 31 3d 79 |val(y1).|.H. t1=y|
|00001510| 31 3a 74 32 3d 36 31 3a | 71 24 3d 22 57 68 61 74 |1:t2=61:|q$="What|
|00001520| 20 69 73 20 65 78 70 65 | 63 74 65 64 20 66 75 74 | is expe|cted fut|
|00001530| 75 72 65 20 76 61 6c 75 | 65 20 6f 66 20 69 6e 76 |ure valu|e of inv|
|00001540| 65 73 74 6d 65 6e 74 20 | 61 74 20 65 6e 64 20 6f |estment |at end o|
|00001550| 66 20 74 65 72 6d 20 a3 | 20 22 3a 66 75 74 76 61 |f term .| ":futva|
|00001560| 6c 3d a4 71 75 65 73 74 | 28 74 31 2c 74 32 2c 71 |l=.quest|(t1,t2,q|
|00001570| 24 2c 66 75 74 76 61 6c | 24 29 3a 66 75 74 76 61 |$,futval|$):futva|
|00001580| 6c 24 3d c3 28 66 75 74 | 76 61 6c 29 0d 08 52 05 |l$=.(fut|val)..R.|
|00001590| e1 0d 08 5c 05 3a 0d 08 | 66 0f dd 20 f2 65 6e 74 |...\.:..|f.. .ent|
|000015a0| 65 72 6e 70 61 0d 08 70 | 5b 20 74 31 3d 36 3a 74 |ernpa..p|[ t1=6:t|
|000015b0| 32 3d 33 32 3a 71 24 3d | 22 45 6e 74 65 72 20 6e |2=32:q$=|"Enter n|
|000015c0| 75 6d 62 65 72 20 6f 66 | 20 64 65 70 6f 73 69 74 |umber of| deposit|
|000015d0| 73 20 70 2e 61 2e 20 20 | 20 22 3a 6e 70 61 3d a4 |s p.a.  | ":npa=.|
|000015e0| 71 75 65 73 74 28 74 31 | 2c 74 32 2c 71 24 2c 6e |quest(t1|,t2,q$,n|
|000015f0| 70 61 24 29 3a 6e 70 61 | 24 3d c3 28 6e 70 61 29 |pa$):npa|$=.(npa)|
|00001600| 0d 08 7a 05 e1 0d 08 84 | 05 3a 0d 08 8e 10 dd 20 |..z.....|.:..... |
|00001610| f2 65 6e 74 65 72 6c 75 | 6d 70 0d 08 98 6b 20 74 |.enterlu|mp...k t|
|00001620| 31 3d 36 3a 74 32 3d 33 | 32 3a 71 24 3d 22 45 6e |1=6:t2=3|2:q$="En|
|00001630| 74 65 72 20 6c 75 6d 70 | 20 73 75 6d 20 74 6f 20 |ter lump| sum to |
|00001640| 62 65 20 69 6e 76 65 73 | 74 65 64 20 a3 20 22 3a |be inves|ted . ":|
|00001650| 6c 75 6d 70 73 75 6d 3d | a4 71 75 65 73 74 28 74 |lumpsum=|.quest(t|
|00001660| 31 2c 74 32 2c 71 24 2c | 6c 75 6d 70 73 75 6d 24 |1,t2,q$,|lumpsum$|
|00001670| 29 3a 6c 75 6d 70 73 75 | 6d 24 3d c3 28 6c 75 6d |):lumpsu|m$=.(lum|
|00001680| 70 73 75 6d 29 0d 08 a2 | 05 e1 0d 08 ac 05 3a 0d |psum)...|......:.|
|00001690| 08 b6 13 dd 20 f2 65 6e | 74 65 72 72 65 67 6c 75 |.... .en|terreglu|
|000016a0| 6d 70 0d 08 c0 1d 20 66 | 6c 74 6e 3d 30 3a 64 65 |mp.... f|ltn=0:de|
|000016b0| 66 6c 61 74 65 3d 30 3a | 72 65 61 6c 52 3d 30 0d |flate=0:|realR=0.|
|000016c0| 08 ca 67 20 74 31 3d 34 | 3a 74 32 3d 33 32 3a 71 |..g t1=4|:t2=32:q|
|000016d0| 24 3d 22 45 6e 74 65 72 | 20 72 65 67 75 6c 61 72 |$="Enter| regular|
|000016e0| 20 61 6d 6f 75 6e 74 20 | 69 6e 76 65 73 74 65 64 | amount |invested|
|000016f0| 20 a3 20 22 3a 72 65 67 | 6c 61 72 3d a4 71 75 65 | . ":reg|lar=.que|
|00001700| 73 74 28 74 31 2c 74 32 | 2c 71 24 2c 72 65 67 6c |st(t1,t2|,q$,regl|
|00001710| 61 72 24 29 3a 72 65 67 | 6c 61 72 24 3d c3 28 72 |ar$):reg|lar$=.(r|
|00001720| 65 67 6c 61 72 29 0d 08 | d4 05 e1 0d 08 de 05 3a |eglar)..|.......:|
|00001730| 0d 08 e8 0c dd 20 f2 74 | 69 74 6c 65 0d 08 f2 07 |..... .t|itle....|
|00001740| 20 ef 35 0d 08 fc 17 20 | c8 93 20 31 30 2c 38 32 | .5.... |.. 10,82|
|00001750| 30 2c 31 32 36 30 2c 31 | 36 30 0d 09 06 17 20 ef |0,1260,1|60.... .|
|00001760| 32 33 2c 31 37 2c 37 2c | 36 2c 38 3b 31 36 3b 30 |23,17,7,|6,8;16;0|
|00001770| 3b 0d 09 10 0e 20 ec 20 | 34 32 30 2c 39 32 30 0d |;.... . |420,920.|
|00001780| 09 1a 24 20 f1 22 43 4f | 4d 50 4f 55 4e 44 20 49 |..$ ."CO|MPOUND I|
|00001790| 4e 54 45 52 45 53 54 20 | 43 41 4c 43 55 4c 41 54 |NTEREST |CALCULAT|
|000017a0| 4f 52 22 0d 09 24 07 20 | ef 34 0d 09 2e 06 20 e1 |OR"..$. |.4.... .|
|000017b0| 0d 09 38 06 20 3a 0d 09 | 42 04 0d ff             |..8. :..|B...    |
+--------+-------------------------+-------------------------+--------+--------+