4 9 skip numbers by clock

object s,r
while 1do
s=0r=gets(0)-48for i=1to length(r)-1do
s=s*8+r[i]-(r[i]>4)end for
printf(1,"%d\n",s)end while

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

download

return to the top page