Savings Plan

Gallery

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"\72
 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