Initial data commit

Task/Multifactorial/IS-BASIC/multifactorial.basic

@@ -0,0 +1,17 @@
+100 PROGRAM "Multifac.bas"
+110 FOR I=1 TO 5
+120   PRINT "Degree";I;":";
+130   FOR N=1 TO 10
+140     PRINT MFACT(N,I);
+150   NEXT
+160   PRINT
+170 NEXT
+180 DEF MFACT(N,D)
+190   NUMERIC I,RES
+200   IF N<2 THEN LET MFACT=1:EXIT DEF
+210   LET RES=N
+220   FOR I=N-D TO 2 STEP-D
+230     LET RES=RES*I
+240   NEXT
+250   LET MFACT=RES
+260 END DEF