REM This program makes an interest and amount table for a bank deposit
REM with interest compounded monthly.
CLS
DEFINT M-N
DEFDBL A, I, R-S

REM Input Variables
INPUT "What is the amount of your deposit (in dollars) "; A
INPUT "What is your annual percentage interest rate "; S
INPUT "For how many months do you want a table "; N
R = S / 1200
PRINT
PRINT USING "The orginal deposit is $$###,###"; A
PRINT USING "The annual interest rate is ##.##%"; S
PRINT

REM Print table headings
PRINT TAB(20); "INTEREST AND AMOUNT TABLE"
PRINT
PRINT TAB(10); "Month #"; TAB(25); "Interest earned"; TAB(50); "New amount"

REM Do calculations and print table
M = 1
DO UNTIL M = N + 1
        I = A * R
        A = A + I
        PRINT TAB(12); M; TAB(23);
        PRINT USING "$$###,###.##"; I; TAB(48);
        PRINT USING "$$###,###.##"; A
        M = M + 1
LOOP

PRINT : PRINT "Bye - remember, a penny saved is a penny earned!"