i was in a rush so correction to the following comments

For address = 0 TO 4 ' Loop 5 times

I2CWrite SDA,SCL,%10100000,address, [Data_In[address ]]
I2CRead SDA,SCL,%10100000,address,[Data_Out]


Toni