Sub calcChecksum16( myData() as Byte ) as Int
Dim myCheck as int 'use a 32-bit integer
myCheck =0 'or initial value
for k=0 to myData.length-1
If myData(k)>0 then
myCheck=myCheck+myData(k)
Else
myCheck=myCheck-myData(k)
End if
next
myCheck=Bit.And(myCheck,0xFFFF)
return ( myCheck )
End Sub