Data commit

Task/FizzBuzz/NATURAL/fizzbuzz.natural

@@ -0,0 +1,33 @@
+DEFINE DATA
+LOCAL
+1 #I       (I4)
+1 #MODULO  (I4)
+1 #DIVISOR (I4)
+1 #OUT     (A10)
+END-DEFINE
+*
+FOR #I := 1 TO 100
+  #DIVISOR := 15
+  #OUT := 'FizzBuzz'
+  PERFORM MODULO
+*
+  #DIVISOR := 5
+  #OUT := 'Buzz'
+  PERFORM MODULO
+*
+  #DIVISOR := 3
+  #OUT := 'Fizz'
+  PERFORM MODULO
+*
+  WRITE #I
+END-FOR
+*
+DEFINE SUBROUTINE MODULO
+#MODULO := #I - (#I / #DIVISOR) * #DIVISOR
+IF #MODULO = 0
+  WRITE NOTITLE #OUT
+  ESCAPE TOP
+END-IF
+END-SUBROUTINE
+*
+END