a = fib(" fibonacci ", "1,1")
a = fib("tribonacci ", "1,1,2")
a = fib("tetranacci ", "1,1,2,4")
a = fib(" pentanacc ", "1,1,2,4,8")
a = fib(" hexanacci ", "1,1,2,4,8,16")
a = fib("     lucas ", "2,1")

function fib(f$, s$)
dim f(20)
while word$(s$,b+1,",") <> ""
 b = b + 1
 f(b) = val(word$(s$,b,","))
wend
PRINT f$; "=>";
for i = b to 13 + b
  print " "; f(i-b+1); ",";
  for j = (i - b) + 1 to i
    f(i+1) = f(i+1) + f(j)
  next j
next i
print
end function