LCD 40*4 zeigt nur in 3. Zeile ein Block

Hab jetzt nachfolgenden Code (auch aus einem Beispiel im Bezug auf Michaels Post).

Beim Code komplilieren komt nun folgende Fehlermeldung:

Code:

Error 31 / Line 43 / Invalid Datatype [[0011] 0]
Error 93 / Line 43 / Variable not dimensioned [0 -> 0]
Error 31 / Line 43 / Invalid Datatype [[0011] 0]
Error 93 / Line 43 / Variable not dimensioned [0 -> 0]

-> Line 43 wäre "End"... kP ?!?

Code:

$regfile = "m8def.dat"
$framesize = 24
$swstack = 8
$hwstack = 32
$crystal = 16000000                                         ' 16 MHz

Config Portb.0 = Output                                     ' LCD: DB7
Config Portb.1 = Output                                     ' LCD: DB6
Config Portb.2 = Output                                     ' LCD: DB5
Config Portb.3 = Output                                     ' LCD: DB4
Config Portb.4 = Output                                     ' LCD: E
Config Portb.5 = Output                                     ' LCD: E2
Config Portd.5 = Output                                     ' LCD: RS

Config Lcd = 40 * 4
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , E2 = Portb.5 , Rs = Portd.5

Dim ___lcdno As Byte

___lcdno = 0
Initlcd
Cursor Off
Cls
___lcdno = 1
Initlcd
Cursor Off
Cls

___lcdno = 0
Cls
Locate 1 , 1
Lcd "Zeile 1"
Locate 2 , 1
Lcd "Zeile 2"

___lcdno = 1
Cls
Locate 1 , 1
Lcd "Zeile 3"
Locate 2 , 1
Lcd "Zeile 4"

End