ow_reset(PORTA, 4)
       Delay_ms(10)
       ow_write(PORTA, 4, $0C)
       ow_write(PORTA, 4, 1)
       Delay_ms (15)
       ow_reset(PORTA,4)
       Delay_ms(10)
       ow_write(PORTA, 4, $AC)         
       zz = ow_read(PORTA, 4)
       Delay_ms(10)
       ow_reset(PORTA, 4)
       ow_write(PORTA, 4, $EE)
       ow_reset(PORTA, 4)
       Delay_ms(1000)
       
   while TRUE

     ow_reset(PORTA, 4)              
     'ow_write(PORTA, 4, $CC)        
     ow_write(PORTA, 4, $EE)         
     Delay_ms(1000)
     zz = 0

     while zz.7 = 0
         ow_reset(PORTA, 4)
         ow_write(PORTA, 4, $AC)
         zz = ow_read(PORTA, 4)
     wend
     
     ow_reset(PORTA, 4)
     ow_write(PORTA, 4, $AA)
     zz = ow_read(PORTA, 4)

     ow_reset(PORTA, 4)
     ow_write(PORTA, 4, $A0)
     v = ow_read(PORTA, 4)
     v = ow_read(PORTA, 4)
     
     ow_reset(PORTA, 4)
     ow_write(PORTA, 4, $41)
     ow_reset(PORTA, 4)
     ow_write(PORTA, 4, $A0)
     v2 = ow_read(PORTA, 4)
     v2 = ow_read(PORTA, 4)


	
     j1= zz

     if zz = 127 then
        PORTA.3 = 0
        j1 = 256 - zz
      else
        PORTA.3 = 1
      end if

	j = j1 div 100
      por[0] = Mask(j)
      j = j1 div 10 mod 10
      por[1] = Mask(j)
      j = j1 mod 10
      por[2] = Mask(j)

     Delay_ms(1000)
   wend