9000 REM ***** BNDPRC ***** BUSINESS PROGRAM 9005 REM REVISED JUNE, 1972 ANDY ROTH C.C.G. 9010 REM BNDPRC ********** VERSION #1 (7/31/69) ***** BOND PRICE ***** 9020 REM 9030 REM THIS PROGRAM COMPUTES THE PRICE AND ACRUED INTEREST FOR A 9040 REM BOND WITH A COUPON OF C DOLLARS A YEAR (PAID SEMI-ANNUALLY), A 9050 REM REDEMPTION PRICE OF R DOLLARS, AND A MATURITY OF M1 YEARS AND 9060 REM M2 MONTHS (M2 NEED NOT BE AN INTEGER), SELLING TO YIELD Y. 9070 REM 9080 PRINT "* BOND PRICE *" 9090 PRINT 9100 PRINT"HOW MANY DOLLARS PER YEAR IS THE COUPON"; 9110 INPUT C 9120 PRINT 9130 PRINT "WHAT IS THE REDEMPTION PRICE"; 9140 INPUT R 9150 PRINT 9160 PRINT "WHAT IS THE BOND'S MATURITY LIFE? (ENTER AS YEARS, MONTHS)"; 9170 INPUT M1,M2 9180 PRINT 9190 PRINT "WHAT IS THE YIELD"; 9200 INPUT Y 9210 PRINT 9220 PRINT 9230 PRINT "********************************************************************" 9240 PRINT 9250 M3=M1*2+M2/6 9252 M4=INT(M3) 9260 M4=INT(M3) 9270 M5=M3-M4 9280 V1=C/2*(1-(1+Y/2)^(-M4))/(Y/2) 9290 V2=R/(1+Y/2)^(M4) 9300 P=(V1+V2+C/2)/((1+Y/2)^M5)-(C/2)*(1-M5) 9310 PRINT " THE PRICE OF THE BOND IS: $";P 9320 PRINT 9330 PRINT " THE ACCRUED INTEREST IS : $";C/2*(1-M5) 9340 PRINT 9350 PRINT "**********************************************************************" 9360 PRINT 9999 END