RosettaCodeData/Task/Fibonacci-sequence/Liberty-BASIC/fibonacci-sequence-1.basic

for i = 0 to 15
    print fiboR(i),fiboI(i)
next i

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

function fiboI(n)
    a = 0
    b = 1
    for i = 1 to n
        temp = a + b
        a = b
        b = temp
    next i
    fiboI = a
end function