diff --git a/archive/a/algol60/quine.alg b/archive/a/algol60/quine.alg
new file mode 100644
index 000000000..b2e5f135b
--- /dev/null
+++ b/archive/a/algol60/quine.alg
@@ -0,0 +1 @@
+begin procedure q(a,b,c);string a,b,c;begin outstring(1,c);outchar(1,a,2);outchar(1,a,1);outchar(1,a,1);outstring(1,a);outchar(1,a,2);outchar(1,a,3);outchar(1,a,2);outstring(1,b);outchar(1,a,2);outchar(1,a,3);outchar(1,a,2);outstring(1,c);outchar(1,a,2);outstring(1,b) end q;q("\\\",",") end","begin procedure q(a,b,c);string a,b,c;begin outstring(1,c);outchar(1,a,2);outchar(1,a,1);outchar(1,a,1);outstring(1,a);outchar(1,a,2);outchar(1,a,3);outchar(1,a,2);outstring(1,b);outchar(1,a,2);outchar(1,a,3);outchar(1,a,2);outstring(1,c);outchar(1,a,2);outstring(1,b) end q;q(") end
\ No newline at end of file