10 CLS
20 PRINT "EARNED INTEREST TABLE" 
30 DEFDBL A-Z
40 DEFSNG J,K
50 PRINT 
60 PRINT "PRINCIPAL"; 
70 INPUT P 
80 PRINT "NOMINAL INTEREST RATE"; 
90 INPUT I 
100 I=I/100 
110 PRINT "NUMBER OF DEPOSITS/WITHDRAWALS PER YEAR"; 
120 INPUT N1
130 IF N1=0 THEN 190  
140 PRINT "AMOUNT OF DEPOSIT/WITHDRAWAL"; 
150 INPUT R 
160 N=360
170 L2=N1
180 GOTO 230  
190 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR"; 
200 INPUT N 
210 N1=0 
220 L2=4 
230 PRINT "START WITH WHAT YEAR";
240 INPUT X 
250 PRINT "END PRINTING WITH WHAT YEAR"; 
260 INPUT Y 
270 X=INT(X) 
280 B0=P 
290 I1=0 
300 I2=0 
310 I3=0 
320 K=66 
330 P1=4 
340 FOR J0=1 TO INT(Y)+1
350 IF J0<X THEN 520  
360 IF K<55 THEN 510  
370 FOR K1=K TO 66
380 PRINT 
390 NEXT K1 
400 K=6 
410 PRINT "                     EARNED INTEREST TABLE" 
420 PRINT "       PRINCIPAL $";P;"     AT";I*100;"% NOMINAL  FOR";Y;"YEARS"
430 IF N1=0 THEN 460  
440 PRINT "REGULAR DEPOSIT/WITHDRAWAL $";R;"   ";N1" TIMES PER YEAR" 
450 K=K+1 
460 PRINT "           EFFECTIVE INTEREST RATE";
470 PRINT INT((100*((1+I/N)^N-1))*100+.5)/100;" % PER YEAR"
480 PRINT 
490 PRINT "YEAR","BALANCE","INTEREST","ACCUM. INTEREST" 
500 PRINT 
510 PRINT J0,
520 L1=1 
530 N2=1 
540 P2=1 
550 FOR J1=1 TO N 
560 IF N2>N1 THEN 600  
570 IF N2/N1>J1/N THEN 600  
580 B0=B0+R 
590 N2=N2+1 
600 B2=B0*(1+I/N) 
610 I1=B2-B0 
620 I3=I3+I1 
630 I2=I2+I1 
640 IF P2/P1>J1/N THEN 680  
650 I2=INT(I2*100+.5)/100
660 B2=INT(B2*100+.5)/100
670 P2=P2+1 
680 IF J0<X THEN 760  
690 IF J1/N<L1/L2 THEN 760  
700 L1=L1+1 
710 PRINT TAB(1+16);INT(B2*100+.5)/100,INT(I3*100+.5)/100,
720 PRINT INT(I2*100+.5)/100
730 I3=0 
740 K=K+1 
750 REM
760 B0=B2 
770 IF J0+J1/N-1>=Y THEN 830  
780 NEXT J1 
790 IF J0<X THEN 820  
800 PRINT 
810 K=K+1
820 NEXT J0 
830 PRINT 
840 PRINT "CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)"; 
850 INPUT Z 
860 PRINT 
870 IF Z=1 THEN 50   
880 END