Initial data commit

Task/Flatten-a-list/XBasic/flatten-a-list.basic

@@ -0,0 +1,16 @@
+PROGRAM	"Flatten a list"
+
+DECLARE FUNCTION  Entry ()
+
+FUNCTION  Entry ()
+  n$ = "[[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8 []]"
+  FOR i = 1 TO LEN(n$)
+    IF INSTR("[] ,",MID$(n$,i,1)) = 0 THEN
+      flatten$ = flatten$ + c$ + MID$(n$,i,1)
+      c$ = ", "
+    END IF
+  NEXT i
+  PRINT "[";flatten$;"]"
+END FUNCTION
+
+END PROGRAM