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