'$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