Hallo Dirk,

habe es jetzt so gemacht, natürlich auch mit Hilfe :

Code:
Dim E_dat As Byte
Dim E_str1 As String * 16
Dim E_str(20) As Byte At E_str1 Overlay
Dim Idx1 As Byte

'---------------------------------------------------------------------------
 Taster3:
  If Pina.5 = 1 Then
  Idx1 = 1
  Print "Testing I2C Eeprom"
      For E_addr = &H0 To &H0D
          Call E_read(e_addr , E_dat)
          E_str(idx1) = E_dat
          Incr Idx1
          Print = String(1 , E_dat)
          Print "Idx1 " ; Spc(10) ;  Idx1
          'Print Hex(e_dat) ; " " ; Spc(10) ; E_str1 ; " "

          Next E_addr
          Print "E_str(idx1)" ; Spc(10) ; String(1 , E_str(1))
          Print "E_str(idx2)" ; Spc(10) ; String(1 , E_str(2))
          Print "E_str(idx3)" ; Spc(10) ; String(1 , E_str(3))
          Print "E_str(idx4)" ; Spc(10) ; String(1 , E_str(4))
          Print "E_str(idx5)" ; Spc(10) ; String(1 , E_str(5))
          Print "E_str(idx6)" ; Spc(10) ; String(1 , E_str(6))
          Print "E_str(idx7)" ; Spc(10) ; String(1 , E_str(7))
          'E_str(idx1) = 0
           Print "TEXT aus Eram:" ; E_str1                                      '; String(1 , E_str1)

    End If
und jetzt funst es

Danke für Deine Hilfe!!!
Gruß MAT