do input""a$ if"4"<a$end b=!split(a$,docu$(),".") for i=0to 4b=b+mod(val(bin$(val(docu$(i)))),9)next ?b loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page