Thats mean i must use something like this:

EraseEEprom= $A8
EEprom_Block = 0
Tmp_Daten = $00

EraseEEprom:
Erase_Loop:
for NextAdr = 0 to 255
I2CWrite sda,scl,EEprom_Adresse,NextAdr,[Tmp_Daten]
pause 10
Sound Buzzer,[122,1]
next NextAdr
EEprom_Adresse = EEprom_Adresse + 2
EEprom_Block = EEprom_Block + 1
if EEprom_Block => 4 then EEprom_Block = 0 : goto Exit_Loop2
goto Erase_Loop
Exit_Loop2:
Sound Buzzer,[122,250]
goto Main


Regards pesti