'------------------------- Standard-Init Compiler ------------------------------
$regfile = "M8def.dat"
$baud = 19200
$crystal = 8000000
$hwstack = 40                           ' default use 32 for the hardware stack
$swstack = 40                           ' default use 10 for the SW stack
$framesize = 40                         ' default use 40 for the frame space

Dim Sbyte As Byte                       'Byte-Variable
Dim I As Byte                           'ZähleFor-Schleife
Dim A As Byte                           'Hilfsbyte
Dim Sstring As Eram String * 20         'Bereic im EEPROM
Dim Ar(20) As Byte                      'Das Array

Declare Sub Readfor

' schreiben der Daten ins EEPROM

Sstring = " Guten Rutsch 08"

Call Readfor

End                                     'end program

' ------------------------- Subs und Functions ---------------------------------
Sub Readfor
    For I = 1 To 15
         Readeeprom A , I
         Ar(i) = A
         Print Chr(a);
    Next I
         Print
    For I = 1 To 15
         Print Chr(ar(i));
    Next I
End Sub