Compucolor.org – Virtual Media

Listing of file='NOMINT.BAS;01' on disk='vmedia/financial_calc-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