Function DS18x20(PinNbr As INTEGER) As FLOAT
' Extracted from DS18x20 test code by TassyJim
' Run that program and find the values that get your device to work.
' Copy those values into this Function
 Local INTEGER  t, T1, T2, done
 Local FLOAT Value=0

 OneWire RESET PinNbr                        ' reset before command
 OneWire WRITE PinNbr, 8, 2, &hcc, &h44      ' start conversion

 t = Timer
 Do               'There should be a result in less than 1000mS
  If Timer - t > 1000 Then
    Value = 1000 'standard error code
    Print "*** Timeout ***",
    Exit Do
  EndIf

 OneWire READ PinNbr, 4 , 1 , done       ' conversion done?
 Loop Until done
'  Print Timer - t;" mS conversion time", 'un-comment this to see how long it took
 If Value = 0 Then ' we have not timed out yet, so assume data is valid
  OneWire WRITE PinNbr, 1, 2, &hcc, &hbe      ' command read data
  OneWire READ PinNbr, 2, 2, T1, T2           ' get the data

  OneWire RESET PinNbr
   If T2 And &b1000 Then       'negative temp
     'make 2s complement (1s complement+1)
     T2 = (T2 Xor &hFF)
   T1 = (T1 Xor &hFF)+1

   If T1=1 Then T2=T2+1        'add the carry if required
     Value = -((T2 And &b111) * 256 + T1) / 16 'adjust this if the temp. is wrong
    Else                            'positive temp
     Value = ((T2 And &b111) * 256 + T1) / 16 'adjust this if the temp. is wrong
   EndIf
 EndIf
 DS18x20 = Value
End Function