Data commit

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

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