Initial data commit

Task/Combinations/IS-BASIC/combinations.basic

@@ -0,0 +1,20 @@
+100 PROGRAM "Combinat.bas"
+110 LET MMAX=3:LET NMAX=5
+120 NUMERIC COMB(0 TO MMAX)
+130 CALL GENERATE(1)
+140 DEF GENERATE(M)
+150   NUMERIC N,I
+160   IF M>MMAX THEN
+170     FOR I=1 TO MMAX
+180       PRINT COMB(I);
+190     NEXT
+200     PRINT
+220   ELSE
+230     FOR N=0 TO NMAX-1
+240       IF M=1 OR N>COMB(M-1) THEN
+250         LET COMB(M)=N
+260         CALL GENERATE(M+1)
+270       END IF
+280     NEXT
+290   END IF
+300 END DEF