>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")) >