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