DEF Fibonacci(MAX) IMAX=MAX DIM FIB%[IMAX] IF IMAX<2 THEN RETURN FIB%[0]=1:FIB%[1]=1 FOR I=1 TO IMAX FIB%[I]=FIB%[I-1]+FIB%[I-2] NEXT RETURN FIB% END