Data commit

Task/FizzBuzz/M2000-Interpreter/fizzbuzz.m2000

@@ -0,0 +1,18 @@
+\\ one line, hard to read
+For i=1 to 100 {If i mod 3=0 Then {if i mod 5=0 Then Print "FizzBuzz",  Else Print "Fizz",} Else {if i mod 5=0 Then Print "Buzz", else print i, } } : Print
+
+\\ Better code
+For i=1 to 100 {
+      Push str$(i,0)+". "+if$(i mod 3=0->"Fizz","")+if$(i mod 5=0->"Buzz","")
+      If stackitem$()="" then Drop : Continue
+      Print Letter$
+}
+
+\\ Far Better Code
+For i=1 to 100 {
+      Printme(if$(i mod 3=0->"Fizz","")+if$(i mod 5=0->"Buzz",""))
+}
+Print
+Sub Printme(a$)
+      If a$<>"" Then Print a$, else Print i,
+End Sub