'$LCD1
$crystal = 7372800
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4

Display On
Cls                                                         ' CLS = Clear and Reset LCD-Display!
Cursor Blink                                                ' CURSOR blinkt!

Lcd "Hello world!"                                          ' erste Zeile!
Locate 2 , 1                                                ' Cursor auf 2 Zeile, erstes Zeichen!
Lcd "LCD-Test"

End