Tweetbox Sender

' TweetBox Sender
' Adam Robbins 2011

symbol DS18B20 = 0
symbol XBEE = 7
symbol HUMID = 7

symbol temp = w0
symbol tempMsb = b1
symbol tempLsb = b0
symbol humidv = w3

do
	count HUMID, 1000, humidv
	if humidv > 7500 then
	{
		high 0
		SEROUT XBEE,t4800,(255,254)
		low 0
	}
	endif
	readtemp12 DS18B20,temp
	high 0
	serout XBEE,t4800,(255)
	serout XBEE,t4800,(tempMsb)
	serout XBEE,t4800,(tempLsb)
	low 0
loop
end