Listing of file='LOAN.BAS;01' on disk='vmedia/sampler-sector.ccvf'
100 CLEAR 100 110 REM 120 DIM DOL(5),CENT(5),CENT$(5) 130 PLOT 6,1,12 140 REM 150 PRINT :PRINT :PLOT 14 160 PRINT "DECLINING INTEREST PROGRAM" 170 PRINT "--------- -------- -------":PLOT 15:PRINT 180 Q9= PEEK (32936):IF Q9< > 0THEN A= 3000:R= 7.5:M= 12:B$= "Y":GOTO 250 190 INPUT "AMOUNT OF LOAN ";A 200 INPUT "INTEREST RATE (E.G. 9.25) ";R 210 INPUT "LENGTH OF LOAN (IN MONTHS) ";M 220 IF M< > INT (M)THEN 210 230 PRINT 240 INPUT "WANT PAYMENT CALCULATED FOR YOU (Y OR N) ";B$ 250 PRINT :PRINT A;" FOR ";M;" MONTHS AT ";R;" PERCENT" 260 IF B$= "Y"THEN 290 270 PRINT 280 INPUT "WHAT IS THE MONTHLY PAYMENT ";P 290 REM 300 IF B$= "N"THEN WW= 2 310 R= R/ 1200 320 IF B$= "Y"THEN X$= B$ 330 IF B$< > "Y"THEN 380 340 REM 350 C= (1+ R)^ M 360 P= A* ((R* C)/ (C- 1)) 370 P= (P* 100)+ 1:P= INT (P):P= P/ 100 380 PRINT "MONTHLY PAYMENT = ";P 390 REM 400 PRINT 410 IF Q9< > 0THEN FOR Q= 0TO 3000:NEXT :GOTO 430 420 INPUT "WANT A MONTHLY BREAKDOWN (Y OR N) ";B$ 430 IF B$= "N"THEN 560 440 IF B$< > "Y"THEN 420 450 PLOT 12,14,3,12,0 460 PRINT "A M O R T I Z A T I O N S C H E D U L E" 470 PLOT 3,12,2 480 PRINT "= = = = = = = = = = = = = = = = = = = =" 490 PLOT 15,3,0,5 500 PRINT A;" FOR ";M;" MONTHS AT ";R* 1200;" PERCENT":PRINT 510 PRINT "MONTHLY PAYMENT =";P 520 PRINT 530 GOSUB 1380 540 PLOT 3,0,10 550 PRINT "MONTH BALANCE INTEREST INT T.D PRINCIPAL PRIN T.D" 560 Z= 0:T= Z:I2= Z:N2= Z:P2= Z 570 IF B$< > "N"THEN 620 580 PLOT 3,0,19+ WW 590 PLOT 6,69:PRINT "CALCULATING" 600 PLOT 6,2 610 PLOT 3,64,0 620 B= A 630 IF B$< > "Y"THEN 650 640 PLOT 3,0,12 650 PLOT 27,24 660 Y= 13 670 FOR K= 1TO M 680 IF B$= "N"THEN 700 690 IF K= YTHEN GOSUB 1280 700 I= B* R 710 I= (I* 100)+ 1:I= INT (I):I= I/ 100 720 IF K= MTHEN P= B+ I 730 P2= P2+ P 740 N= P- I:B= B- N:I2= I2+ I:N2= N2+ N 750 IF B$= "N"THEN 890 760 B= INT (B* 100)* .01:I= INT (I* 100)* .01:I2= INT (I2* 100)* .01:N= INT (N* 100)* .01 770 N2= INT (N2* 100)* .01 780 GOSUB 1050 790 K$= STR$ (K):IK= 5- LEN (K$) 800 K$= STR$ (DOL(1)):ID= 12- LEN (K$) 810 K$= STR$ (DOL(2)):II= 23- LEN (K$) 820 K$= STR$ (DOL(3)):I3= 33- LEN (K$) 830 K$= STR$ (DOL(4)):IN= 45- LEN (K$) 840 K$= STR$ (DOL(5)):N3= 56- LEN (K$) 850 PLOT 23:PRINT TAB( IK);K; 860 PLOT 18:PRINT TAB( ID);DOL(1);RIGHT$ (CENT$(1),W1); 870 PLOT 17:PRINT TAB( II);DOL(2);RIGHT$ (CENT$(2),W2);TAB( I3);DOL(3);RIGHT$ (CENT$(3),W3); 880 PLOT 22:PRINT TAB( IN);DOL(4);RIGHT$ (CENT$(4),W4);TAB( N3);DOL(5);RIGHT$ (CENT$(5),W5) 890 NEXT K 900 PLOT 27,11 910 IF B$< > "N"THEN 940 920 PLOT 3,0,19+ WW,11 930 PLOT 3,0,19+ WW 940 PLOT 15:PRINT 950 PRINT "FINAL PAYMENT = ";P 960 PRINT "TOTAL PAYMENTS = ";P2:PRINT 970 IF B$= "N"THEN GOSUB 1380 980 PLOT 3,0,31:IF Q9< > 0THEN FOR Q= 0TO 3000:NEXT :GOTO 1040 990 INPUT "WANT TO DO ANOTHER ONE ";B$ 1000 IF B$= "Y"THEN PLOT 12 1010 IF B$= "Y"THEN GOTO 150 1020 IF B$< > "N"THEN 990 1030 PLOT 6,2,12 1040 LOAD "MENU;1":RUN 5 1050 REM 1060 W1= 3:W2= 3:W3= 3:W4= 3:W5= 3 1070 FOR Q= 1TO 5 1080 ON QGOTO 1090,1100,1110,1120,1130 1090 V= B:GOTO 1140 1100 V= I:GOTO 1140 1110 V= I2:GOTO 1140 1120 V= N:GOTO 1140 1130 V= N2 1140 DOL(Q)= INT (V)* 100 1150 AX= INT (V* 100) 1160 CENT(Q)= ABS (AX- DOL(Q)) 1170 DOL(Q)= INT (DOL(Q)* .01) 1180 CENT(Q)= CENT(Q)* .01 1190 CENT$(Q)= STR$ (CENT(Q)) 1200 IF MID$ (CENT$(Q),2,1)= "."AND LEN (CENT$(Q))= 3THEN 1220 1210 GOTO 1240 1220 CENT$(Q)= MID$ (CENT$(Q),2,2)+ "0" 1230 GOTO 1260 1240 IF MID$ (CENT$(Q),2,1)= "."THEN 1260 1250 IF LEN (CENT$(Q))= 2THEN CENT$(Q)= ".00" 1260 NEXT Q 1270 RETURN 1280 Y= Y+ 12 1290 PRINT :PRINT 1300 INPUT "HIT THE RETURN KEY TO SEE THE NEXT 12 INSTALLMENTS.";ZX$ 1310 FOR U= 1TO 15 1320 PLOT 3,0,U+ 11,11 1330 NEXT U 1340 PLOT 3,0,12 1350 IF B$< > "N"THEN 1370 1360 PLOT 3,64,0 1370 RETURN 1380 REM 1390 EFF= (1+ R)^ 12- 1 1400 EFF= INT (EFF* 10000)/ 100 1410 PRINT :PLOT 6,5 1420 IF B$= "N"THEN 1440 1430 PLOT 3,0,28 1440 PRINT "THE EFFECTIVE RATE OF INTEREST = ";EFF;"%" 1450 PLOT 6,7 1460 PRINT " (IE THE TRUE INTEREST )" 1470 PRINT 1480 PLOT 6,2 1490 RETURN