Danke - hast mir sehr geholfen. Muss es jetzt nur noch in das eigentliche Programm einbauen.
Poste noch mein Beispiel - vielleicht hilft es jemanden auch mal
Das Beispiel ist sehr einfach und nur aufs Eeprom bezogen.


$regfile = "m16def.dat"
$baud = 9600
$crystal = 16000000


Dim Auswahl As Bit
Input "Speichern, 0 Lesen, 1)" , Auswahl

If Auswahl = 0 Then
Goto Speichern
Elseif Auswahl = 1 Then
Goto Lesen
End If

Lesen:
Do
Dim Test As Single 'Preload für Sekundentakt
Readeeprom Test , 106
Print Test
Loop

Speichern:
Dim C As Single
C = 123.456
Test = C
Writeeeprom Test , 106
Goto Lesen