so, jetzt funktionierts zur zufriedenheit

Hier der Code

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 14745600
$baud = 9600


Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.4 , Db6 = Portc.5 , Db7 = Portc.6 , E = Portc.2 , Rs = Portc.0
Cls
Dim B1 As Byte
B1 = Waitkey()
Cls
Lcd B1
Waitms 1000

Cls
If B1 = 65 Then
Cls
Locate 1 , 1
Lcd "LED A"
Print "Empfangen A"
End IF
If B1 = 66 Then
Cls
Locate 1 , 1
Lcd "LED B"
Print "Empfangen B"
End If
If B1 = 67 Then
Cls
Locate 1 , 1
Lcd "LED Aus"
Print "Empfangen C"
End If

End



Vielen Dank für deine geduldige Hilfe