function checksum(statussw)
dim chk as long
for i1=0 to 16
chk=int(statussw)and 1
-->restituire chk
end function