// I2C Finder connect to the I2C bus on the BV513
// NOTE: Pull up resistors required

function i2_finder
dim j
    print "8 bit address", "7 bit address"
    i2copen 100000
    for j = 2 to 240 step 2
        if i2ctest(j) = 1 then
            print "0x";hex$(j),,"0x";hex$(j/2)
        endif
    next
endf