to sht11 
i2c 64
end

to sht11.temp 
make "res i2c.leer 227 3
make "res (LSHIFT (ascii (item 1 item 1 :res)) 8) + BITAND (ascii (item 2 item 1 :res)) 252
make "res :res * 175.72
make "res :res / 65536
make "res :res - 46.85
op :res
end

to sht11.hum 
make "res i2c.leer 229 3
make "res (LSHIFT (ascii (item 1 item 1 :res)) 8) + BITAND (ascii (item 2 item 1 :res)) 252
make "res :res * 125
make "res :res / 65536
make "res :res - 6
op :res
end