diff --git a/archive/a/algol60/fizz-buzz.alg b/archive/a/algol60/fizz-buzz.alg
new file mode 100644
index 000000000..367ef63f8
--- /dev/null
+++ b/archive/a/algol60/fizz-buzz.alg
@@ -0,0 +1,18 @@
+begin
+    integer procedure mod(x, n);
+    value x, n;
+    integer x, n;
+    begin
+        mod := x - n * (x % n)
+    end mod;
+
+    integer i;
+    for i := 1 step 1 until 100 do
+    begin
+        if mod(i, 15) = 0 then outstring(1, "FizzBuzz")
+        else if mod(i, 3) = 0 then outstring(1, "Fizz")
+        else if mod(i, 5) = 0 then outstring(1, "Buzz")
+        else outinteger(1, i);
+        outstring(1, "\n")
+    end
+end