Achso, bin heute irgendwie was durch den wind Bild  
also alles deklahiert:
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Dim Days As Word
Dim Months As Word
Dim Years As Word
Dim Weekdays As Word
Days = Days + 6
Months = Months + 9
Years = Years + 2010



   Weekdays = Days Mod 7
   J = Months - 1
   J = Lookup(j , Monat)
   Weekdays = Weekdays + J
   J = Years \ 4
   J = J + Years
   J = J Mod 7
   Weekdays = Weekdays + J
   Weekdays = Weekdays + 6                                  'Jahrhunderziffer
   I = Years Mod 4 : If I = 0 Then If Years <> 0 Then J = 6 Else J = 0
   Weekdays = Weekdays + J
   Weekdays = Weekdays Mod 7

   Lcd_textbuffer1 = Lookupstr(weekdays , Weekday)

   Lcd_text = Lcd_textbuffer1 : Call Lcd_print(5 , 3 , Lcd_text)
Return

Monat:
Data 0 , 3 , 3 , 6 , 1 , 4 , 6 , 2 , 5 , 0 , 3 , 5

Weekday:
Data "So" , "Mo" , "Di" , "Mi" , "Do" , "Fr" , "Sa"
aber er hatt noch mit
Code:
   J = Months - 1
   J = Lookup(j , Monat)


probleme.

error 31 und 46.