HERE IS THE CODES

DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 0
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 1
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
adcon1=7
kontwr CON %10100000
adr var byte
adr =0000
B2 VAR WORD
b2=0
B VAR WORD
B=185
loop:
if portb.0=0 then goto wrt
if portb.1=0 then goto wrd
goto loop

wrt:
lcdout $fe,1
lcdout "YAZILIYOR..."
I2CWRITE PORTC.4,PORTC.3,%10100001,adr,[B]
PAUSE 1000
lcdout $fe,1
lcdout "YAZILDI...."
GOTO LOOP

wrd:
I2CREAD PORTC.4,PORTC.3,kontwr,adr,[b2]
PAUSE 30
lcdout $fe,1
lcdout "OKUNAN:",#B2
GOTO LOOP
END

NOW IT'S WORKING GOOD