Saving RFID Data

[Pesticida]

OK,

I must write this :
Control = $A1
For address = 0 to 1023
addr = address.lowbyte
control = $a0 + ( address.highbyte << 2 )
I2CRead sda, scl,Control, addr,[EEprom_Daten[Byte_Count]]
Pause 10
Byte_Count = Byte_Count + 1
if Byte_Count > 15 then
Byte_Count = 0
HSEROUT [DEC3 NextAdr-15, ": ",HEX2 EEprom_Daten[0],HEX2 EEprom_Daten[1],HEX2 EEprom_Daten[2],HEX2 EEprom_Daten[3],HEX2 EEprom_Daten[4],HEX2 EEprom_Daten[5],HEX2 EEprom_Daten[6],HEX2 EEprom_Daten[7],DEC2 EEprom_Daten[8],DEC2 EEprom_Daten[9],DEC2 EEprom_Daten[10],DEC2 EEprom_Daten[11],DEC2 EEprom_Daten[12],DEC2 EEprom_Daten[13],HEX2 EEprom_Daten[14],HEX2 EEprom_Daten[15],13,10]
endif
next address

Or I make again a mistake ?!

Regards Pesti