Mark,

try the following:

B28 var word
Adr VAR Byte

B28=1245 ' Value to write
Adr=0 ' EEPROM Location to write to


I2CWRITE PORTB.4,PORTB.5,%10100000,Adr,[B28]
Pause 50
I2CREAD PORTB.4,PORTB.5,%10100000,Adr[B28]

PAUSE 50

LCDOut $FE,1,DEC5 B28
PAUSE 1000

For reference see PBP Manual Section 5.34 & 5.35

regards

Ralph