if 符号 then'数据2=0-temptemp=(!BitAnd(数据1,65535)+4294901760)/10else数据2=数据1endif数据2显示=数据2/10数据1显示=数据1/10
数据1字符=!I2Bin( 数据1)数据2字符=!I2Bin( 数据2)temp字符=!I2Bin(temp)