input""a$ if"decode"=a$do?chr$(dec(chr$(peek(0))+chr$(peek(0))));loop 1n=b b=peek(0) if!b<0?upper$(hex$(b));:goto 1 if n=52?"A"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page