10 CLS
20 PRINT"ENTER FIRST TERM"
30 INPUT A
40 PRINT"ENTER SECOND TERM"
50 INPUT B
60 PRINT"MAXIMUM NUMBER OF TERMS ="
70 INPUT N
80 PRINT
90 PRINT"TABLE OF FIBONACCI NUMBERS"
100 PRINT"TERM NO.","FIBONACCI NUMBER"
110 LET K = 1
120 PRINTK,CDBL(A)
130 LET K = 2
140 PRINTK,CDBL(B)
150 LET K = K + 1
160 LET Q = A + B
170 PRINTK,CDBL(Q)
180 LET A = B
190 LET B = Q
200 IF K > = N THEN 220
210 GOTO 150
220 PRINT"MAXIMUM NUMBERS OF TERMS REACHED"
230 PRINT
240 PRINT"TYPE 1 TO CONTINUE,0 TO STOP"
250 INPUT L
260 IF L = 1 THEN 280
270 STOP
280 PRINT
290 GOTO 10
300 END
