14 lines
291 B
Plaintext
14 lines
291 B
Plaintext
100 CLS
|
|
110 FOR N = 0 TO 15: GOSUB 130: PRINT FIBOI; : NEXT N
|
|
120 END
|
|
130 REM Iterative Fibonacci sequence
|
|
140 N1 = 0
|
|
150 N2 = 1
|
|
160 FOR K = 1 TO ABS(N)
|
|
170 SUM = N1 + N2
|
|
180 N1 = N2
|
|
190 N2 = SUM
|
|
200 NEXT K
|
|
210 IF N < 0 THEN FIBOI = N1 * ((-1) ^ ((-N) + 1)) ELSE FIBOI = N1
|
|
220 RETURN
|