Code:
$regfile = "m32def.dat"
$crystal = 16000000


'SDA und SCL definieren
Config Sda = Portc.1
Config Scl = Portc.0


Dim X As Word
Dim A As Byte
Dim B As Byte
Dim Lesen As Word
CLS

Do                                                          '

Input "Eingabe:" , X

I2cstart                                  
I2cwbyte &HA0                                              
I2cwbyte X                                
I2cstop                                  
Waitms 1000                                                 




'--- lesen vom EEprom ----


I2cstart                                    
I2cwbyte &HA0                                               
I2cstart                                    
I2cwbyte &HA1                               
I2crbyte X                                                   
I2cstop                                                     


Print Lesen

Loop
End
So sieht das Programm aus. Hab ich da evtl. einen Denkfehler gemacht?