Listing of file='TRUINT.BAS;01' on disk='vmedia/personal_finance_vol_1-sector.ccvf'
100 REM *****TRUINT*****BUSINESS PROGRAM 110 PLOT 12,14,6,3,3,17,0 120 PRINT "* TRUE ANNUAL INTEREST RATE *" 130 PRINT 140 PLOT 15,6,7 150 PRINT "THIS PROGRAM CALCULATES THE TRUE (OR EFFECTIVE) ANNUAL INTEREST" 160 PRINT "RATE CHARGED ON AN INSTALLMENT LOAN." 170 PRINT :PRINT 180 PLOT 6,3 190 PRINT "TO USE THIS PROGRAM IT IS NECESSARY FOR YOU TO SUPPLY" 200 PRINT "THE VALUES FOR FOUR VARIABLES :":PRINT 210 PLOT 6,7:PRINT " A = AMOUNT OF LOAN ($)" 220 PLOT 6,5:PRINT " P = AMOUNT OF PAYMENT ($)" 230 PLOT 6,3:PRINT " N = TOTAL NUMBER OF PAYMENTS DUE" 240 PLOT 6,6:PRINT " K = THE NUMBER OF PAYMENTS DUE IN A YEAR" 250 PLOT 6,2 260 PRINT 270 PRINT "WHAT ARE A,P,N,K "; 280 PLOT 22:INPUT A,P,N,K:PLOT 18 290 PRINT 300 IF N= 1THEN 750 310 IF P* N> = ATHEN 370 320 PRINT 330 PRINT "THAT IS NOT REASONABLE; THE PAYMENTS ADD UP TO LESS" 340 PRINT "THAN THE AMOUNT OWED. TRY AGAIN." 350 FOR QQ= 1TO 1000:PLOT 3,64,0:NEXT :GOTO 740 360 GOTO 270 370 R= 0 380 D= 100 390 GOSUB 480 400 IF P= P1THEN 580 410 IF P> P1THEN 440 420 R= R- D 430 GOTO 450 440 R= R+ D 450 D= D/ 2 460 IF D< .0001THEN 580 470 GOTO 390 480 R1= R/ (100* K) 490 Q= 1+ R1 500 IF N* LOG (Q)/ LOG (10)< = 75THEN 530 510 P1= A* R1 520 RETURN 530 IF Q> 1THEN 560 540 P1= A/ N 550 RETURN 560 P1= A* Q^ N* R1/ (Q^ N- 1) 570 RETURN 580 R= .000001* INT (1000000* R+ .5) 590 IF R< 199.5THEN 660 600 PRINT 610 PRINT "ARE YOU SURE THE DATA IS CORRECT?" 620 PRINT "THE INTEREST RATE WOULD BE OVER 200 PERCENT !" 630 PRINT " TRY AGAIN !" 640 FOR Q= 1TO 500:PLOT 3,64,0:NEXT :GOTO 740 650 GOTO 270 660 PRINT "THE NOMINAL ANNUAL INTEREST RATE = "; 670 PLOT 17:PRINT R;"%" 680 PRINT "THE EFFECTIVE ANNUAL INTEREST RATE = "; 690 RE= ((1+ (R/ 1200))^ 12- 1)* 100:PLOT 17:PRINT RE;"%" 700 PRINT :PRINT 710 INPUT "ENTER 1-CONTINUE OR 2-END PROGRAM: ";Q$:Q= VAL (Q$) 720 IF Q= 2THEN 780 730 IF Q$= "N"THEN 780 740 PLOT 14:FOR I= 16TO 30STEP 2:PLOT 3,0,I,11:NEXT :PLOT 15,3,0,16:GOTO 260 750 R= (P/ A- 1)* K 760 R= 100* R 770 GOTO 580 780 PLOT 6,2,12,1