Source Code
10 REM %M%O%N%T%H%L%Y% %S%A%V%I%N%G%S% %P%L%A%N
100 PRINT "%M%O%N%T%H%L%Y% %S%A%V%I%N%G%S% %P%L%A%N"
130 PRINT
131 LET CI=0
140 PRINT "THIS PROGRAM CALCULATES AND DISPLAYS"
150 PRINT "A MONTHLY SAVINGS PLAN,GIVEN THE"
160 PRINT "INITIAL AMOUNT,MONTHLY SAVINGS"
170 PRINT "AMOUNT,THE YEARLY INTEREST RATE,"
180 PRINT "AND THE NUMBER OF MONTHS TO BE DISPLAYED."
190 PRINT
200 PRINT "ENTER INITIAL AMT OF PLAN"
210 INPUT J
220 PRINT J
230 PRINT "ENTER MONTHLY SAVINGS AMT."
240 INPUT P
241 PRINT P
250 LET K=P
260 LET B=J
270 PRINT
280 PRINT "ENTER YRLY INT.RATE(PCT)"
290 INPUT I
300 PRINT I
310 PRINT "ENTER THE NR OF MONTHS TK BE DISPLAYED"
320 INPUT M
321 PRINT M
330 LET MI=(I/12)/100
340 CLS
350 PRINT "MONTHLY SAVINGS PLAN"
360 PRINT "INITIAL AMOUNT=$ ";J,"INTEREST R8TE= ";I
370 PRINT "MONTHLY SAVINGS AMT=$ ";K,"STARTING AMT=$ ";J+K
380 PRINT "MONTH","BAL","INT","CUM.INT."
390 FOR A=1 TO M
400 GOSUB 520
410 PRINT A,B,IN,CI
420 FOR T=1 TO 400
430 NEXT T
440 NEXT A
450 PRINT "BALANCE AFTER ";M;" MONTHS=$ ";B
460 PRINT "TOTAL CUMULATIVE INTEREST=$ ";CI
470 PRINT "ANOTHER DISPLAY?"
480 PRINT "1=YES/0=NO"
490 INPUT A
500 IF A=1 THEN GOTO 100
510 STOP
520 REM CALC MONTHLY DATA
530 LET B=B+P
540 LET IN=B*MI
550 LET IN=INT (IN*100+.5)/100
560 LET B=B+IN
570 LET B=INT (B*100+.5)
580 LET B=B/100
590 LET CI=CI+IN
600 RETURN
700 SAVE "1002%9"
710 RUN
