Code:
DPIN Var PORTA.2       ' I2C data pin
CPIN Var PORTA.1       ' I2C clock pin
B0   Var word
B1   Var byte
B2   Var byte
X var byte
x=0


   For B0 = 0 To 15    
   b1=b2
     I2CWRITE DPIN,CPIN,$A0,B0,[99]  
     Pause 10        '
pause 100 
   Next B0


mainloop:


   For B0 = 0 To 15   
     I2CREAD DPIN,CPIN,$A0,B0,[X]  
     lcdout $fe, $1, dec b0, " ", dec X 
     pause 1000
   Next B0
 
   Goto mainloop
 
   End