$regfile "m8def.dat" $crystal = 4000000 Config Portd = Output Config Portb = Input Cls Home Cursor Off Lcd "**** Digi-Therm ****" Locate 2 , 1 Lcd " By A.Strohbehn" Locate 3 , 1 Lcd "Temperatur : C" Dim Temp As Byte Config 1wire = Portb.0 1wreset Do Temp = 1wread() Locate 4 , 1 Lcd Temp Wait 100 Loop