95 PRINT:PRINT:INPUT "DO YOU WANT INSTRUCTIONS";Q$:

	IF ASCII(Q$)=78% THEN 180

100  PRINT 

110  PRINT "    THIS PROGRAM CALCULATES THE AMOUNT OF MONEY THAT"

120  PRINT "WOULD ACCUMULATE AFTER N YEARS AT AN ANNUAL INTEREST RATE"

130  PRINT "    VARIABLES ARE DENOTED AS FOLLOWS"

131  PRINT "       N = PERIOD OF YEARS"

132  PRINT "       R = ANNUAL INTEREST RATE"

133  PRINT "       T = TIMES COMPOUNDED PER-YEAR"

134  PRINT "       P = INITIAL AMOUNT"

135  PRINT "       D = AMNT ADDED AT THE BEGINNING OF EACH YEAR"

136  PRINT "       NOTE* THAT P AND D ARE GIVEN IN DOLLARS"

137  PRINT "             THAT N AND T MUST BE INTEGERS"

138  PRINT "             THAT R IS GIVEN AS A PERCENTAGE"

180  PRINT 

190  PRINT "WHAT ARE P($),D($),N(INT),T(INT),R(%)"

200  INPUT L,N,Y,X,A

210  IF X <> 0 THEN 250

220  PRINT 

230  PRINT "X MUST NOT EQUAL ZERO..."

240  GOTO 180

250  LET D=0

260  LET B=.01*A

270  LET S=L

300  FOR Z=1 TO Y

310  LET S=S+D
320  FOR W=1 TO X

330  S=S*(1+B/X)

340  NEXT W

350  LET D=N

360  NEXT Z

365  S=INT(S*100+.5)/100

370  PRINT 

380  PRINT "   AFTER ";Y;"YEARS, ";L;"DOLLARS INVESTED AT";A

390  PRINT "   PERCENT COMPOUNDED ";X;"TIMES PER YEAR, WITH THE"

400  PRINT "   ADDITION OF ";N;"DOLLARS PER YEAR, YIELDS A TOTAL"

410  PRINT "   OF ";S;"DOLLARS."

420  PRINT 

430  PRINT " WRITE YES(1) TO CONTINUE OR NO (2)"

440  INPUT I

450  IF I=1 THEN 190

451  END