Ahh cool habs gerad verstanden hoffe ich
Code:
'-----------------------------------------------------------------------------------------

'name                     : eeprom2.bas

'copyright                : (c) 1995-2005, MCS Electronics

'purpose                  : shows how to use labels with READEEPROM

'micro                    : Mega48

'suited for demo          : yes

'commercial addon needed  : no

'-----------------------------------------------------------------------------------------



$regfile = "m48def.dat"                                     ' specify the used micro

$crystal = 4000000                                          ' used crystal frequency

$baud = 19200                                               ' use baud rate

$hwstack = 32                                               ' default use 32 for the hardware stack

$swstack = 10                                               ' default use 10 for the SW stack

$framesize = 40                                             ' default use 40 for the frame space





Dim B As Byte

Dim Yes As String * 1

Dim A As Word



$eeprom






Label1:

Data 1 , 2 , 3 , 4 , 5

Label2:

Data 10 , 20 , 30 , 40 , 50





$data






For A = 1 To 100
B = A
Writeeeprom B , Label1
Next A

For A = 1 To 200

Readeeprom B , Label1
Print A
Next A

End
Ist ein kleines Beispiel prog von mir