Listing of file='INTRST.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'
5 PLOT 27,11,6,2,12,14 30 PRINT TAB( 15)"DECLINING INTEREST PROGRAM" 40 PLOT 10,15 50 INPUT "WHAT IS THE AMOUNT OF THE LOAN ?";A 55 PRINT 60 INPUT "WHAT IS THE INTEREST RATE ?";R 65 PRINT 70 INPUT "WHAT IS THE LENGTH OF THE LOAN IN MONTHS ?";M 80 IF M< > INT (M)THEN 70 85 PRINT 90 INPUT "DO YOU WANT THE PAYMENT CALCULATED FOR YOU (Y OR N) ?";B$ 100 PRINT :PRINT " $"A" FOR"M" MONTHS AT"R" PERCENT " 110 IF B$= "Y"THEN 140 120 PRINT 130 INPUT "WHAT IS THE MONTHLY PAYMENT ?";P 140 R= R/ 1200 150 IF B$< > "Y"THEN 190 160 C= (1+ R)^ M 170 P= A* ((R* C)/ (C- 1)) 180 P= (P* 100)+ 1:P= INT (P):P= P/ 100 190 PRINT " MONTHLY PAYMENT";P 195 PRINT 200 PLOT 6,6:PRINT "DO YOU WANT A MONTHLY BREAKDOWN (Y OR N) ?"; 201 PLOT 6,7:INPUT B$ 210 IF B$= "N"THEN 250 220 IF B$< > "Y"THEN 200 230 PRINT :Y= Y+ 1:PRINT "YEAR ";Y 240 PRINT "MONTH BALANCE INTEREST INT.T.D. PRIN P.T.D." 250 Z= 0:T= 0:I2= 0:N2= 0:P2= 0 260 B= A 270 FOR K= 1TO M 280 X= X+ 1 290 I= B* R 300 I= (I* 100)+ 1:I= INT (I):I= I/ 100 310 IF K= MTHEN P= B+ I 320 P2= P2+ P 330 N= P- I:B= B- N:I2= I2+ I:N2= N2+ N 340 IF B$= "N"THEN 370 341 PRINT K;TAB( 8);B; 342 PRINT TAB( 20);I; 343 PRINT TAB( 32);I2; 344 PRINT TAB( 43);N; 345 PRINT TAB( 53);N2 360 IF X= 12 AND K< > M THEN GOSUB 440 370 NEXT 380 PRINT :PRINT :PRINT 390 PRINT " FINAL PAYMENT = ";P 395 PRINT 400 PRINT " TOTAL PAYMENT = ";P2 405 PRINT "" 410 INPUT " DO YOU WANT TO DO ANOTHER (Y OR N) ?";B$ 420 IF B$= "Y"THEN 5 426 PLOT 1 440 Y= Y+ 1:PRINT :PRINT "YEAR ";Y 450 PRINT "MONTH BALANCE INTEREST INT.T.D. PRIN. P.T.D." 460 X= 0 470 RETURN