$regfile = "m32def.dat" $crystal = 7372800 $baud = 9600 Config Sda = Portc.1 Config Scl = Portc.0 I2cinit I2cstart Dim X As Integer Do I2creceive &H0D , X Print X Loop End