home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
busi
/
rd10a.zip
/
INTR-DO.LBM
< prev
next >
Wrap
Text File
|
1990-02-12
|
946b
|
16 lines
{This macro uses a DO loop to figure compound interest.}
{Try the INTEREST macro to figure interest WITHOUT a DO loop.}
c {clears the calculator tape}
c {second "c" clears F4 & F8 memories}
"ANNUAL INTEREST PERCENT"= {asks for and then displays percent}
/100+ {converts % to frac, adds next line}
1= {"=" causes result to display}
ALT-F8 {stores result in F8 memory}
"YEARS TO COMPOUND"= {asks for & displays period held}
ALT-F4 {stores result in F4 memory}
"INITIAL INVESTMENT"= {asks for & displys investment}
DO {begins DO loop}
*F8= {multiplies result by 8}
UNTIL COUNT=F4 {ends DO loop when count equals}
{ F4, which is "YEARS TO COMPOUND"}