// if device and clock are omitted, then the compiler defaults to  
// 18F452 @ 20MHz - they are just used here for clarity...
device = 18F452
clock = 20

// import modules...
include "ow.bas"
include "convert.bas"
include "usart.bas"

// on find event handler...
event OnFind()
    dim Index as byte
    USART.Write("FAMILY $", HexToStr(SearchFamily,2))
    USART.Write(" ($",HexToStr(SearchID(7),2),")")
    USART.Write(" ($")
    Index = 6
    repeat
       USART.Write(HexToStr(SearchID(Index),2))
       dec(Index)
    until Index = 0
    USART.Write(")",13,10)
end event
   
// working variables...
dim DeviceCount as byte    

// program start...
SetBaudrate(br115200)
SetPin(PORTC.0)
DeviceCount = Search(owSearchROM, OnFind)
USART.Write(DecToStr(DeviceCount), " device(s) found", 13, 10)