asunder by *yuko*

dim o(123):q=64:do:p=peek(0)+1:o(p)=o(p)+1:q=q+!p:if o(q)?chr$(q-1),":",o(q)using"###"
loop

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

download

return to the top page