loop:
'READ SUB
'=======
HSerout [" send : "]
For address = 0 TO 3
I2CRead SDA,SCL,%10100000,address,[Data_Out]
if address < 3 then
Data_Send[address]=Data_Out
else
Data_Out=Data_Out >>4
Data_Send[address]=Data_Out
endif
Next address 'sends : AD28
HSerout [HEX1 Data_Send[0],HEX1 Data_Send[1],HEX1 Data_Send[2],HEX Data_Send[3]]
HSerout [10,13]
Pause 1000

GoTo loop

End
Or you could do something like this ..
i am not using the manual at the moment but there are better ways of doing this