$crystal = 16000000 $regfile = "m162def.dat" 'Lcd Initialisieren: Config Lcdpin = Pin , Db4 = Pd.7 , Db5 = Pd.6 , Db6 = Pd.5 , Db7 = Pd.4 , E = Pd.3 , Rs = Pd.2 Config Lcd = 20 * 4 Config Porta = Output Config Portb = Input Config Portc = Output Config Portd = Output Config Porte = Output Portb = 255 Main: If Pinb.0 = 1 Then Porta.0 = 0 Porta.1 = 1 End If End