/ APDL Public Domain 1 / APDL_PD1A.iso / apps / compint

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 68 01 00 00 c8 01 00 00 |Archive.|h.......|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 43 6f 6d 70 49 6e | 74 00 00 00 ff ff ff ff |.!CompIn|t.......|
|00000070| 44 fd ff ff c5 7f e1 cf | 00 00 00 00 ff ff ff ff |D.......|........|
|00000080| 44 01 00 80 82 21 42 6f | 6f 74 00 34 74 00 00 00 |D....!Bo|ot.4t...|
|00000090| 3a 00 00 00 42 eb ff ff | ee 7f 28 a1 03 00 14 b2 |:...B...|..(.....|
|000000a0| 3a 00 00 00 24 00 00 00 | 82 21 48 65 6c 70 00 34 |:...$...|.!Help.4|
|000000b0| 74 00 00 00 39 01 00 00 | 43 ff ff ff 68 c8 8c 08 |t...9...|C...h...|
|000000c0| 03 00 eb 72 39 01 00 00 | 82 00 00 00 82 21 52 75 |...r9...|.....!Ru|
|000000d0| 6e 00 2d 34 74 00 00 00 | 50 00 00 00 43 eb ff ff |n.-4t...|P...C...|
|000000e0| bf 0b 8e 08 03 00 7a 3d | 50 00 00 00 df 01 00 00 |......z=|P.......|
|000000f0| 82 21 53 70 72 69 74 65 | 73 00 00 00 b4 05 00 00 |.!Sprite|s.......|
|00000100| 43 f9 ff ff d0 f9 96 1c | 03 00 e0 e3 b4 05 00 00 |C.......|........|
|00000110| 53 02 00 00 82 43 6f 6d | 70 6e 64 31 00 00 00 00 |S....Com|pnd1....|
|00000120| bc 17 00 00 43 fb ff ff | 78 dd 97 1c 03 00 73 c7 |....C...|x.....s.|
|00000130| bc 17 00 00 2b 08 00 00 | 82 46 6c 79 69 6e 67 00 |....+...|.Flying.|
|00000140| 74 00 00 00 ff ff ff ff | 44 fd ff ff 16 82 e1 cf |t.......|D.......|
|00000150| 00 00 00 00 ff ff ff ff | 20 01 00 80 00 00 00 00 |........| .......|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 8c 01 00 00 |........|........|
|00000180| 00 65 72 00 00 73 2d 34 | 74 00 00 00 42 01 00 00 |.er..s-4|t...B...|
|00000190| 44 eb ff ff ac 34 b9 ad | 03 0c ad de dc 00 00 00 |D....4..|........|
|000001a0| bc 08 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 8c 01 00 00 | 46 69 6c 65 44 61 74 61 |........|FileData|
|000001d0| 82 21 42 6f 6f 74 00 34 | 74 00 00 00 3a 00 00 00 |.!Boot.4|t...:...|
|000001e0| 42 eb ff ff ee 7f 28 a1 | 03 00 14 b2 53 65 74 20 |B.....(.|....Set |
|000001f0| 57 69 6d 70 53 79 73 24 | 44 69 72 20 3c 4f 62 65 |WimpSys$|Dir <Obe|
|00000200| 79 24 44 69 72 3e 0a 49 | 63 6f 6e 53 70 72 69 74 |y$Dir>.I|conSprit|
|00000210| 65 73 20 3c 4f 62 65 79 | 24 44 69 72 3e 2e 21 53 |es <Obey|$Dir>.!S|
|00000220| 70 72 69 74 65 73 46 69 | 6c 65 44 61 74 61 82 21 |pritesFi|leData.!|
|00000230| 48 65 6c 70 00 34 74 00 | 00 00 39 01 00 00 43 ff |Help.4t.|..9...C.|
|00000240| ff ff 68 c8 8c 08 03 00 | eb 72 43 6f 6d 70 6f 75 |..h.....|.rCompou|
|00000250| 6e 64 20 69 6e 74 65 72 | 65 73 74 20 63 61 6c 63 |nd inter|est calc|
|00000260| 75 6c 61 74 6f 72 20 20 | 32 31 2f 33 2f 39 31 0a |ulator  |21/3/91.|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 2d 2d 0a 41 | 20 73 69 6d 70 6c 65 20 |------.A| simple |
|000002a0| 70 72 6f 67 72 61 6d 6d | 65 20 63 6f 6e 76 65 72 |programm|e conver|
|000002b0| 74 65 64 20 66 72 6f 6d | 20 61 20 42 42 43 20 70 |ted from| a BBC p|
|000002c0| 72 6f 67 72 61 6d 6d 65 | 20 49 20 77 72 6f 74 65 |rogramme| I wrote|
|000002d0| 20 73 6f 6d 65 20 74 69 | 6d 65 20 61 67 6f 2e 0a | some ti|me ago..|
|000002e0| 0a 54 68 65 20 70 72 6f | 67 72 61 6d 6d 65 20 69 |.The pro|gramme i|
|000002f0| 73 20 73 65 6c 66 20 65 | 78 70 6c 61 6e 61 74 6f |s self e|xplanato|
|00000300| 72 79 2c 20 61 6e 64 20 | 68 6f 70 65 66 75 6c 6c |ry, and |hopefull|
|00000310| 79 20 49 20 77 69 6c 6c | 20 67 65 74 20 74 69 6d |y I will| get tim|
|00000320| 65 20 74 6f 20 65 78 70 | 61 6e 64 20 69 74 0a 74 |e to exp|and it.t|
|00000330| 6f 20 64 6f 20 6f 74 68 | 65 72 20 75 73 65 66 75 |o do oth|er usefu|
|00000340| 6c 20 63 61 6c 63 75 6c | 61 74 69 6f 6e 73 2e 0a |l calcul|ations..|
|00000350| 0a 0a 0a 45 64 64 69 65 | 20 46 20 4c 6f 72 64 20 |...Eddie| F Lord |
|00000360| 42 53 63 2e 0a 43 72 61 | 77 6c 65 79 2e 0a 0a 0a |BSc..Cra|wley....|
|00000370| 45 4e 44 20 4f 46 20 52 | 45 41 44 4d 45 20 46 49 |END OF R|EADME FI|
|00000380| 4c 45 0a 46 69 6c 65 44 | 61 74 61 82 21 52 75 6e |LE.FileD|ata.!Run|
|00000390| 00 2d 34 74 00 00 00 50 | 00 00 00 43 eb ff ff bf |.-4t...P|...C....|
|000003a0| 0b 8e 08 03 00 7a 3d 53 | 65 74 20 57 69 6d 70 53 |.....z=S|et WimpS|
|000003b0| 79 73 24 44 69 72 20 3c | 4f 62 65 79 24 44 69 72 |ys$Dir <|Obey$Dir|
|000003c0| 3e 0a 57 69 6d 70 73 6c | 6f 74 20 2d 6d 69 6e 20 |>.Wimpsl|ot -min |
|000003d0| 31 36 6b 20 2d 6d 61 78 | 20 31 36 6b 0a 52 75 6e |16k -max| 16k.Run|
|000003e0| 20 3c 57 69 6d 70 53 79 | 73 24 44 69 72 3e 2e 63 | <WimpSy|s$Dir>.c|
|000003f0| 6f 6d 70 6e 64 31 0a 46 | 69 6c 65 44 61 74 61 82 |ompnd1.F|ileData.|
|00000400| 21 53 70 72 69 74 65 73 | 00 00 00 b4 05 00 00 43 |!Sprites|.......C|
|00000410| f9 ff ff d0 f9 96 1c 03 | 00 e0 e3 02 00 00 00 10 |........|........|
|00000420| 00 00 00 b8 05 00 00 d4 | 02 00 00 21 63 6f 6d 70 |........|...!comp|
|00000430| 69 6e 74 00 00 00 00 04 | 00 00 00 10 00 00 00 00 |int.....|........|
|00000440| 00 00 00 07 00 00 00 2c | 00 00 00 80 01 00 00 0c |.......,|........|
|00000450| 00 00 00 bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|00000460| bb bb bb bb 00 00 00 bb | bb 99 b9 bb bb bb bb bb |........|........|
|00000470| bb bb bb bb bb bb bb bb | 00 00 00 bb 9b b9 99 bb |........|........|
|00000480| bb bb bb bb bb bb bb bb | bb bb bb bb 00 00 00 bb |........|........|
|00000490| 9b b9 bb bb bb 9b 99 bb | bb bb bb bb bb bb bb bb |........|........|
|000004a0| 00 00 00 bb 99 99 b9 bb | bb 99 9b b9 bb bb bb bb |........|........|
|000004b0| bb bb bb bb 00 00 00 bb | 9b b9 bb bb bb 99 bb bb |........|........|
|000004c0| bb 9b 99 bb bb bb bb bb | 00 00 00 bb 9b b9 bb bb |........|........|
|000004d0| 9b 99 99 bb bb 99 9b b9 | bb bb bb bb 00 00 00 bb |........|........|
|000004e0| 99 99 99 bb bb 99 bb bb | bb 99 bb bb bb 9b 99 bb |........|........|
|000004f0| 00 00 00 bb bb bb bb bb | bb 99 bb bb 9b 99 99 bb |........|........|
|00000500| bb 99 9b b9 00 00 00 bb | bb bb bb bb 9b 99 99 b9 |........|........|
|00000510| bb 99 bb bb bb 99 bb bb | 00 00 00 bb bb bb bb bb |........|........|
|00000520| bb bb bb bb bb 99 bb bb | 9b 99 99 bb 00 00 00 bb |........|........|
|00000530| bb bb bb bb bb bb bb bb | 9b 99 99 b9 bb 99 bb bb |........|........|
|00000540| 00 00 00 bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|00000550| bb 99 bb bb 00 00 00 bb | bb bb bb bb bb bb bb bb |........|........|
|00000560| bb bb bb bb 9b 99 99 b9 | 00 00 00 bb bb bb bb bb |........|........|
|00000570| bb bb bb bb bb bb bb bb | bb bb bb bb 00 00 00 bb |........|........|
|00000580| bb bb bb bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|00000590| 00 00 00 bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|000005a0| bb bb bb bb 00 00 00 ff | ff ff ff ff ff ff ff ff |........|........|
|000005b0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000005c0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000005d0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000005e0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000005f0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000600| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000610| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000620| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000630| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000640| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000650| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000660| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000670| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000680| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000690| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000006a0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000006b0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000006c0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000006d0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000006e0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000006f0| ff ff ff ff ff ff ff ff | ff ff ff d4 02 00 00 73 |........|.......s|
|00000700| 70 21 63 6f 6d 70 69 6e | 74 00 00 04 00 00 00 10 |p!compin|t.......|
|00000710| 00 00 00 00 00 00 00 07 | 00 00 00 2c 00 00 00 80 |........|...,....|
|00000720| 01 00 00 0c 00 00 00 bb | bb bb bb bb bb bb bb bb |........|........|
|00000730| bb bb bb bb bb bb bb bb | 00 00 00 bb bb 99 b9 bb |........|........|
|00000740| bb bb bb bb bb bb bb bb | bb bb bb bb 00 00 00 bb |........|........|
|00000750| 9b b9 99 bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|00000760| 00 00 00 bb 9b b9 bb bb | bb 9b 99 bb bb bb bb bb |........|........|
|00000770| bb bb bb bb 00 00 00 bb | 99 99 b9 bb bb 99 9b b9 |........|........|
|00000780| bb bb bb bb bb bb bb bb | 00 00 00 bb 9b b9 bb bb |........|........|
|00000790| bb 99 bb bb bb 9b 99 bb | bb bb bb bb 00 00 00 bb |........|........|
|000007a0| 9b b9 bb bb 9b 99 99 bb | bb 99 9b b9 bb bb bb bb |........|........|
|000007b0| 00 00 00 bb 99 99 99 bb | bb 99 bb bb bb 99 bb bb |........|........|
|000007c0| bb 9b 99 bb 00 00 00 bb | bb bb bb bb bb 99 bb bb |........|........|
|000007d0| 9b 99 99 bb bb 99 9b b9 | 00 00 00 bb bb bb bb bb |........|........|
|000007e0| 9b 99 99 b9 bb 99 bb bb | bb 99 bb bb 00 00 00 bb |........|........|
|000007f0| bb bb bb bb bb bb bb bb | bb 99 bb bb 9b 99 99 bb |........|........|
|00000800| 00 00 00 bb bb bb bb bb | bb bb bb bb 9b 99 99 b9 |........|........|
|00000810| bb 99 bb bb 00 00 00 bb | bb bb bb bb bb bb bb bb |........|........|
|00000820| bb bb bb bb bb 99 bb bb | 00 00 00 bb bb bb bb bb |........|........|
|00000830| bb bb bb bb bb bb bb bb | 9b 99 99 b9 00 00 00 bb |........|........|
|00000840| bb bb bb bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|00000850| 00 00 00 bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|00000860| bb bb bb bb 00 00 00 bb | bb bb bb bb bb bb bb bb |........|........|
|00000870| bb bb bb bb bb bb bb bb | 00 00 00 ff ff ff ff ff |........|........|
|00000880| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000890| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000008a0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000008b0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000008c0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000008d0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000008e0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000008f0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000900| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000910| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000920| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000930| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000940| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000950| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000960| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000970| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000980| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000990| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000009a0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000009b0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000009c0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff 46 |........|.......F|
|000009d0| 69 6c 65 44 61 74 61 82 | 43 6f 6d 70 6e 64 31 00 |ileData.|Compnd1.|
|000009e0| 00 00 00 bc 17 00 00 43 | fb ff ff 78 dd 97 1c 03 |.......C|...x....|
|000009f0| 00 73 c7 0d 00 0a 1e 20 | f4 20 3e 20 3c 57 69 6d |.s..... |. > <Wim|
|00000a00| 70 53 79 73 24 44 69 72 | 3e 2e 43 6f 6d 70 6e 64 |pSys$Dir|>.Compnd|
|00000a10| 31 0d 00 14 22 20 f4 20 | 43 6f 70 79 72 69 67 68 |1..." . |Copyrigh|
|00000a20| 74 20 45 2e 46 2e 4c 6f | 72 64 20 31 30 2f 31 31 |t E.F.Lo|rd 10/11|
|00000a30| 2f 38 35 0d 00 1e 16 20 | f4 20 52 65 76 69 73 65 |/85.... |. Revise|
|00000a40| 64 20 31 30 2f 35 2f 39 | 31 0d 00 28 23 20 f4 20 |d 10/5/9|1..(# . |
|00000a50| 43 6f 6d 70 6f 75 6e 64 | 20 49 6e 74 65 72 65 73 |Compound| Interes|
|00000a60| 74 20 43 61 6c 63 75 6c | 61 74 6f 72 0d 00 32 09 |t Calcul|ator..2.|
|00000a70| 20 eb 20 31 31 0d 00 3c | 0f 20 ee 20 85 20 e5 20 | . 11..<|. . . . |
|00000a80| 8d 74 5a 41 0d 00 46 17 | 20 66 6c 74 6e 3d 30 3a |.tZA..F.| fltn=0:|
|00000a90| 6c 6d 70 3d 30 3a 72 65 | 67 3d 30 0d 00 50 61 20 |lmp=0:re|g=0..Pa |
|00000aa0| 6c 75 6d 70 73 75 6d 24 | 3d 22 30 22 3a 79 65 61 |lumpsum$|="0":yea|
|00000ab0| 72 24 3d 22 30 22 3a 66 | 75 74 76 61 6c 24 3d 22 |r$="0":f|utval$="|
|00000ac0| 30 22 3a 52 24 3d 22 30 | 22 3a 6e 24 3d 22 30 22 |0":R$="0|":n$="0"|
|00000ad0| 3a 66 6c 74 6e 24 3d 22 | 30 22 3a 72 65 67 6c 61 |:fltn$="|0":regla|
|00000ae0| 72 24 3d 22 30 22 3a 6e | 70 61 24 3d 22 30 22 3a |r$="0":n|pa$="0":|
|00000af0| 70 65 72 61 6c 6c 77 24 | 3d 22 30 22 0d 00 5a 0e |perallw$|="0"..Z.|
|00000b00| 20 40 25 3d 26 32 30 32 | 30 38 0d 00 64 06 20 f5 | @%=&202|08..d. .|
|00000b10| 0d 00 6e 06 20 db 0d 00 | 78 0b 20 f2 74 69 74 6c |..n. ...|x. .titl|
|00000b20| 65 0d 00 82 21 20 f1 8a | 30 2c 35 29 22 4c 75 6d |e...! ..|0,5)"Lum|
|00000b30| 70 73 75 6d 20 63 61 6c | 63 75 6c 61 74 69 6f 6e |psum cal|culation|
|00000b40| 73 22 0d 00 8c 3b 20 f1 | 8a 30 2c 37 29 22 20 20 |s"...; .|.0,7)"  |
|00000b50| 30 2e 20 43 61 6c 63 75 | 6c 61 74 65 20 4c 75 6d |0. Calcu|late Lum|
|00000b60| 70 73 75 6d 20 66 72 6f | 6d 20 70 65 72 73 6f 6e |psum fro|m person|
|00000b70| 61 6c 20 61 6c 6c 6f 77 | 61 6e 63 65 22 0d 00 96 |al allow|ance"...|
|00000b80| 2d 20 f1 8a 30 2c 38 29 | 22 20 20 31 2e 20 43 61 |- ..0,8)|"  1. Ca|
|00000b90| 6c 63 75 6c 61 74 65 20 | 65 6e 64 20 6f 66 20 74 |lculate |end of t|
|00000ba0| 65 72 6d 20 76 61 6c 75 | 65 22 0d 00 a0 2b 20 f1 |erm valu|e"...+ .|
|00000bb0| 8a 30 2c 39 29 22 20 20 | 32 2e 20 43 61 6c 63 75 |.0,9)"  |2. Calcu|
|00000bc0| 6c 61 74 65 20 49 6e 74 | 65 72 65 73 74 20 72 61 |late Int|erest ra|
|00000bd0| 74 65 20 20 22 0d 00 aa | 2b 20 f1 8a 30 2c 31 30 |te  "...|+ ..0,10|
|00000be0| 29 22 20 20 33 2e 20 43 | 61 6c 63 75 6c 61 74 65 |)"  3. C|alculate|
|00000bf0| 20 73 74 61 72 74 69 6e | 67 20 76 61 6c 75 65 22 | startin|g value"|
|00000c00| 0d 00 b4 2a 20 f1 8a 30 | 2c 31 31 29 22 20 20 34 |...* ..0|,11)"  4|
|00000c10| 2e 20 43 61 6c 63 75 6c | 61 74 65 20 74 65 72 6d |. Calcul|ate term|
|00000c20| 20 69 6e 20 79 65 61 72 | 73 22 0d 00 be 29 20 f1 | in year|s"...) .|
|00000c30| 8a 30 2c 31 33 29 22 52 | 65 67 75 6c 61 72 20 53 |.0,13)"R|egular S|
|00000c40| 61 76 69 6e 67 20 63 61 | 6c 63 75 6c 61 74 69 6f |aving ca|lculatio|
|00000c50| 6e 73 22 0d 00 c8 2e 20 | f1 8a 30 2c 31 35 29 22 |ns".... |..0,15)"|
|00000c60| 20 20 35 2e 20 43 61 6c | 63 75 6c 61 74 65 20 65 |  5. Cal|culate e|
|00000c70| 6e 64 20 6f 66 20 74 65 | 72 6d 20 76 61 6c 75 65 |nd of te|rm value|
|00000c80| 22 0d 00 d2 2c 20 f1 8a | 30 2c 31 36 29 22 20 20 |"..., ..|0,16)"  |
|00000c90| 36 2e 20 43 61 6c 63 75 | 6c 61 74 65 20 49 6e 74 |6. Calcu|late Int|
|00000ca0| 65 72 65 73 74 20 72 61 | 74 65 20 20 22 0d 00 dc |erest ra|te  "...|
|00000cb0| 2b 20 f1 8a 30 2c 31 37 | 29 22 20 20 37 2e 20 43 |+ ..0,17|)"  7. C|
|00000cc0| 61 6c 63 75 6c 61 74 65 | 20 73 74 61 72 74 69 6e |alculate| startin|
|00000cd0| 67 20 76 61 6c 75 65 22 | 0d 00 e6 2a 20 f1 8a 30 |g value"|...* ..0|
|00000ce0| 2c 31 38 29 22 20 20 38 | 2e 20 53 65 74 20 76 61 |,18)"  8|. Set va|
|00000cf0| 6c 75 65 20 6f 66 20 69 | 6e 66 6c 61 74 69 6f 6e |lue of i|nflation|
|00000d00| 20 22 0d 00 f0 38 20 f1 | 8a 30 2c 31 39 29 22 20 | "...8 .|.0,19)" |
|00000d10| 20 39 2e 20 43 61 6c 63 | 75 6c 61 74 65 20 43 6f | 9. Calc|ulate Co|
|00000d20| 6d 70 6f 75 6e 64 20 41 | 6e 6e 75 61 6c 20 52 61 |mpound A|nnual Ra|
|00000d30| 74 65 20 28 43 41 52 29 | 20 22 0d 00 fa 1f 20 f1 |te (CAR)| ".... .|
|00000d40| 8a 30 2c 32 30 29 22 20 | 20 45 2e 20 45 6e 64 20 |.0,20)" | E. End |
|00000d50| 70 72 6f 67 72 61 6d 20 | 22 0d 01 04 34 20 f1 8a |program |"...4 ..|
|00000d60| 30 2c 32 32 29 22 43 75 | 72 72 65 6e 74 20 76 61 |0,22)"Cu|rrent va|
|00000d70| 6c 75 65 20 6f 66 20 69 | 6e 66 6c 61 74 69 6f 6e |lue of i|nflation|
|00000d80| 20 22 3b 66 6c 74 6e 24 | 3b 22 20 25 22 0d 01 0e | ";fltn$|;" %"...|
|00000d90| 23 20 f1 8a 30 2c 32 34 | 29 22 45 6e 74 65 72 20 |# ..0,24|)"Enter |
|00000da0| 63 68 6f 69 63 65 20 22 | 3b 3a 63 68 63 24 3d be |choice "|;:chc$=.|
|00000db0| 0d 01 18 06 20 db 0d 01 | 22 22 20 e7 20 63 68 63 |.... ...|"" . chc|
|00000dc0| 24 3d 22 30 22 20 6c 6d | 70 3d 31 3a f2 6c 75 6d |$="0" lm|p=1:.lum|
|00000dd0| 70 3a f2 70 72 69 6e 74 | 0d 01 2c 27 20 e7 20 63 |p:.print|..,' . c|
|00000de0| 68 63 24 3d 22 31 22 20 | 6c 6d 70 3d 31 3a f2 66 |hc$="1" |lmp=1:.f|
|00000df0| 75 74 75 72 65 76 61 6c | 3a f2 70 72 69 6e 74 0d |utureval|:.print.|
|00000e00| 01 36 26 20 e7 20 63 68 | 63 24 3d 22 32 22 20 6c |.6& . ch|c$="2" l|
|00000e10| 6d 70 3d 31 3a f2 69 6e | 74 65 72 65 73 74 3a f2 |mp=1:.in|terest:.|
|00000e20| 70 72 69 6e 74 0d 01 40 | 26 20 e7 20 63 68 63 24 |print..@|& . chc$|
|00000e30| 3d 22 33 22 20 6c 6d 70 | 3d 31 3a f2 73 74 61 72 |="3" lmp|=1:.star|
|00000e40| 74 76 61 6c 3a f2 70 72 | 69 6e 74 0d 01 4a 26 20 |tval:.pr|int..J& |
|00000e50| e7 20 63 68 63 24 3d 22 | 34 22 20 6c 6d 70 3d 31 |. chc$="|4" lmp=1|
|00000e60| 3a f2 66 69 6e 64 74 65 | 72 6d 3a f2 70 72 69 6e |:.findte|rm:.prin|
|00000e70| 74 0d 01 54 27 20 e7 20 | 63 68 63 24 3d 22 35 22 |t..T' . |chc$="5"|
|00000e80| 20 72 65 67 3d 31 3a f2 | 72 65 67 65 6e 64 76 61 | reg=1:.|regendva|
|00000e90| 6c 3a f2 70 72 69 6e 74 | 0d 01 5e 29 20 e7 20 63 |l:.print|..^) . c|
|00000ea0| 68 63 24 3d 22 36 22 20 | 72 65 67 3d 31 3a f2 72 |hc$="6" |reg=1:.r|
|00000eb0| 65 67 69 6e 74 65 72 65 | 73 74 3a f2 70 72 69 6e |egintere|st:.prin|
|00000ec0| 74 0d 01 68 28 20 e7 20 | 63 68 63 24 3d 22 37 22 |t..h( . |chc$="7"|
|00000ed0| 20 72 65 67 3d 31 3a f2 | 72 65 67 73 74 61 72 74 | reg=1:.|regstart|
|00000ee0| 76 6c 3a f2 70 72 69 6e | 74 0d 01 72 1a 20 e7 20 |vl:.prin|t..r. . |
|00000ef0| 63 68 63 24 3d 22 38 22 | 20 f2 69 6e 66 6c 61 74 |chc$="8"| .inflat|
|00000f00| 69 6f 6e 0d 01 7c 1a 20 | e7 20 63 68 63 24 3d 22 |ion..|. |. chc$="|
|00000f10| 39 22 20 6c 6d 70 3d 31 | 3a f2 63 61 72 0d 01 86 |9" lmp=1|:.car...|
|00000f20| 1a 20 fd 20 63 68 63 24 | 3d 22 45 22 20 84 20 63 |. . chc$|="E" . c|
|00000f30| 68 63 24 3d 22 65 22 0d | 01 90 11 20 db 3a eb 37 |hc$="e".|... .:.7|
|00000f40| 3a 40 25 3d 31 30 3a e0 | 0d 01 9a 1a 20 e7 20 9f |:@%=10:.|.... . .|
|00000f50| 3c 3e 31 37 20 8c 20 8d | 74 64 41 20 8b 20 8d 44 |<>17 . .|tdA . .D|
|00000f60| 64 40 0d 01 a4 22 20 ee | 20 85 20 87 3a f6 3a f1 |d@..." .| . .:.:.|
|00000f70| 22 20 40 20 6c 69 6e 65 | 20 22 3b 9e 3a 40 25 3d |" @ line| ";.:@%=|
|00000f80| 31 30 3a e0 0d 01 ae 05 | 3a 0d 01 b8 0b dd 20 f2 |10:.....|:..... .|
|00000f90| 6c 75 6d 70 0d 01 c2 0f | 20 f2 65 6e 74 65 72 74 |lump....| .entert|
|00000fa0| 65 72 6d 0d 01 cc 0f 20 | f2 65 6e 74 65 72 72 61 |erm.... |.enterra|
|00000fb0| 74 65 0d 01 d6 0f 20 f2 | 65 6e 74 65 72 63 6f 6d |te.... .|entercom|
|00000fc0| 70 0d 01 e0 84 20 74 31 | 3d 31 34 3a 74 32 3d 35 |p.... t1|=14:t2=5|
|00000fd0| 36 3a 71 24 3d 22 45 6e | 74 65 72 20 70 65 72 73 |6:q$="En|ter pers|
|00000fe0| 6f 6e 61 6c 20 74 61 78 | 20 61 6c 6c 6f 77 61 6e |onal tax| allowan|
|00000ff0| 63 65 20 6f 72 20 69 6e | 74 65 72 65 73 74 20 74 |ce or in|terest t|
|00001000| 6f 20 62 65 20 65 61 72 | 6e 65 64 20 a3 20 22 3a |o be ear|ned . ":|
|00001010| 70 65 72 61 6c 6c 77 3d | a4 71 75 65 73 74 28 74 |perallw=|.quest(t|
|00001020| 31 2c 74 32 2c 71 24 2c | 70 65 72 61 6c 6c 77 24 |1,t2,q$,|perallw$|
|00001030| 29 3a 70 65 72 61 6c 6c | 77 24 3d c3 28 70 65 72 |):perall|w$=.(per|
|00001040| 61 6c 6c 77 29 0d 01 ea | 33 20 6c 75 6d 70 73 75 |allw)...|3 lumpsu|
|00001050| 6d 3d 70 65 72 61 6c 6c | 77 2f 28 28 28 31 2b 28 |m=perall|w/(((1+(|
|00001060| 52 2f 28 6e 2a 31 30 30 | 29 29 29 5e 28 79 65 61 |R/(n*100|)))^(yea|
|00001070| 72 2a 6e 29 29 2d 31 29 | 0d 01 f4 1b 20 66 75 74 |r*n))-1)|.... fut|
|00001080| 76 61 6c 3d 6c 75 6d 70 | 73 75 6d 2b 70 65 72 61 |val=lump|sum+pera|
|00001090| 6c 6c 77 0d 01 fe 29 20 | 64 65 66 6c 61 74 65 3d |llw...) |deflate=|
|000010a0| 28 28 31 2d 28 66 6c 74 | 6e 2f 31 30 30 29 29 5e |((1-(flt|n/100))^|
|000010b0| 79 65 61 72 29 2a 66 75 | 74 76 61 6c 0d 02 08 28 |year)*fu|tval...(|
|000010c0| 20 72 65 61 6c 6f 67 61 | 72 6d 3d 28 ab 28 64 65 | realoga|rm=(.(de|
|000010d0| 66 6c 61 74 65 2f 6c 75 | 6d 70 73 75 6d 29 29 2f |flate/lu|mpsum))/|
|000010e0| 79 65 61 72 0d 02 12 1f | 20 72 65 61 6c 52 3d 31 |year....| realR=1|
|000010f0| 30 30 2a 28 31 30 5e 72 | 65 61 6c 6f 67 61 72 6d |00*(10^r|ealogarm|
|00001100| 2d 31 29 0d 02 1c 05 e1 | 0d 02 26 05 3a 0d 02 30 |-1).....|..&.:..0|
|00001110| 10 dd 20 f2 66 75 74 75 | 72 65 76 61 6c 0d 02 3a |.. .futu|reval..:|
|00001120| 0f 20 f2 65 6e 74 65 72 | 6c 75 6d 70 0d 02 44 0f |. .enter|lump..D.|
|00001130| 20 f2 65 6e 74 65 72 74 | 65 72 6d 0d 02 4e 0f 20 | .entert|erm..N. |
|00001140| f2 65 6e 74 65 72 72 61 | 74 65 0d 02 58 0f 20 f2 |.enterra|te..X. .|
|00001150| 65 6e 74 65 72 63 6f 6d | 70 0d 02 62 2e 20 66 75 |entercom|p..b. fu|
|00001160| 74 76 61 6c 3d 28 28 31 | 2b 28 52 2f 28 6e 2a 31 |tval=((1|+(R/(n*1|
|00001170| 30 30 29 29 29 5e 28 79 | 65 61 72 2a 6e 29 29 2a |00)))^(y|ear*n))*|
|00001180| 6c 75 6d 70 73 75 6d 0d | 02 6c 29 20 64 65 66 6c |lumpsum.|.l) defl|
|00001190| 61 74 65 3d 28 28 31 2d | 28 66 6c 74 6e 2f 31 30 |ate=((1-|(fltn/10|
|000011a0| 30 29 29 5e 79 65 61 72 | 29 2a 66 75 74 76 61 6c |0))^year|)*futval|
|000011b0| 0d 02 76 28 20 72 65 61 | 6c 6f 67 61 72 6d 3d 28 |..v( rea|logarm=(|
|000011c0| ab 28 64 65 66 6c 61 74 | 65 2f 6c 75 6d 70 73 75 |.(deflat|e/lumpsu|
|000011d0| 6d 29 29 2f 79 65 61 72 | 0d 02 80 1f 20 72 65 61 |m))/year|.... rea|
|000011e0| 6c 52 3d 31 30 30 2a 28 | 31 30 5e 72 65 61 6c 6f |lR=100*(|10^realo|
|000011f0| 67 61 72 6d 2d 31 29 0d | 02 8a 05 e1 0d 02 94 05 |garm-1).|........|
|00001200| 3a 0d 02 9e 0f dd 20 f2 | 69 6e 74 65 72 65 73 74 |:..... .|interest|
|00001210| 0d 02 a8 0f 20 f2 65 6e | 74 65 72 6c 75 6d 70 0d |.... .en|terlump.|
|00001220| 02 b2 0f 20 f2 65 6e 74 | 65 72 74 65 72 6d 0d 02 |... .ent|erterm..|
|00001230| bc 15 20 f2 65 6e 74 65 | 72 66 75 74 76 61 6c 28 |.. .ente|rfutval(|
|00001240| 31 30 29 0d 02 c6 24 20 | 6c 6f 67 61 72 6d 3d 28 |10)...$ |logarm=(|
|00001250| ab 28 66 75 74 76 61 6c | 2f 6c 75 6d 70 73 75 6d |.(futval|/lumpsum|
|00001260| 29 29 2f 79 65 61 72 0d | 02 d0 18 20 52 3d 31 30 |))/year.|... R=10|
|00001270| 30 2a 28 31 30 5e 6c 6f | 67 61 72 6d 2d 31 29 0d |0*(10^lo|garm-1).|
|00001280| 02 da 29 20 64 65 66 6c | 61 74 65 3d 28 28 31 2d |..) defl|ate=((1-|
|00001290| 28 66 6c 74 6e 2f 31 30 | 30 29 29 5e 79 65 61 72 |(fltn/10|0))^year|
|000012a0| 29 2a 66 75 74 76 61 6c | 0d 02 e4 28 20 72 65 61 |)*futval|...( rea|
|000012b0| 6c 6f 67 61 72 6d 3d 28 | ab 28 64 65 66 6c 61 74 |logarm=(|.(deflat|
|000012c0| 65 2f 6c 75 6d 70 73 75 | 6d 29 29 2f 79 65 61 72 |e/lumpsu|m))/year|
|000012d0| 0d 02 ee 1f 20 72 65 61 | 6c 52 3d 31 30 30 2a 28 |.... rea|lR=100*(|
|000012e0| 31 30 5e 72 65 61 6c 6f | 67 61 72 6d 2d 31 29 0d |10^realo|garm-1).|
|000012f0| 02 f8 05 e1 0d 03 02 05 | 3a 0d 03 0c 0f dd 20 f2 |........|:..... .|
|00001300| 73 74 61 72 74 76 61 6c | 0d 03 16 0f 20 f2 65 6e |startval|.... .en|
|00001310| 74 65 72 74 65 72 6d 0d | 03 20 0f 20 f2 65 6e 74 |terterm.|. . .ent|
|00001320| 65 72 72 61 74 65 0d 03 | 2a 0f 20 f2 65 6e 74 65 |errate..|*. .ente|
|00001330| 72 63 6f 6d 70 0d 03 34 | 15 20 f2 65 6e 74 65 72 |rcomp..4|. .enter|
|00001340| 66 75 74 76 61 6c 28 31 | 35 29 0d 03 3e 2e 20 6c |futval(1|5)..>. l|
|00001350| 75 6d 70 73 75 6d 3d 66 | 75 74 76 61 6c 2f 28 28 |umpsum=f|utval/((|
|00001360| 31 2b 28 52 2f 28 6e 2a | 31 30 30 29 29 29 5e 28 |1+(R/(n*|100)))^(|
|00001370| 79 65 61 72 2a 6e 29 29 | 0d 03 48 29 20 64 65 66 |year*n))|..H) def|
|00001380| 6c 61 74 65 3d 28 28 31 | 2d 28 66 6c 74 6e 2f 31 |late=((1|-(fltn/1|
|00001390| 30 30 29 29 5e 79 65 61 | 72 29 2a 66 75 74 76 61 |00))^yea|r)*futva|
|000013a0| 6c 0d 03 52 28 20 72 65 | 61 6c 6f 67 61 72 6d 3d |l..R( re|alogarm=|
|000013b0| 28 ab 28 64 65 66 6c 61 | 74 65 2f 6c 75 6d 70 73 |(.(defla|te/lumps|
|000013c0| 75 6d 29 29 2f 79 65 61 | 72 0d 03 5c 1f 20 72 65 |um))/yea|r..\. re|
|000013d0| 61 6c 52 3d 31 30 30 2a | 28 31 30 5e 72 65 61 6c |alR=100*|(10^real|
|000013e0| 6f 67 61 72 6d 2d 31 29 | 0d 03 66 05 e1 0d 03 70 |ogarm-1)|..f....p|
|000013f0| 05 3a 0d 03 7a 0f dd 20 | f2 66 69 6e 64 74 65 72 |.:..z.. |.findter|
|00001400| 6d 0d 03 84 0f 20 f2 65 | 6e 74 65 72 6c 75 6d 70 |m.... .e|nterlump|
|00001410| 0d 03 8e 0f 20 f2 65 6e | 74 65 72 72 61 74 65 0d |.... .en|terrate.|
|00001420| 03 98 0f 20 f2 65 6e 74 | 65 72 63 6f 6d 70 0d 03 |... .ent|ercomp..|
|00001430| a2 15 20 f2 65 6e 74 65 | 72 66 75 74 76 61 6c 28 |.. .ente|rfutval(|
|00001440| 31 35 29 0d 03 ac 31 20 | 79 78 6e 3d 28 ab 28 66 |15)...1 |yxn=(.(f|
|00001450| 75 74 76 61 6c 2f 6c 75 | 6d 70 73 75 6d 29 29 2f |utval/lu|mpsum))/|
|00001460| 28 ab 28 28 31 2b 28 52 | 2f 28 6e 2a 31 30 30 29 |(.((1+(R|/(n*100)|
|00001470| 29 29 29 29 0d 03 b6 0f | 20 79 65 61 72 3d 79 78 |))))....| year=yx|
|00001480| 6e 2f 6e 0d 03 c0 29 20 | 64 65 66 6c 61 74 65 3d |n/n...) |deflate=|
|00001490| 28 28 31 2d 28 66 6c 74 | 6e 2f 31 30 30 29 29 5e |((1-(flt|n/100))^|
|000014a0| 79 65 61 72 29 2a 66 75 | 74 76 61 6c 0d 03 ca 28 |year)*fu|tval...(|
|000014b0| 20 72 65 61 6c 6f 67 61 | 72 6d 3d 28 ab 28 64 65 | realoga|rm=(.(de|
|000014c0| 66 6c 61 74 65 2f 6c 75 | 6d 70 73 75 6d 29 29 2f |flate/lu|mpsum))/|
|000014d0| 79 65 61 72 0d 03 d4 1f | 20 72 65 61 6c 52 3d 31 |year....| realR=1|
|000014e0| 30 30 2a 28 31 30 5e 72 | 65 61 6c 6f 67 61 72 6d |00*(10^r|ealogarm|
|000014f0| 2d 31 29 0d 03 de 05 e1 | 0d 03 e8 05 3a 0d 03 f2 |-1).....|....:...|
|00001500| 0c dd 20 f2 70 72 69 6e | 74 0d 03 fc 06 20 db 0d |.. .prin|t.... ..|
|00001510| 04 06 0b 20 f1 8a 30 2c | 34 29 0d 04 10 2d 20 f1 |... ..0,|4)...- .|
|00001520| 22 52 61 74 65 20 6f 66 | 20 69 6e 66 6c 61 74 69 |"Rate of| inflati|
|00001530| 6f 6e 20 20 20 20 20 20 | 20 3d 20 20 20 22 66 6c |on      | =   "fl|
|00001540| 74 6e 3b 22 20 25 22 0d | 04 1a 2a 20 f1 22 52 61 |tn;" %".|..* ."Ra|
|00001550| 74 65 20 6f 66 20 69 6e | 74 65 72 65 73 74 20 20 |te of in|terest  |
|00001560| 20 20 20 20 20 20 3d 20 | 20 20 22 52 3b 22 20 25 |      = |  "R;" %|
|00001570| 22 0d 04 24 31 20 f1 22 | 54 65 72 6d 20 6f 66 20 |"..$1 ."|Term of |
|00001580| 69 6e 76 65 73 74 6d 65 | 6e 74 20 20 20 20 20 20 |investme|nt      |
|00001590| 3d 20 20 20 22 79 65 61 | 72 3b 22 20 59 65 61 72 |=   "yea|r;" Year|
|000015a0| 73 22 0d 04 2e 18 20 e7 | 20 6c 6d 70 3d 31 20 8c |s".... .| lmp=1 .|
|000015b0| 20 f2 6c 6d 70 70 72 69 | 6e 74 0d 04 38 18 20 e7 | .lmppri|nt..8. .|
|000015c0| 20 72 65 67 3d 31 20 8c | 20 f2 72 65 67 70 72 69 | reg=1 .| .regpri|
|000015d0| 6e 74 0d 04 42 2b 20 f1 | 27 22 45 6e 64 20 6f 66 |nt..B+ .|'"End of|
|000015e0| 20 74 65 72 6d 20 76 61 | 6c 75 65 20 20 20 20 20 | term va|lue     |
|000015f0| 20 20 3d 20 a3 20 22 66 | 75 74 76 61 6c 0d 04 4c |  = . "f|utval..L|
|00001600| 17 20 f1 3a e7 20 72 65 | 67 3d 31 20 8c 20 e5 20 |. .:. re|g=1 . . |
|00001610| 8d 44 6a 44 0d 04 56 2c | 20 f1 27 22 44 65 66 6c |.DjD..V,| .'"Defl|
|00001620| 61 74 65 64 20 66 75 74 | 75 72 65 20 76 61 6c 75 |ated fut|ure valu|
|00001630| 65 20 20 20 3d 20 a3 20 | 22 64 65 66 6c 61 74 65 |e   = . |"deflate|
|00001640| 0d 04 60 2e 20 f1 22 52 | 65 61 6c 20 72 61 74 65 |..`. ."R|eal rate|
|00001650| 20 6f 66 20 69 6e 74 65 | 72 65 73 74 20 20 20 3d | of inte|rest   =|
|00001660| 20 20 20 22 72 65 61 6c | 52 3b 22 20 25 22 0d 04 |   "real|R;" %"..|
|00001670| 6a 2c 20 f1 8a 30 2c 32 | 30 29 22 50 52 45 53 53 |j, ..0,2|0)"PRESS|
|00001680| 20 61 6e 79 20 6b 65 79 | 20 74 6f 20 63 6f 6e 74 | any key| to cont|
|00001690| 69 6e 75 65 22 3b 3a 47 | 3d a5 0d 04 74 05 e1 0d |inue";:G|=...t...|
|000016a0| 04 7e 05 3a 0d 04 88 10 | dd 20 f2 69 6e 66 6c 61 |.~.:....|. .infla|
|000016b0| 74 69 6f 6e 0d 04 92 32 | 20 f1 8a 30 2c 31 38 29 |tion...2| ..0,18)|
|000016c0| 22 4e 6f 74 20 69 6d 70 | 6c 65 6d 65 6e 74 65 64 |"Not imp|lemented|
|000016d0| 20 77 69 74 68 20 72 65 | 67 75 6c 61 72 20 73 61 | with re|gular sa|
|000016e0| 76 69 6e 67 73 22 0d 04 | 9c 6a 20 74 31 3d 31 32 |vings"..|.j t1=12|
|000016f0| 3a 74 32 3d 34 33 3a 71 | 24 3d 22 57 68 61 74 20 |:t2=43:q|$="What |
|00001700| 20 69 73 20 20 74 68 65 | 20 20 6e 65 77 20 20 72 | is  the|  new  r|
|00001710| 61 74 65 20 6f 66 20 69 | 6e 66 6c 61 74 69 6f 6e |ate of i|nflation|
|00001720| 20 28 25 29 20 22 3a 66 | 6c 74 6e 3d a4 71 75 65 | (%) ":f|ltn=.que|
|00001730| 73 74 28 74 31 2c 74 32 | 2c 71 24 2c 66 6c 74 6e |st(t1,t2|,q$,fltn|
|00001740| 24 29 3a 66 6c 74 6e 24 | 3d c3 28 66 6c 74 6e 29 |$):fltn$|=.(fltn)|
|00001750| 0d 04 a6 05 e1 0d 04 b0 | 05 3a 0d 04 ba 0a dd 20 |........|.:..... |
|00001760| f2 63 61 72 0d 04 c4 0f | 20 f2 65 6e 74 65 72 72 |.car....| .enterr|
|00001770| 61 74 65 0d 04 ce 0f 20 | f2 65 6e 74 65 72 63 6f |ate.... |.enterco|
|00001780| 6d 70 0d 04 d8 1d 20 65 | 66 66 65 63 52 3d 28 31 |mp.... e|ffecR=(1|
|00001790| 2b 28 52 2f 28 31 30 30 | 2a 6e 29 29 29 5e 6e 0d |+(R/(100|*n)))^n.|
|000017a0| 04 e2 1e 20 65 66 66 65 | 63 74 69 76 65 52 3d 28 |... effe|ctiveR=(|
|000017b0| 65 66 66 65 63 52 2d 31 | 29 2a 31 30 30 0d 04 ec |effecR-1|)*100...|
|000017c0| 3e 20 f1 27 27 22 45 66 | 66 65 63 74 69 76 65 20 |> .''"Ef|fective |
|000017d0| 20 72 61 74 65 20 6f 66 | 20 20 69 6e 74 65 72 65 | rate of|  intere|
|000017e0| 73 74 20 20 20 20 20 20 | 3d 20 22 3b 65 66 66 65 |st      |= ";effe|
|000017f0| 63 74 69 76 65 52 3b 22 | 20 25 22 0d 04 f6 2c 20 |ctiveR;"| %"..., |
|00001800| f1 8a 30 2c 32 30 29 22 | 50 52 45 53 53 20 61 6e |..0,20)"|PRESS an|
|00001810| 79 20 6b 65 79 20 74 6f | 20 63 6f 6e 74 69 6e 75 |y key to| continu|
|00001820| 65 22 3b 3a 47 3d a5 0d | 05 00 05 e1 0d 05 0a 05 |e";:G=..|........|
|00001830| 3a 0d 05 14 10 dd 20 a4 | 79 65 73 6e 6f 28 61 24 |:..... .|yesno(a$|
|00001840| 29 0d 05 1e 14 20 f1 61 | 24 3b 22 20 28 59 2f 4e |).... .a|$;" (Y/N|
|00001850| 29 3f 20 22 3b 0d 05 28 | 06 20 f5 0d 05 32 16 20 |)? ";..(|. ...2. |
|00001860| 72 65 70 6c 79 24 3d bd | 28 a5 20 80 20 26 44 46 |reply$=.|(. . &DF|
|00001870| 29 0d 05 3c 1e 20 fd 20 | 72 65 70 6c 79 24 3d 22 |)..<. . |reply$="|
|00001880| 4e 22 20 84 20 72 65 70 | 6c 79 24 3d 22 59 22 0d |N" . rep|ly$="Y".|
|00001890| 05 46 11 3d 28 72 65 70 | 6c 79 24 3d 22 4e 22 29 |.F.=(rep|ly$="N")|
|000018a0| 0d 05 50 05 3a 0d 05 5a | 10 dd 20 f2 72 65 67 65 |..P.:..Z|.. .rege|
|000018b0| 6e 64 76 61 6c 0d 05 64 | 12 20 f2 65 6e 74 65 72 |ndval..d|. .enter|
|000018c0| 72 65 67 6c 75 6d 70 0d | 05 6e 0e 20 f2 65 6e 74 |reglump.|.n. .ent|
|000018d0| 65 72 6e 70 61 0d 05 78 | 0f 20 f2 65 6e 74 65 72 |ernpa..x|. .enter|
|000018e0| 74 65 72 6d 0d 05 82 0f | 20 f2 65 6e 74 65 72 72 |term....| .enterr|
|000018f0| 61 74 65 0d 05 8c 12 20 | 69 3d 52 2f 28 6e 70 61 |ate.... |i=R/(npa|
|00001900| 2a 31 30 30 29 0d 05 96 | 2d 20 66 75 74 76 61 6c |*100)...|- futval|
|00001910| 3d 28 28 28 28 31 2b 69 | 29 5e 28 79 65 61 72 2a |=((((1+i|)^(year*|
|00001920| 6e 70 61 29 29 2d 31 29 | 2f 69 29 2a 72 65 67 6c |npa))-1)|/i)*regl|
|00001930| 61 72 0d 05 a0 17 20 6c | 75 6d 70 73 75 6d 3d 72 |ar.... l|umpsum=r|
|00001940| 65 67 6c 61 72 2a 6e 70 | 61 0d 05 aa 05 e1 0d 05 |eglar*np|a.......|
|00001950| b4 05 3a 0d 05 be 12 dd | 20 f2 72 65 67 69 6e 74 |..:.....| .regint|
|00001960| 65 72 65 73 74 0d 05 c8 | 12 20 f2 65 6e 74 65 72 |erest...|. .enter|
|00001970| 72 65 67 6c 75 6d 70 0d | 05 d2 0e 20 f2 65 6e 74 |reglump.|... .ent|
|00001980| 65 72 6e 70 61 0d 05 dc | 0f 20 f2 65 6e 74 65 72 |ernpa...|. .enter|
|00001990| 74 65 72 6d 0d 05 e6 15 | 20 f2 65 6e 74 65 72 66 |term....| .enterf|
|000019a0| 75 74 76 61 6c 28 31 30 | 29 0d 05 f0 24 20 f1 8a |utval(10|)...$ ..|
|000019b0| 30 2c 32 32 29 22 43 6f | 6d 70 75 74 69 6e 67 2d |0,22)"Co|mputing-|
|000019c0| 50 6c 65 61 73 65 20 57 | 61 69 74 22 3b 0d 05 fa |Please W|ait";...|
|000019d0| 18 20 69 3d 30 3a 78 3d | 66 75 74 76 61 6c 2f 72 |. i=0:x=|futval/r|
|000019e0| 65 67 6c 61 72 0d 06 04 | 06 20 f5 0d 06 0e 0f 20 |eglar...|. ..... |
|000019f0| 20 69 3d 69 2b 30 2e 30 | 30 35 0d 06 18 1c 20 20 | i=i+0.0|05....  |
|00001a00| 52 3d 69 2a 6e 70 61 2a | 31 30 30 3a f1 8a 33 30 |R=i*npa*|100:..30|
|00001a10| 2c 32 33 29 3b 52 0d 06 | 22 20 20 20 79 3d 28 28 |,23);R..|"   y=((|
|00001a20| 28 31 2b 69 29 5e 28 79 | 65 61 72 2a 6e 70 61 29 |(1+i)^(y|ear*npa)|
|00001a30| 29 2d 31 29 2f 69 0d 06 | 2c 10 20 fd 20 79 3d 78 |)-1)/i..|,. . y=x|
|00001a40| 20 84 20 79 3e 78 0d 06 | 36 10 20 69 3d 69 2d 30 | . y>x..|6. i=i-0|
|00001a50| 2e 30 30 35 30 31 0d 06 | 40 06 20 f5 0d 06 4a 11 |.00501..|@. ...J.|
|00001a60| 20 20 69 3d 69 2b 30 2e | 30 30 30 30 35 0d 06 54 |  i=i+0.|00005..T|
|00001a70| 1c 20 20 52 3d 69 2a 6e | 70 61 2a 31 30 30 3a f1 |.  R=i*n|pa*100:.|
|00001a80| 8a 33 30 2c 32 33 29 3b | 52 0d 06 5e 20 20 20 79 |.30,23);|R..^   y|
|00001a90| 3d 28 28 28 31 2b 69 29 | 5e 28 79 65 61 72 2a 6e |=(((1+i)|^(year*n|
|00001aa0| 70 61 29 29 2d 31 29 2f | 69 0d 06 68 10 20 fd 20 |pa))-1)/|i..h. . |
|00001ab0| 79 3d 78 20 84 20 79 3e | 78 0d 06 72 23 20 52 3d |y=x . y>|x..r# R=|
|00001ac0| 69 2a 6e 70 61 2a 31 30 | 30 3a 6c 75 6d 70 73 75 |i*npa*10|0:lumpsu|
|00001ad0| 6d 3d 72 65 67 6c 61 72 | 2a 6e 70 61 0d 06 7c 05 |m=reglar|*npa..|.|
|00001ae0| e1 0d 06 86 05 3a 0d 06 | 90 11 dd 20 f2 72 65 67 |.....:..|... .reg|
|00001af0| 73 74 61 72 74 76 6c 0d | 06 9a 1d 20 66 6c 74 6e |startvl.|... fltn|
|00001b00| 3d 30 3a 64 65 66 6c 61 | 74 65 3d 30 3a 72 65 61 |=0:defla|te=0:rea|
|00001b10| 6c 52 3d 30 0d 06 a4 0e | 20 f2 65 6e 74 65 72 6e |lR=0....| .entern|
|00001b20| 70 61 0d 06 ae 0f 20 f2 | 65 6e 74 65 72 74 65 72 |pa.... .|enterter|
|00001b30| 6d 0d 06 b8 0f 20 f2 65 | 6e 74 65 72 72 61 74 65 |m.... .e|nterrate|
|00001b40| 0d 06 c2 15 20 f2 65 6e | 74 65 72 66 75 74 76 61 |.... .en|terfutva|
|00001b50| 6c 28 31 32 29 0d 06 cc | 12 20 69 3d 52 2f 28 6e |l(12)...|. i=R/(n|
|00001b60| 70 61 2a 31 30 30 29 0d | 06 d6 2d 20 72 65 67 6c |pa*100).|..- regl|
|00001b70| 61 72 3d 66 75 74 76 61 | 6c 2f 28 28 28 28 31 2b |ar=futva|l/((((1+|
|00001b80| 69 29 5e 28 79 65 61 72 | 2a 6e 70 61 29 29 2d 31 |i)^(year|*npa))-1|
|00001b90| 29 2f 69 29 0d 06 e0 05 | e1 0d 06 ea 05 3a 0d 06 |)/i)....|.....:..|
|00001ba0| f4 0f dd 20 f2 6c 6d 70 | 70 72 69 6e 74 0d 06 fe |... .lmp|print...|
|00001bb0| 2c 20 f1 27 22 4c 75 6d | 70 73 75 6d 20 69 6e 76 |, .'"Lum|psum inv|
|00001bc0| 65 73 74 6d 65 6e 74 20 | 20 20 20 20 20 3d 20 a3 |estment |     = .|
|00001bd0| 20 22 6c 75 6d 70 73 75 | 6d 0d 07 08 33 20 f1 20 | "lumpsu|m...3 . |
|00001be0| 22 54 6f 74 61 6c 20 69 | 6e 74 65 72 65 73 74 20 |"Total i|nterest |
|00001bf0| 65 61 72 6e 65 64 20 20 | 20 3d 20 a3 20 22 66 75 |earned  | = . "fu|
|00001c00| 74 76 61 6c 2d 6c 75 6d | 70 73 75 6d 0d 07 12 05 |tval-lum|psum....|
|00001c10| e1 0d 07 1c 05 3a 0d 07 | 26 0f dd 20 f2 72 65 67 |.....:..|&.. .reg|
|00001c20| 70 72 69 6e 74 0d 07 30 | 2a 20 f1 22 52 65 67 75 |print..0|* ."Regu|
|00001c30| 6c 61 72 20 61 6d 6f 75 | 6e 74 20 69 6e 76 65 73 |lar amou|nt inves|
|00001c40| 74 65 64 20 3d 20 a3 20 | 22 72 65 67 6c 61 72 0d |ted = . |"reglar.|
|00001c50| 07 3a 27 20 f1 22 4e 75 | 6d 62 65 72 20 6f 66 20 |.:' ."Nu|mber of |
|00001c60| 64 65 70 6f 73 69 74 73 | 20 70 2e 61 2e 20 3d 20 |deposits| p.a. = |
|00001c70| a3 20 22 6e 70 61 0d 07 | 44 2e 20 f1 22 41 6d 6f |. "npa..|D. ."Amo|
|00001c80| 75 6e 74 20 73 61 76 65 | 64 20 70 2e 61 2e 20 20 |unt save|d p.a.  |
|00001c90| 20 20 20 20 20 3d 20 a3 | 20 22 72 65 67 6c 61 72 |     = .| "reglar|
|00001ca0| 2a 6e 70 61 0d 07 4e 3c | 20 f1 22 54 6f 74 61 6c |*npa..N<| ."Total|
|00001cb0| 20 69 6e 74 65 72 65 73 | 74 20 65 61 72 6e 65 64 | interes|t earned|
|00001cc0| 20 20 20 3d 20 a3 20 22 | 66 75 74 76 61 6c 2d 28 |   = . "|futval-(|
|00001cd0| 72 65 67 6c 61 72 2a 6e | 70 61 2a 79 65 61 72 29 |reglar*n|pa*year)|
|00001ce0| 0d 07 58 05 e1 0d 07 62 | 05 3a 0d 07 6c 1c dd 20 |..X....b|.:..l.. |
|00001cf0| a4 71 75 65 73 74 28 79 | 31 2c 79 32 2c 51 24 2c |.quest(y|1,y2,Q$,|
|00001d00| 64 61 74 61 24 29 0d 07 | 76 09 20 ea 20 69 6e 0d |data$)..|v. . in.|
|00001d10| 07 80 06 20 f5 0d 07 8a | 15 20 20 f1 8a 30 2c 79 |... ....|.  ..0,y|
|00001d20| 31 29 51 24 3b 64 61 74 | 61 24 0d 07 94 10 20 20 |1)Q$;dat|a$....  |
|00001d30| e8 8a 79 32 2c 79 31 29 | 69 6e 0d 07 9e 1a 20 20 |..y2,y1)|in....  |
|00001d40| e7 20 69 6e 3d 30 20 8c | 20 69 6e 3d bb 28 64 61 |. in=0 .| in=.(da|
|00001d50| 74 61 24 29 0d 07 a8 0b | 20 fd 20 69 6e 3e 30 0d |ta$)....| . in>0.|
|00001d60| 07 b2 09 3d 28 69 6e 29 | 0d 07 bc 05 3a 0d 07 c6 |...=(in)|....:...|
|00001d70| 10 dd 20 f2 65 6e 74 65 | 72 74 65 72 6d 0d 07 d0 |.. .ente|rterm...|
|00001d80| 5f 20 74 31 3d 38 3a 74 | 32 3d 33 32 3a 71 24 3d |_ t1=8:t|2=32:q$=|
|00001d90| 22 45 6e 74 65 72 20 69 | 6e 76 65 73 74 6d 65 6e |"Enter i|nvestmen|
|00001da0| 74 20 74 65 72 6d 20 28 | 79 65 61 72 73 29 20 3f |t term (|years) ?|
|00001db0| 20 22 3a 79 65 61 72 3d | a4 71 75 65 73 74 28 74 | ":year=|.quest(t|
|00001dc0| 31 2c 74 32 2c 71 24 2c | 79 65 61 72 24 29 3a 79 |1,t2,q$,|year$):y|
|00001dd0| 65 61 72 24 3d c3 28 79 | 65 61 72 29 0d 07 da 05 |ear$=.(y|ear)....|
|00001de0| e1 0d 07 e4 05 3a 0d 07 | ee 10 dd 20 f2 65 6e 74 |.....:..|... .ent|
|00001df0| 65 72 72 61 74 65 0d 07 | f8 54 20 74 31 3d 31 30 |errate..|.T t1=10|
|00001e00| 3a 74 32 3d 33 32 3a 71 | 24 3d 22 57 68 61 74 20 |:t2=32:q|$="What |
|00001e10| 69 73 20 74 68 65 20 72 | 61 74 65 20 6f 66 20 69 |is the r|ate of i|
|00001e20| 6e 74 65 72 65 73 74 20 | 20 3f 20 22 3a 52 3d a4 |nterest | ? ":R=.|
|00001e30| 71 75 65 73 74 28 74 31 | 2c 74 32 2c 71 24 2c 52 |quest(t1|,t2,q$,R|
|00001e40| 24 29 3a 52 24 3d c3 28 | 52 29 0d 08 02 05 e1 0d |$):R$=.(|R)......|
|00001e50| 08 0c 05 3a 0d 08 16 10 | dd 20 f2 65 6e 74 65 72 |...:....|. .enter|
|00001e60| 63 6f 6d 70 0d 08 20 76 | 20 f5 3a 74 31 3d 31 32 |comp.. v| .:t1=12|
|00001e70| 3a 74 32 3d 35 36 3a 71 | 24 3d 22 48 6f 77 20 6f |:t2=56:q|$="How o|
|00001e80| 66 74 65 6e 20 69 73 20 | 74 68 65 20 69 6e 74 65 |ften is |the inte|
|00001e90| 72 65 73 74 20 63 6f 6d | 70 6f 75 6e 64 65 64 20 |rest com|pounded |
|00001ea0| 69 6e 20 61 20 79 65 61 | 72 20 28 31 2d 31 32 29 |in a yea|r (1-12)|
|00001eb0| 20 3f 20 22 3a 6e 3d a4 | 71 75 65 73 74 28 74 31 | ? ":n=.|quest(t1|
|00001ec0| 2c 74 32 2c 71 24 2c 6e | 24 29 3a 6e 24 3d c3 28 |,t2,q$,n|$):n$=.(|
|00001ed0| 6e 29 3a fd 20 6e 3c 3d | 31 32 0d 08 2a 05 e1 0d |n):. n<=|12..*...|
|00001ee0| 08 34 05 3a 0d 08 3e 16 | dd 20 f2 65 6e 74 65 72 |.4.:..>.|. .enter|
|00001ef0| 66 75 74 76 61 6c 28 79 | 31 29 0d 08 48 85 20 74 |futval(y|1)..H. t|
|00001f00| 31 3d 79 31 3a 74 32 3d | 36 31 3a 71 24 3d 22 57 |1=y1:t2=|61:q$="W|
|00001f10| 68 61 74 20 69 73 20 65 | 78 70 65 63 74 65 64 20 |hat is e|xpected |
|00001f20| 66 75 74 75 72 65 20 76 | 61 6c 75 65 20 6f 66 20 |future v|alue of |
|00001f30| 69 6e 76 65 73 74 6d 65 | 6e 74 20 61 74 20 65 6e |investme|nt at en|
|00001f40| 64 20 6f 66 20 74 65 72 | 6d 20 a3 20 22 3a 66 75 |d of ter|m . ":fu|
|00001f50| 74 76 61 6c 3d a4 71 75 | 65 73 74 28 74 31 2c 74 |tval=.qu|est(t1,t|
|00001f60| 32 2c 71 24 2c 66 75 74 | 76 61 6c 24 29 3a 66 75 |2,q$,fut|val$):fu|
|00001f70| 74 76 61 6c 24 3d c3 28 | 66 75 74 76 61 6c 29 0d |tval$=.(|futval).|
|00001f80| 08 52 05 e1 0d 08 5c 05 | 3a 0d 08 66 0f dd 20 f2 |.R....\.|:..f.. .|
|00001f90| 65 6e 74 65 72 6e 70 61 | 0d 08 70 5b 20 74 31 3d |enternpa|..p[ t1=|
|00001fa0| 36 3a 74 32 3d 33 32 3a | 71 24 3d 22 45 6e 74 65 |6:t2=32:|q$="Ente|
|00001fb0| 72 20 6e 75 6d 62 65 72 | 20 6f 66 20 64 65 70 6f |r number| of depo|
|00001fc0| 73 69 74 73 20 70 2e 61 | 2e 20 20 20 22 3a 6e 70 |sits p.a|.   ":np|
|00001fd0| 61 3d a4 71 75 65 73 74 | 28 74 31 2c 74 32 2c 71 |a=.quest|(t1,t2,q|
|00001fe0| 24 2c 6e 70 61 24 29 3a | 6e 70 61 24 3d c3 28 6e |$,npa$):|npa$=.(n|
|00001ff0| 70 61 29 0d 08 7a 05 e1 | 0d 08 84 05 3a 0d 08 8e |pa)..z..|....:...|
|00002000| 10 dd 20 f2 65 6e 74 65 | 72 6c 75 6d 70 0d 08 98 |.. .ente|rlump...|
|00002010| 6b 20 74 31 3d 36 3a 74 | 32 3d 33 32 3a 71 24 3d |k t1=6:t|2=32:q$=|
|00002020| 22 45 6e 74 65 72 20 6c | 75 6d 70 20 73 75 6d 20 |"Enter l|ump sum |
|00002030| 74 6f 20 62 65 20 69 6e | 76 65 73 74 65 64 20 a3 |to be in|vested .|
|00002040| 20 22 3a 6c 75 6d 70 73 | 75 6d 3d a4 71 75 65 73 | ":lumps|um=.ques|
|00002050| 74 28 74 31 2c 74 32 2c | 71 24 2c 6c 75 6d 70 73 |t(t1,t2,|q$,lumps|
|00002060| 75 6d 24 29 3a 6c 75 6d | 70 73 75 6d 24 3d c3 28 |um$):lum|psum$=.(|
|00002070| 6c 75 6d 70 73 75 6d 29 | 0d 08 a2 05 e1 0d 08 ac |lumpsum)|........|
|00002080| 05 3a 0d 08 b6 13 dd 20 | f2 65 6e 74 65 72 72 65 |.:..... |.enterre|
|00002090| 67 6c 75 6d 70 0d 08 c0 | 1d 20 66 6c 74 6e 3d 30 |glump...|. fltn=0|
|000020a0| 3a 64 65 66 6c 61 74 65 | 3d 30 3a 72 65 61 6c 52 |:deflate|=0:realR|
|000020b0| 3d 30 0d 08 ca 67 20 74 | 31 3d 34 3a 74 32 3d 33 |=0...g t|1=4:t2=3|
|000020c0| 32 3a 71 24 3d 22 45 6e | 74 65 72 20 72 65 67 75 |2:q$="En|ter regu|
|000020d0| 6c 61 72 20 61 6d 6f 75 | 6e 74 20 69 6e 76 65 73 |lar amou|nt inves|
|000020e0| 74 65 64 20 a3 20 22 3a | 72 65 67 6c 61 72 3d a4 |ted . ":|reglar=.|
|000020f0| 71 75 65 73 74 28 74 31 | 2c 74 32 2c 71 24 2c 72 |quest(t1|,t2,q$,r|
|00002100| 65 67 6c 61 72 24 29 3a | 72 65 67 6c 61 72 24 3d |eglar$):|reglar$=|
|00002110| c3 28 72 65 67 6c 61 72 | 29 0d 08 d4 05 e1 0d 08 |.(reglar|).......|
|00002120| de 05 3a 0d 08 e8 0c dd | 20 f2 74 69 74 6c 65 0d |..:.....| .title.|
|00002130| 08 f2 07 20 ef 35 0d 08 | fc 17 20 c8 93 20 31 30 |... .5..|.. .. 10|
|00002140| 2c 38 32 30 2c 31 32 36 | 30 2c 31 36 30 0d 09 06 |,820,126|0,160...|
|00002150| 17 20 ef 32 33 2c 31 37 | 2c 37 2c 36 2c 38 3b 31 |. .23,17|,7,6,8;1|
|00002160| 36 3b 30 3b 0d 09 10 0e | 20 ec 20 34 32 30 2c 39 |6;0;....| . 420,9|
|00002170| 32 30 0d 09 1a 24 20 f1 | 22 43 4f 4d 50 4f 55 4e |20...$ .|"COMPOUN|
|00002180| 44 20 49 4e 54 45 52 45 | 53 54 20 43 41 4c 43 55 |D INTERE|ST CALCU|
|00002190| 4c 41 54 4f 52 22 0d 09 | 24 07 20 ef 34 0d 09 2e |LATOR"..|$. .4...|
|000021a0| 06 20 e1 0d 09 38 06 20 | 3a 0d 09 42 04 0d ff    |. ...8. |:..B... |
+--------+-------------------------+-------------------------+--------+--------+