Encoder decoder by yt

input""c$
if asc(c$)=101then
do
b$=b$+chr$(peek(0))
y=peek(0)
if(y<0)?b$+a$
a$=chr$(y)+a$loop
endif
for i=0to 1004a$=a$+chr$(peek(0))+" "next
for i=2012to 2step-2mid$(a$,i)=chr$(peek(0))next
?a$,"."

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

download

return to the top page