RS232 seltsames Verhalten....

[Thomas E.]

Ganz schnell geschossen:

$baud=19200
Dim Empangen as Byte
Cls
Locate 1,1
Lcd "Empangen:"
Do
     If Ischarwaiting() = 1 Then
          Empangen = Inkey()
          Locate 2,1
          Lcd Empangen
     End If
Loop
End