anarchy golf - the source code

Network mask v2 by Carlos Gutierrez(bin$)

do
input""a$
if"4"<a$end
b=!split(a$,docu$(),".")
for i=0to 4b=b+instr(bin$(val(docu$(i))*2),"0")-1next
?b
loop

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