LCD 2x16 z Atmega8, niewyraźne litery po pierwszym znaku, BASCOM – co sprawdzić?

$regfile = "m8def.dat"
$crystal = 16000000
$baud = 9600

Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5

Dim Znak As String * 1

Wait 5

Do
Cls
Lcd "Podaj znak"
Input Znak
Print Znak
Loop
End

$regfile = "m8def.dat"
$crystal = 16000000
$baud = 9600

Config Pind.2 = Output

Config Lcd = 16 * 2

Config Serialin = Buffered , Size = 1

Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5

Dim Znak As String * 1

Wait 5

Cls

Lcd "Podaj znak"

Reset Portd.2

Input "Podaj znak" , Znak

Cls

Print Znak

Lcd "Odebralem " ; Znak

Do

Loop

End 

import serial
ser = serial.Serial(8, 9600)
ser.write("12")     
ser.close()