Funktioniert immer noch nicht.
der code sieht jetzt so aus:
Code:
$regfile = "m16def.dat"

 $crystal = 12000000

 $hwstack = 32
$swstack = 10
$framesize = 40

 Config Porta = Output
 Config Portb = Output
 Config Portd = Output
 Config Lcd = 20 * 2
 Config Lcdpin = Pin , Port = Portb , E = Portd.4 , Rs = Portd.2
 Config Lcdbus = 8
  Enable Interrupts
Config Date = Dmy , Separator = .
Config Clock = Soft , Gosub = Sectic

Date$ = "14/02/11"
Time$ = "12:00:00"

 Porta = 1

 Initlcd
 Do
 Cls
 Lcd Time$
 Waitms 500
Loop
End

Sectic:
Toggle Porta.0
return