Dim Adress_loop As Byte                                
    Print  "i2c  ";
    For Adress_loop = 2 To 254 Step 2                        'Scan every even address
       I2cstart                                              'setup i2c bus
       I2cwbyte Adress_loop                                  'get result
       If Err = 0 Then                                       'err=hw problem
          Print Adress_loop ; "," ;                     'no error so device
       End If                                                'exits
       I2cstop                                               'stop bus
    Next Adress_loop                                         'loop through each sensor
    Print  ""