W = 1wirecount()
Dsid1(1) = 1wsearchfirst()
Do
 Dsid2(1) = 1wsearchnext()
Loop Until Err = 1
Cls
'_________________________основной цикл программы________________________________________________________
Do
Gosub Convallt                                              'переходим на подпрограмму подачи запросов в датчик температуры
1wverify Dsid1(1)
X = 1                                                            'переменная номера строки дисплея
Gosub Temperature                                           'переходим на подпрограмму подсчета и вывода температуры на дисплей
1wverify Dsid2(1)
X = 2
Gosub Temperature
Loop
End
'_________________________________________________________________________________
Convallt:
 1wreset                                                   
 1wwrite &HCC                                            
 1wwrite &H44
 Waitms 750
Return                                                   
'----------------
Temperature:
If Err = 0 Then
1wwrite &HBE
Byte0 = 1wread()                                          
Byte1 = 1wread()                                           
If Byte1 >= 248 Then                                      
Byte0 = &HFF - Byte0
Byte1 = &HFF - Byte1
Signtemperatura = "-"
Else
Signtemperatura = "+"
End If
T1 = Byte0 / 16                                          
T2 = Byte1 * 16                                         
T1 = T1 + T2
If Signtemperatura = "-" Then Incr T1

If X = 1 Then T = "dat 1 "                              'подставляем имя датчика
If X = 2 Then T = "dat 2 "

Locate X , 1                                                'указываем куда вывести на дисплей
Lcd T ; Signtemperatura ; T1 ; "C" ; Chr(0) ; "   "        
End If
Return