Move To Front Decode by pooq

t$="0123456789"
do
x=peek(0)-47
b$=mid$(t$,x+0^x,1)
?b$;
t$=b$+mid$(t$,1,x-1)+mid$(t$,x+1)loop

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

download

return to the top page