Listing of file='ANNINT.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'
1 PLOT 12,14,6,1 5 PRINT TAB( 18)"ANNUAL INTEREST RATE ON A LOAN" 10 PLOT 10,15,6,3 15 PRINT "THIS PROGRAM CALCULATES THE RATE AT WHICH INTEREST IS CHARGED" 20 PRINT :PRINT "ON A LOAN. TO DETERMINE THIS RATE YOU MUST ENTER THE AMOUNT" 25 PRINT :PRINT "OF THE LOAN, THE AMOUNT OF THE REGULAR PAYMENT, THE NUMBER OF" 30 PRINT :PRINT "THE REGULAR PAYMENT, THE NUMBER OF PAYMENTS PER YEAR, AND THE" 35 PRINT :PRINT "THE TERM OF THE LOAN...." 39 PRINT :PRINT :INPUT "HIT -RETURN- TO CONTINUE ";Z 40 PLOT 12,6,1,14,10 50 INPUT "ENTER REGULAR PAYMENT $ ";R 52 INPUT "ENTER TERM IN YEARS, MONTHS ";Y0,M 65 Y= (12* Y0+ M)/ 12 70 INPUT "ENTER PRINCIPAL ";P 90 INPUT " # OF PAYMENTS PER YEAR ";N 110 I= 10 120 I2= 0 130 R1= (I* P/ N)/ (1- 1/ ((I/ N+ 1)^ (N* Y))) 140 R1= INT (R1* 100+ .5)/ 100 150 I3= (ABS (I- I2)/ 2) 160 I2= I 170 IF R1= RTHEN 230 180 IF R1> RTHEN 210 190 I= I+ I3 200 GOTO 130 210 I= I- I3 220 GOTO 130 230 I= ((INT ((I* 1000)* 100+ .5))/ 100)/ 1000 235 PLOT 14,6,2,10 250 PRINT TAB( 15)"ANNUAL INTEREST RATE = ";I* 100;" %" 255 PLOT 10,15 260 INPUT "MORE DATA ? (1=YES 0=NO) ";X 280 IF X= 1THEN 40 290 PLOT 1