Ralph:

Thanks for the demo code, here is what the result was - pasted from the Hyperterminal window. (I added "writing:" to the string so I could see that it was becuse it was not writing anything that showed up on the screen.)
---------------------------------------------------------------------

** MCU started

** EEPROM written

writing:
writing:
writing:
writing:
writing:
writing:
writing:
writing:
writing:
writing:

--------------------------------------------------------------------------

Here is the code I used:

'--------------------------------------------------------------------------------

'Tom,

'on my DataLoggers I have 16F876 or 18F252 and 2x 24LC512.
'The following code is tested.
'could you give it a try and let us know what the result was?


' -----[ Fuses ]------------------------------------------------
@ __CONFIG _CONFIG1H, _OSC_INTIO67_1H
@ __CONFIG _CONFIG2H, _WDT_ON_2H & _WDTPS_128_2H
@ __CONFIG _CONFIG3H, _PBADEN_OFF_3H & _MCLRE_OFF_3H
@ __CONFIG _CONFIG4L, _LVP_OFF_4L & 0bfh ;_XINST_OFF_4L
'
' -----[ Includes/Defines ]---------------------------------------------------------
include "modedefs.bas" 'include serout defines

OSCCON=%01111000
DEFINE OSC 8
While OSCCON.2=0:Wend


SCL var PortC.5 ' I2C Clock
SDA var PortC.4 ' I2C Data
ROM0 CON $A0 ' EEPROM 0 Address
ADDR VAR word ' ROM Location
MonPort var PortC.6 ' Monitor Port
Mode con 16572 ' 4800 Baud 8N1 for Monitor Port

Test var byte[21] ' Test Array
I2Cdelay con 10 ' Delay after I2Cwrite

Temp var byte

CLEAR

SEROUT2 MonPort,Mode,[13,10,"** MCU started",13,10,13,10]

ADDR=100

I2CREAD SDA,SCL,ROM0,ADDR,[Temp]

IF Temp="*" THEN GOTO SkipWrite

I2CWRITE SDA,SCL,ROM0,ADDR,_
[$2A,$20,$54,$65,$73,$74,$20,$45,$45,$50,$52,$4F,_
$4D,$20,$2D,$2D,$3E,$20,$4F,$4B,$21]

PAUSE I2Cdelay

SEROUT2 MonPort,Mode,["** EEPROM written",13,10,13,10]

GOTO Loop

SkipWrite:

SEROUT2 MonPort,Mode,["** EEPROM write skipped",13,10,13,10]

I2CREAD SDA,SCL,ROM0,addr,[str test\21]

Loop:
SEROUT2 MonPort,Mode,["writing: ", STR Test\21,13,10]
PAUSE 1000
GOTO Loop

END

----------------------------------------------------------------


Is this what you expected?

Tom