Data commit

Task/FizzBuzz/Cowgol/fizzbuzz-1.cowgol

@@ -0,0 +1,16 @@
+include "cowgol.coh";
+
+var i: uint8 := 1;
+while i <= 100 loop
+    if i % 15 == 0 then
+        print("FizzBuzz");
+    elseif i % 5 == 0 then
+        print("Buzz");
+    elseif i % 3 == 0 then
+        print("Fizz");
+    else
+        print_i8(i);
+    end if;
+    print_nl();
+    i := i + 1;
+end loop;

Task/FizzBuzz/Cowgol/fizzbuzz-2.cowgol

@@ -0,0 +1,42 @@
+include "cowgol.coh";
+
+var i: uint8 := 100;
+var fizz: uint8 := 3;
+var buzz: uint8 := 5;
+var dh: uint8 := '0';
+var dl: uint8 := '1';
+var prnum: uint8;
+
+while i != 0 loop
+    fizz := fizz - 1;
+    buzz := buzz - 1;
+    prnum := 1;
+
+    if fizz == 0 then
+        print("Fizz");
+        fizz := 3;
+        prnum := 0;
+    end if;
+
+    if buzz == 0 then
+        print("Buzz");
+        buzz := 5;
+        prnum := 0;
+    end if;
+
+    if prnum != 0 then
+        if dh != '0' then
+            print_char(dh);
+        end if;
+        print_char(dl);
+    end if;
+
+    dl := dl + 1;
+    if dl == ('9' + 1) then
+        dl := '0';
+        dh := dh + 1;
+    end if;
+
+    print_nl();
+    i := i - 1;
+end loop;