Data commit

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

@@ -0,0 +1,22 @@
+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

Task/Fibonacci-sequence/Liberty-BASIC/fibonacci-sequence-2.basic

@@ -0,0 +1,34 @@
+print "Rosetta Code - Fibonacci sequence": print
+print "  n             Fn"
+for x=-12 to 12 '68 max
+    print using("### ", x); using("##############", FibonacciTerm(x))
+next x
+print
+[start]
+input "Enter a term#: "; n$
+n$=lower$(trim$(n$))
+if n$="" then print "Program complete.": end
+print FibonacciTerm(val(n$))
+goto [start]
+
+function FibonacciTerm(n)
+    n=int(n)
+    FTa=0: FTb=1: FTc=-1
+    select case
+        case n=0  : FibonacciTerm=0  : exit function
+        case n=1  : FibonacciTerm=1  : exit function
+        case n=-1 : FibonacciTerm=-1 : exit function
+        case n>1
+            for x=2 to n
+                FibonacciTerm=FTa+FTb
+                FTa=FTb: FTb=FibonacciTerm
+            next x
+            exit function
+        case n<-1
+            for x=-2 to n step -1
+                FibonacciTerm=FTa+FTc
+                FTa=FTc: FTc=FibonacciTerm
+            next x
+            exit function
+    end select
+end function