Initial data commit

Task/Factorial/MAD/factorial.mad

@@ -0,0 +1,17 @@
+            NORMAL MODE IS INTEGER
+
+          R   CALCULATE FACTORIAL OF N
+            INTERNAL FUNCTION(N)
+            ENTRY TO FACT.
+            RES = 1
+            THROUGH FACMUL, FOR MUL = 2, 1, MUL.G.N
+FACMUL      RES = RES * MUL
+            FUNCTION RETURN RES
+            END OF FUNCTION
+
+          R   USE THE FUNCTION TO PRINT 0! THROUGH 12!
+            VECTOR VALUES FMT = $I2,6H ! IS ,I9*$
+            THROUGH PRNFAC, FOR NUM = 0, 1, NUM.G.12
+PRNFAC      PRINT FORMAT FMT, NUM, FACT.(NUM)
+
+            END OF PROGRAM