>>CLEAR >> >>LOCAL nAmount, nRate, nTotalPeriods, nEarning, nTotVal >> >>nAmount = 7669.04 >>nRate = .08 / 12 >>nPeriods = 12 * 10 && 10 years >> >>? "Investment Amount: " + ALLTRIM(TRANSFORM(nAmount, "@R $$$,$$$,$$$.99")) >>? "Interest Rate: " + TRANSFORM(nRate, "@R .99") >>? "Periods: " + TRANSFORM(nPeriods) >>? >>? >> >>? "Period Amount Earned" >>? "-------------------------------------" >> >>FOR nPeriod = 1 TO nPeriods >> >> nEarning = nAmount * nRate >> nAmount = nAmount + nEarning >> >> ? PADL(nPeriod , 5, " "), TRANSFORM(nAmount, "@R $$$,$$$,$$$.99"), TRANSFORM(nEarning, "@R $$$,$$$,$$$.99") >> >>ENDFOR >> >>? >>? "Value of investment: " + ALLTRIM(TRANSFORM(nAmount, "@R $$$,$$$,$$$.99")) >>>