do:if!k n=peek(0) k=sig(n-i)+0^n:i=i+k:?chr$(44-k+2*!k);loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page