RosettaCodeData/Task/Fibonacci-sequence/Run-BASIC/fibonacci-sequence.basic

for i = 0 to 10
 print i;" ";fibR(i);" ";fibI(i)
next i
end

 function fibR(n)
 if n < 2 then fibR = n else fibR = fibR(n-1) + fibR(n-2)
 end function

 function fibI(n)
   b = 1
   for i = 1 to n
       t = a + b
       a = b
       b = t
   next i
fibI = a
end function