10 !THIS PROGRAM WRITTEN BY ELBERT B GREYNOLDS
   !REVISED AND MODIFIED BY DARRYL JOHNSON AND RICHARD D'ANGELO
   !BENTLEY COLLEGE OCTOBER 1972
20 PRINT:INPUT "WHAT IS THE REDEMPTION OR PAR VALUE OF THE BONDS";M
30 PRINT:INPUT "WHAT IS THE AMOUNT OF THE PERIODIC NOMINAL INTEREST PAYMENT";P
40 PRINT:INPUT "WHAT IS THE YIELD RATE TO THE INVESTOR PER INTEREST PERIOD";I
50 PRINT:INPUT "WHAT IS THE NUMBER OF INTEREST PAYMENTS OVER THE LIFE OF THE BOND";N
60 V=(M*(1/((1+I)^N)))+(P*((1-(1+I)^(-N))/I))
70 PRINT:PRINT:A$="THE VALUE OF THE BOND ISSUE IS $$##,###.##"
80 PRINT USING A$,V
90 END