home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / MISC / FINANCE / INVEST.LBR / CBOND.BZS / CBOND.BAS
BASIC Source File  |  2000-06-30  |  2KB  |  53 lines
  1. 10 REM  AAII PROGRAM 2--BOND YIELDS LAST REVISED 9/01/82
  2. 20 DIM M(2),N(2)
  3. 30 PRINT CHR$(26)
  4. 40 PRINT "BOND YIELDS TO MATURITY"
  5. 50 PRINT "FIGURES IN ( ) ARE EXAMPLES OF INPUT FORM"
  6. 60 PRINT "CURRENT PRICE PER $100 (89.50)"
  7. 70 INPUT I1
  8. 80 I1 = INT(I1 * 1000 + .5) / 1000
  9. 90 PRINT "ANNUAL COUPON % (8.50)"
  10. 100 INPUT C1
  11. 110 PRINT "NUMBER YEARS, + MONTHS TO MATURITY (20,2)"
  12. 120 INPUT Y1,M1
  13. 130 T1 = Y1 + M1 /12
  14. 140 PRINT "MARGINAL TAX RATE-ORDINARY-%(50)"
  15. 150 INPUT M(2)
  16. 160 PRINT "MARGINAL TAX RATE-CAPITAL-%(20)"
  17. 170 INPUT N(2)
  18. 180 PRINT:PRINT "    PLEASE WAIT FOR CALCULATIONS TO BE COMPLETED":PRINT
  19. 190 M(2) = 1 - M(2) / 100
  20. 200 N(2) = 1 - N(2) / 100
  21. 210 M(1) = 1
  22. 220 N(1) = 1
  23. 230 K = 1
  24. 240 L1 = 0
  25. 250 H1 = (C1 / I1 + (100 - I1) / ( T1 * 100)) * 1.2
  26. 260 R2  = 0
  27. 270 R1 = (L1 + H1) / 2
  28. 280 IF R1 = R2 THEN 440
  29. 290 R2 = R1
  30. 300 P1 = 0
  31. 310 FOR J = 1 TO Y1
  32. 320 P1 = P1 + (C1 * M(K)) / (R1 + 1) ^ J
  33. 330 NEXT J
  34. 340 P1 = P1 + ((M1 / 12) * C1 * M(K)) / (R1 + 1) ^ T1
  35. 350 P1 = P1 + (I1 + N(K) * (100 - I1)) / (R1 + 1) ^ T1
  36. 360 P1 = INT(P1 * 1000 + .5) / 1000
  37. 370 IF P1 = I1 THEN 430
  38. 380 IF I1 > P1 THEN 410
  39. 390 L1 = R1
  40. 400 GOTO 270
  41. 410 H1 = R1
  42. 420 GOTO 270
  43. 430 R1 = INT(R1 * 10000 + .5) /100
  44. 440 IF K = 2 THEN 490
  45. 450 PRINT "PRETAX YIELD TO MATURITY=";R1;"%"
  46. 460 PRINT
  47. 470 K = 2
  48. 480 GOTO 240
  49. 490 PRINT "AFTER TAX YIELD TO MATURITY=";R1;"%"
  50. 500 PRINT:PRINT:PRINT "WANT TO RUN BOND YIELD AGAIN? (YES OR NO)";
  51. 510 INPUT L1$:IF MID$(L1$,1,1) = "Y" THEN GOTO 30
  52. 530 END
  53. 00 PRINT:PRINT:PRINT "WANT T