input""a$ 1?a$:b=len(a$)-1:if b c$="":for j=1to b:c$=c$+str$(abs(val(mid$(a$,j,1))-val(mid$(a$,j+1,1))))next:a$=c$:goto 1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page