anarchy golf - the source code

ascending chars by pooq

do
v=peek(0)
if v+0^v>a?chr$(v);:a=v
if v<11?:a=0
loop

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