Listing of file='NOMINT.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'
1 PLOT 12,14,6,3 5 PRINT TAB( 15)"NOMINAL INTEREST RATE ON INVESTMENTS":PLOT 10,15,6,2 10 PRINT "THIS PROGRAM CALCULATES THE NOMINAL INTEREST RATE FOR A KNOWN" 12 PRINT "INITIAL INVESTMENT, WHICH AMOUNTS TO A KNOWN FUTURE VALUE" 16 PRINT "IN A SPECIFIED PERIOD OF TIME. THE NOMINAL INTEREST RATE" 20 PRINT "IS USUALLY SUBDIVIDED FOR COMPOUNDING PURPOSES..." 25 PLOT 14,10,6,1 30 INPUT "PRINCIPLE = ";P 40 PRINT 50 INPUT "FUTURE VALUE = ";T 55 PRINT 70 INPUT "NUMBER OF YEARS = ";Y 75 PRINT 90 INPUT "# OF COMPOUNDING PERIODS PER YEAR = ";N 110 I2= N* ((T/ P)^ (1/ (N* Y))- 1)* 100 115 PLOT 10,6,3 120 PRINT TAB( 15)"NOMINAL INTEREST RATE = ";I2;"%" 135 PLOT 15,10,6,2 140 INPUT "MORE DATA : (1=YES, 0=NO) ";X 160 IF X= 1THEN RUN 180 PLOT 1