Listing of file='NUANU.BAS;01' on disk='vmedia/chip_57-sector.ccvf'
1 REM PROG. FRED HUDSON 2 REM 643 BROOKS RD 3 REM W.HENRIETTA 4 REM NEW YORK 14586 5 PLOT 12:PLOT 14,6,1 10 PRINT TAB( 15)"VALUES OF A DEFERRED ANNUITY":PRINT 20 PRINT " A NEW ANNUITY WITH UNKNOWN INTEREST RATES ":PRINT 30 PRINT " IF YOU KNOW THE PAYMENT PER MONTH AND THE DEFERRED PERIOD" 32 PRINT "THEN INSERT SELECTED INTEREST RATES UNTIL A MATCH IS OBTAINED" 90 PLOT 15,6,3:INPUT "CAPITAL INVESTED DOLLARS ?"; PS:PRINT 100 INPUT "NUMBER OF EXTRA MONTHS BEFORE DEFERRED YEARS START ? ";MO 110 PRINT :INPUT "INTEREST RATE DURING THE DEFERRED PERIOD? ";I 130 P= PS+ ((((I* PS)/ 100)/ 12)* MO) :REM PS=START PRINCIPAL + EXTRA INT. 170 P= INT (P* 10^ 2+ .5)/ 10^ 2 : REM P= PRINCIPAL ROUNDED 2 PLACES 180 PRINT " ONE COMPOUNDING PERIOD PER YEAR ":N= 1:PRINT 190 INPUT "INTEREST RATE AFTER ANNUITIZATION ?";AR:PRINT 196 INPUT "DEFERRED PERIOD IN YEARS ? ";Y:PRINT 198 PRINT " ((AFTER ANNUITY STARTS))" 206 PRINT "DEFERRED INTEREST ANNUITY ANNUITY 20 YR. 208 PRINT " YEARS VALUE PER YR PAY/YR PAY/MO. PAYOUT 209 FOR X= 0TO Y 210 IY= P* I/ 100:IY= INT (IY* 10^ 2+ .5)/ 10^ 2:REM IY= INTEREST / YEAR 230 AV= P* AR/ 100:REM AV= ANNUITIZED VALUE 240 AV= INT (AV* 10^ 2+ .5)/ 10^ 2:REM AV=ANNUITIZED VALUE 242 YR= X:REM YR=YEARS OF THE ANNUITY DEFERRED PERIOD 250 PO= AV* 20:PO= INT (PO* 10^ 2+ .5)/ 10^ 2 260 AM= AV/ 12:AM= INT (AM* 10^ 2+ .5)/ 10^ 2 290 PRINT YRTAB( 6)P,TAB( 17)IYTAB( 26)AVTAB( 35)AMTAB( 44)PO 300 P= P+ IY 310 PRINT 330 NEXT 410 REM T= P* (1+ I)^ (N* Y) 570 PLOT 15:PLOT 6:PLOT 2 590 INPUT "GOT MORE MONEY TO PUT AWAY Y/N ?";Q$ 610 IF Q$= "Y"THEN GOTO 5:END