Kann ich machen, ist nichts besonderes:

Code:
$regfile = "m168def.dat"
$crystal = 16000000
$baud = 9600


Dim ___lcdno As Byte

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

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

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

   ___lcdno = 1
   Locate 1 , 1
   Lcd "Zeile 3"
   Locate 2 , 1
   Lcd "Zeile 4"
   'Waitms 500
Loop