10 PRINT "EARNED INTEREST TABLE"
20 PRINT
29 REM - STATEMENTS 30 TO 230 REQUEST USER INPUT
30 PRINT "PRINCIPAL";
40 INPUT P
50 PRINT "NOMINAL INTEREST RATE";
60 INPUT I
69 REM - CONVERT PERCENT TO DECIMAL
70 I=I/100 
80 PRINT "NUMBER OF DEPOSITS/WITHDRAWALS PER YEAR";
90 INPUT N1
99 REM - DON'T ASK FOR AMOUNT IF FREQUENCY IS ZERO
100 IF N1=0 THEN 160
108 REM - DEPOSITS ARE ENTERED AS A POSITIVE NUMBER
109 REM - WITHDRAWALS ARE ENTERED AS A NEGATIVE NUMBER
110 PRINT "AMOUNT OF DEPOSIT/WITHDRAWAL";
120 INPUT R
129 REM - INTEREST IS COMPOUNDED DAILY
130 N=360
139 REM - PRINT AT EACH DEPOSIT/WITHDRAWAL
140 L2=N1
150 GOTO 200
160 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR";
170 INPUT N
180 N1=0
189 REM - PRINT FOUR TIMES PER YEAR
190 L2=4
200 PRINT "START WITH WHAT YEAR";
210 INPUT X
220 PRINT "END PRINTING WITH WHAT YEAR?";
230 INPUT Y
239 REM - START PRINTING AT THE BEGINNING OF A YEAR
240 X=INT(X)
249 REM - INITIATE RUNNING TOTALS
250 B0=P
260 I1=0
270 I2=0
280 I3=0
290 K=66
300 P1=4
310 FOR J0=1 TO INT(Y)+1
319 REM - START PRINTING?
320 IF J0<X THEN 480
329 REM - TEST FOR END OF PAGE
330 IF K<55 THEN 470
339 REM - SPACE TO NEXT PAGE,PRINT HEADINGS(ASSUMED 66 LINES PER PAGE)
340 FOR K1=K TO 66
350 PRINT
360 NEXT K1
370 K=6
380 PRINT "                    EARNED INTEREST TABLE"
390 PRINT " PRINCIPAL $";P;"    AT";I*100;"% NOMINAL   FOR";Y;"YEARS"
399 REM - SKIP DEPOSIT/WITHDRAWAL HEADING IF THERE ARE NONE
400 IF N1=0 THEN 430
410 PRINT "REGULAR DEPOSIT/WITHDRAWAL $";R;"    ";N1;"TIMES PER YEAR"4 
419 REM - K COUNTS THE NUMBER OF PRINTED LINES PER PAGE
420 K=K+1
430 PRINT "          EFFECTIVE INTEREST RATE";(100*((1+I/N)^N-1));"
9999 END