Nicht ausprobiert, daher keine Garantie:
Code:
Dim E_byte(14) As Byte
Dim E_str As String * 14 At E_byte(1) Overlay


For E_addr = &H0 To &H0D 
          Call E_read(e_addr , E_dat)
          E_byte(E_addr + 1) = E_dat 
          E_str1 = String(1 , E_dat) 
          Print Hex(e_dat) ; " " ; Spc(10) ; E_str1 ; " " 
          Next E_addr 
end if 

Print E_str
Gruß Dirk