1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        SAVING:   COMPOUND INTEREST
4  REM
5  REM        36708 REV  A   10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
90  PRINT "RUN-110 FOR INSTRUCTIONS"
95  GOTO 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 = AMOUNT 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 
