3  REM       BNDPRC:    BOND PRICE   
4  REM
5  REM       36076    REV B   3/72    
6  REM
7  REM ****  CONTRIBUTED PROGRAM **************************************
8000  PRINT "BOND PRICE"
8001  PRINT 
8005  PRINT "SETTLEMENT DATE (MO,DAY,YR)";
8010  INPUT S1,S2,S3
8020  D1=FNA(0)
8030  PRINT "MATURITY DATE (MO,DAY,YR)";
8040  INPUT S1,S2,S3
8050  D2=FNA(0)
8060  DEF FNA()=360*S3+30*S1+S2
8070  D3=(D2-D1)/360
8080  D4=INT(D3)
8085  D5=(D3-D4)*12
8090  D6=INT(D5)
8100  IF D6=0 THEN 8130
8110  IF D6<6 THEN 8130
8120  D4=D4+.5
8130  D7=INT((D5-D6)*30+.5)+30*D6
8150  IF D7=0 THEN 8190
8160  IF D7 <= 180 THEN 8180
8170  D7=360-D7
8175  GOTO 8190
8180  D7=180-D7
8190  PRINT "ANNUAL COUPON(%)";
8200  INPUT C
8210  R=C/2
8220  PRINT "DESIRED YIELD(%)";
8230  INPUT Y
8235  Y=Y/100
8240  D4=2*D4
8245  P=100
8247  IF D4=0 THEN 8260
8250  P=R*(1/((Y/2)/((1+Y/2)^D4-1)+Y/2))+100*(1+Y/2)^(-D4)
8252  D4=0
8255  IF D7=0 THEN 8314
8260  D4=(180-D7)/180
8270  P=(P+R)/(1+Y/2)^D4-R*(1-D4)
8314  D1=R*D7/180
8320  PRINT "TOTAL NUMBER OF BONDS";
8321  INPUT S3
8330  REM
8340  PRINT 
8350  PRINT "**************************************************";
8360  PRINT "************"
8370  PRINT 
8380  PRINT "             THE PRICE OF THE BOND IS : $"P*10
8390  PRINT 
8400  PRINT "             THE ACCRUED INTEREST IS : $"D1*10
8410  PRINT 
8420  PRINT "             THE TOTAL BOND PRICE IS : $"S3*10*(P+D1)
8430  PRINT 
8440  PRINT "**************************************************";
8450  PRINT "************"
8460  END 
