'******************************************* '***************************************** $regfile = "m8def.dat" $crystal = 3686400 'CPU 1000000 $baud = 9600 Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4 $lib "mcsbyte.lbx" 'use byte library for smaller code Config Lcd = 24 * 2 'Config Pinb.0 = Output 'Dim I As Byte 'Dim C As String * 24 Dim Zeile1 As String * 24 Dim Zeile2 As String * 24 '------------------------- ' Hauptprogramm '------------------------- Initlcd Cls Upperline Lcd "9600 Baud, 8 Bit, 1 Stop" Wait 1 'echo off Cls Lcd "Eingabe:" Do Zeile1 = Zeile2 Input Zeile2 ' Cls Locate 1 , 1 Lcd Zeile1 ; " " Locate 2 , 1 Lcd Zeile2 ; " " Loop End ' ende Hauptprogramm