13 lines
287 B
Plaintext
13 lines
287 B
Plaintext
110 REM THE ARRAY F HOLDS THE FIBONACCI NUMBERS
|
|
120 DIM F(22)
|
|
130 LET F(0) = 0
|
|
140 LET F(1) = 1
|
|
150 LET N = 1
|
|
160 REM COMPUTE THE NEXT FIBBONACCI NUMBER
|
|
170 LET F(N+1) = F(N)+F(N-1)
|
|
180 LET N = N+1
|
|
190 PRINT F(N-2);
|
|
200 REM STOP AFTER PRINTING 20 NUMBERS
|
|
210 IF N < 22 THEN 170
|
|
220 END
|