Data commit

Task/Combinations/XBasic/combinations.basic

@@ -0,0 +1,22 @@
+PROGRAM	"Combinations"
+VERSION	"0.0000"
+
+DECLARE FUNCTION Entry ()
+DECLARE FUNCTION iterate (curr$, start, stp, depth)
+
+FUNCTION Entry ()
+n = 3
+m = 5
+outstr$ = ""
+iterate(outstr$, 0, m - 1, n - 1)
+
+END FUNCTION
+
+FUNCTION iterate (curr$, start, stp, depth)
+  FOR i = start TO stp
+  IF depth = 0 THEN PRINT curr$ + " " + STR$(i)
+  iterate(curr$ + " " + STR$(i), i + 1, stp, depth - 1)
+  NEXT i
+  RETURN
+END FUNCTION
+END PROGRAM