$regfile "m8def.dat" $crystal = 4000000 Config Portd = Output Config 1wire = Portb.0 Dim Temp(9) As Byte Dim X As Byte Dim Y As Byte Dim Celsius As Integer Dim Highbyte As Integer Dim Lowbyte As Integer Dim Tmp As Byte , T As Single , T1 As Integer Cls Do 1wreset 1wwrite &HCC 1wwrite &H44 Waitms 800 1wreset 1wwrite &HCC 1wwrite &HBE For X = 1 To 9 Temp(x) = 1wread() Next Celsius = Makeint(temp(1) , Temp(2)) Locate 1 , 1 Lcd Celsius Locate 2 , 1 Lcd Bin(celsius) T = Celsius / 16 Locate 3 , 1 Lcd Fusing(t , "##.#") Loop