WOW! Finally it works!

Code:
x var word
y var byte
adr var byte
sda var portc.0
scl var portc.1
lcdout $fe, $01, " "
adr=160


for X=0 to 5 
I2CWrite sda, scl, adr, x, [x.lowbyte]
lcdout $fe, $14, dec x


pause 100
next
pause 500
lcdout $fe, $1, "Complete:" 
lcdout $fe, $c0, " "
pause 500


for x=0 to 5  
i2cread sda, scl, adr, x, [y]
lcdout $fe, $14, dec y
pause 100
next
stop
That's very good, this means now I can do a lot of LCD things!

Thanks everyone!

by the way, I tried to write 160 directly, instead of adr - also works.