10 CLS
20 PRINT "MORTGAGE AMORTIZATION TABLE" 
30 DEFDBL A-Z
40 DEFSNG J,K
50 PRINT 
60 PRINT "REGULAR PAYMENT"; 
70 INPUT R 
80 PRINT "TERM IN YEARS"; 
90 INPUT Y 
100 PRINT "PRINCIPAL"; 
110 INPUT P 
120 PRINT "ANNUAL INTEREST  RATE"; 
130 INPUT I 
140 I=I/100 
150 PRINT "NUMBER OF PAYMENTS PER YEAR"; 
160 INPUT N 
170 PRINT "START PRINTING WITH WHAT YEAR"; 
180 INPUT X 
190 X=INT(X) 
200 C1=0 
210 I2=0 
220 I3=0 
230 J0=0 
240 N1=N 
250 K=66
260 B0=P 
270 A1=0 
280 A2=0 
290 IF INT(Y)<1 THEN 770  
300 FOR J0=1 TO INT(Y) 
310 IF J0<X THEN 440  
320 IF K+N+3<58 THEN 430  
330 FOR K1=K TO 66 
340 PRINT 
350 NEXT K1 
360 PRINT 
370 PRINT "                      mORTGAGE AMORTIZATION TABLE" 
380 PRINT "           PRINCIPAL $";P;"    AT";I*100; "%   FOR";Y; "YEARS" 
390 PRINT "                      REGULAR PAYMENT = $";R 
400 PRINT 
410 PRINT  "NO.   "; "INTEREST", "AMORTIZED", "BALANCE", "ACCUM INTEREST" 
420 K=7 
430 K=K+N+3 
440 FOR J1=1  TO N1 
450 I1=INT((B0*I/N)*100+.5)/100
460 C1=C1+1 
470 A=R-I1 
480 A1=A1+A
490 B0=P-A1 
500 IF C1<>N*Y THEN 550  
510 R=R+B0 
520 A=A+B0 
530 A1=A1+B0 
540 B0=0 
550 I2=I2+I1 
560 I3=I3+I1 
570 A2=A2+A 
580 IF J0<X THEN 610  
590 PRINT J1;"   ";INT(I1*100+.5)/100,INT(A*100+.5)/100,
600 PRINT INT(B0*100+.5)/100,INT(I2*100+.5)/100
610 NEXT J1 
620 IF C1<>N*Y THEN 650  
630 PRINT
640 PRINT  "      lAST PAYMENT = $";INT(R*100+.5)/100 
650 IF J0<X THEN 710  
660 PRINT 
670 J9=J0
680 IF J0>Y THEN J9=J0-1
690 PRINT "YR. ";J9;INT(I3*100+.5)/100,INT(A2*100+.5)/100
700 PRINT 
710 IF J0>Y THEN 800  
720 IF B0=0 THEN 800  
730 I3=0 
740 A2=0 
750 NEXT J0 
760 IF J0=Y THEN 800  
770 N1=((Y-INT(Y))*12)/12*N 
780 J0=J0+1
790 GOTO 310  
800 PRINT 
810 PRINT "CHANGE DATA AND RECOMPUTE? (1=YES, 0=N0)"; 
820 INPUT Z 
830 IF Z=1 THEN 50   
840 END