Initial data commit

Task/Farey-sequence/BASIC256/farey-sequence.basic

@@ -0,0 +1,34 @@
+for i = 1 to 11
+    print "F"; i; " = ";
+    call farey(i, FALSE)
+next i
+print
+for i = 100 to 1000 step 100
+    print "F"; i;
+    if i <> 1000 then print " "; else print "";
+    print " = ";
+    call farey(i, FALSE)
+next i
+end
+
+subroutine farey(n, descending)
+    a = 0 : b = 1 : c = 1 : d = n : k = 0
+    cont = 0
+
+    if descending = TRUE then
+        a = 1 : c = n -1
+    end if
+
+    cont += 1
+    if n < 12 then print a; "/"; b; " ";
+
+    while ((c <= n) and not descending) or ((a > 0) and descending)
+        aa = a : bb = b : cc = c : dd = d
+        k = (n + b) \ d
+        a = cc : b = dd : c = k * cc - aa : d = k * dd - bb
+        cont += 1
+        if n < 12 then print a; "/"; b; " ";
+    end while
+
+    if n < 12 then print else print rjust(cont,7)
+end subroutine