Hi, Steve

Sorry ... I couldn't recognise this one ... which is running fine.

Code:
' One-wire temperature for PROTON Board and DS1820
Include "PROTON_4.INC"
 
Dim Temperature As Word ' Temperature storage
Dim Count_remain As Byte ' Count remaining
Dim Count_per_c As Byte ' Count per degree C
Dim Dum As Byte ' Dummy variable to pad OWIN
Symbol DQ = PORTC.0 ' One-wire data pin
DelayMS 500 ' Wait for PICmicro to stabilise
Cls
Mainloop: 
OWrite DQ, 1, [$CC, $44] ' Start temperature conversion
While ORead DQ, 4 = 0 : Wend ' Check for still busy converting
OWrite DQ, 1, [$CC, $BE] ' Read the Temperature
ORead DQ, 0, [Temperature.LowByte, Temperature.HighByte, Dum,Dum,Dum,Dum, Count_remain, Count_per_c]
' Calculate temperature in degrees C to 2 decimal places (not valid for negative temperature)
Temperature = (((Temperature >> 1) * 100) - 25) + (((Count_per_c - Count_remain) * 100) / Count_per_c)
Print $FE, 1, Dec (Temperature / 100), ".", Dec2 Temperature, " C"
' Calculate temperature in degrees F to 2 decimal places (not valid for negative temperature)
Temperature = (Temperature */ 461) + 3200
Print $FE, $C0, Dec (Temperature / 100), ".", Dec2 Temperature, " F"
DelayMS 1000 ' Display once a second
GoTo Mainloop ' Do it forever
mackrackit

Are you using Pic Basic (PRO) ?
jeroeni
Yeah, I'm using the pro version
Ok, Ok ...