Data commit

Task/Fibonacci-sequence/MAD/fibonacci-sequence.mad

@@ -0,0 +1,17 @@
+            NORMAL MODE IS INTEGER
+
+            INTERNAL FUNCTION(N)
+            ENTRY TO FIB.
+            A = 0
+            B = 1
+            THROUGH LOOP, FOR N=N, -1, N.E.0
+            C = A + B
+            A = B
+LOOP        B = C
+            FUNCTION RETURN A
+            END OF FUNCTION
+
+            THROUGH SHOW, FOR I=0, 1, I.GE.20
+SHOW        PRINT FORMAT FNUM, I, FIB.(I)
+            VECTOR VALUES FNUM = $4HFIB(,I2,4H) = ,I4*$
+            END OF PROGRAM