do 600 a=linein() b=length(a) s=0 do i=1 to b s=s+c2d(substr(a,i,1)) end say d2c(s%b) end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page