So hat das Programm ausgesehen, und bei Deflcdchar 5 kam dieser Fehler beim compilieren, wenn ich die ganzen Def.. auskommentiere oder lösche ist er weg.

$regfile = "M128def.dat"

$crystal = 2000000


Dim ___lcdno As Byte
Config Lcd = 40 * 4
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 , E2 = Portc.3 , Rs = Portc.1
Config Lcdbus = 4
Config Lcdmode = Por


Deflcdchar 0 , 32 , 1 , 3 , 7 , 15 , 31 , 31 , 31 ' replace ? with number (0-7)
Deflcdchar 1 , 16 , 24 , 28 , 30 , 31 , 31 , 31 , 31 ' replace ? with number (0-7)
Deflcdchar 2 , 31 , 31 , 31 , 31 , 15 , 7 , 3 , 1 ' replace ? with number (0-7)
Deflcdchar 3 , 31 , 31 , 31 , 31 , 30 , 28 , 24 , 16 ' replace ? with number (0-7)
Deflcdchar 4 , 31 , 31 , 32 , 32 , 32 , 32 , 32 , 32 ' replace ? with number (0-7)
Deflcdchar 5 , 32 , 32 , 32 , 32 , 32 , 32 , 31 , 31 ' replace ? with number (0-7)
Cls

___lcdno = 0

Cls
Cursor Off


Lcd Chr(0)
Lcd Chr(2)


Do
Loop


End