Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape16b_acorn_eu_1990_november.wav » R.IntCalc

R.IntCalc

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape16b_acorn_eu_1990_november.wav
Filename: R.IntCalc
Read OK:
File size: 01A0 bytes
Load address: FFFFFB42
Exec address: FFFFC8D7
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10n$="Compound interest calculator"
   20REM by Henry Brooks
   30REM (c) The Micro User
   40REM November 1990
   50MODE 6:PRINT n$:FOR num=1 TO LEN(n$):PRINT "_";:NEXT
   60INPUT ''"Inital investment = `"inv:INPUT ''"Interest rate = % "int:INPUT ''"Number of years = "time
   70PRINT'''"Year";TAB(10);"Total interest";TAB(26)"Total capital"'"number";TAB(10);"in `";TAB(26)"in `"'
   80FOR loop=1 TO time:@%=0:PRINT loop;:@%=&2020A:cap=inv*(1+int/100)^loop:PRINT TAB(13)cap-inv;:PRINT TAB(26)cap:NEXT:END

%n$="Compound interest calculator"
� by Henry Brooks
� (c) The Micro User
(� November 1990
2%� 6:� n$:� num=1 � �(n$):� "_";:�
<[� ''"Inital investment = `"inv:� ''"Interest rate = % "int:� ''"Number of years = "time
FY�'''"Year";�10);"Total interest";�26)"Total capital"'"number";�10);"in `";�26)"in `"'
P`� loop=1 � time:@%=0:� loop;:@%=&2020A:cap=inv*(1+int/100)^loop:� �13)cap-inv;:� �26)cap:�:�
�
00000000  0d 00 0a 25 6e 24 3d 22  43 6f 6d 70 6f 75 6e 64  |...%n$="Compound|
00000010  20 69 6e 74 65 72 65 73  74 20 63 61 6c 63 75 6c  | interest calcul|
00000020  61 74 6f 72 22 0d 00 14  15 f4 20 62 79 20 48 65  |ator"..... by He|
00000030  6e 72 79 20 42 72 6f 6f  6b 73 0d 00 1e 18 f4 20  |nry Brooks..... |
00000040  28 63 29 20 54 68 65 20  4d 69 63 72 6f 20 55 73  |(c) The Micro Us|
00000050  65 72 0d 00 28 13 f4 20  4e 6f 76 65 6d 62 65 72  |er..(.. November|
00000060  20 31 39 39 30 0d 00 32  25 eb 20 36 3a f1 20 6e  | 1990..2%. 6:. n|
00000070  24 3a e3 20 6e 75 6d 3d  31 20 b8 20 a9 28 6e 24  |$:. num=1 . .(n$|
00000080  29 3a f1 20 22 5f 22 3b  3a ed 0d 00 3c 5b e8 20  |):. "_";:...<[. |
00000090  27 27 22 49 6e 69 74 61  6c 20 69 6e 76 65 73 74  |''"Inital invest|
000000a0  6d 65 6e 74 20 3d 20 60  22 69 6e 76 3a e8 20 27  |ment = `"inv:. '|
000000b0  27 22 49 6e 74 65 72 65  73 74 20 72 61 74 65 20  |'"Interest rate |
000000c0  3d 20 25 20 22 69 6e 74  3a e8 20 27 27 22 4e 75  |= % "int:. ''"Nu|
000000d0  6d 62 65 72 20 6f 66 20  79 65 61 72 73 20 3d 20  |mber of years = |
000000e0  22 74 69 6d 65 0d 00 46  59 f1 27 27 27 22 59 65  |"time..FY.'''"Ye|
000000f0  61 72 22 3b 8a 31 30 29  3b 22 54 6f 74 61 6c 20  |ar";.10);"Total |
00000100  69 6e 74 65 72 65 73 74  22 3b 8a 32 36 29 22 54  |interest";.26)"T|
00000110  6f 74 61 6c 20 63 61 70  69 74 61 6c 22 27 22 6e  |otal capital"'"n|
00000120  75 6d 62 65 72 22 3b 8a  31 30 29 3b 22 69 6e 20  |umber";.10);"in |
00000130  60 22 3b 8a 32 36 29 22  69 6e 20 60 22 27 0d 00  |`";.26)"in `"'..|
00000140  50 60 e3 20 6c 6f 6f 70  3d 31 20 b8 20 74 69 6d  |P`. loop=1 . tim|
00000150  65 3a 40 25 3d 30 3a f1  20 6c 6f 6f 70 3b 3a 40  |e:@%=0:. loop;:@|
00000160  25 3d 26 32 30 32 30 41  3a 63 61 70 3d 69 6e 76  |%=&2020A:cap=inv|
00000170  2a 28 31 2b 69 6e 74 2f  31 30 30 29 5e 6c 6f 6f  |*(1+int/100)^loo|
00000180  70 3a f1 20 8a 31 33 29  63 61 70 2d 69 6e 76 3b  |p:. .13)cap-inv;|
00000190  3a f1 20 8a 32 36 29 63  61 70 3a ed 3a e0 0d ff  |:. .26)cap:.:...|
000001a0
R.IntCalc.m0
R.IntCalc.m1
R.IntCalc.m2
R.IntCalc.m4
R.IntCalc.m5