anarchy golf - the source code

duplicate certain lines _C_ by yt

do
e=peek(0)
if e<0 end
a$="":if e-10line input""a$:a$=chr$(e)+a$
c=1:while("d "=left$(a$,2))c=c+1:a$=mid$(a$,3)wend
for i=1to c?a$next
loop

Note that non-ascii characters in the above source code will be escaped (such as \x9f).