Code:
'Einstellung der Baudrate:
$Baud = 9600

Dim Text As String * 20                                     'Oder mehr, je nach Anwendung
Dim Buchstabe As String * 1
Dim A As Byte
Dim Zeichen As Byte

waitms 100

Input "Eingabe" , Text
For A = 1 To Len(text)
Buchstabe = Mid(text , A , 1)
Zeichen = Asc(buchstabe)
Writeeeprom A , Zeichen
Next A

End
^^ ist doch bisserl umständlicher als ich zunächst geschrieben hatte. sorry.
So funktionierts jetzt aber.

Wenn du in Bascom Programmierst kannst du übrigens darüber direkt das EEPROM auslesen (und auch das Programm brennen)