Initial data commit

Task/Van-der-Corput-sequence/Yabasic/van-der-corput-sequence.basic

@@ -0,0 +1,26 @@
+sub num_base$(number, base)
+    if _base_ > 9 then
+        print "base not handled by function"
+        sleep 5000
+        return ""
+    end if
+
+    while number <> 0
+        n = mod(number, base)
+        ans$ = str$(n) + ans$
+        number = int(number / base)
+    wend
+
+    if ans$ = "" then ans$ = "0" : fi
+
+    return "." + ans$
+end sub
+
+for k = 2 to 5
+    print "Base = ", k
+    for l = 0 to 12
+        print left$(num_base$(l, k), 7), "  ";
+    next l
+    print : print
+next k
+end