RS232 Datenmüll bei tiny2313

[Rofo88]

So funzt das bei mir

'004.BAS: UART-Empfänger ohne Interrupt
'Hardware: MAX232 an PD0/PD1, Nullmodemkabel zum PC
'---------------------------------------------------
$regfile = "ATtiny2313.dat"                                 'Tiny2313-Deklarationen
$crystal = 8000000                                          'Quarz: 8 MHz
$baud = 9600                                                'Baudrate der UART: 9600 Baud

Dim i As Byte


Do
If Usr.rxc = 1 Then                                         'Wenn Byte empfangen...
  I = Udr                                                   'Byte aus UART auslesen
  Select Case I
    Case "H"
      Print "Hallo AVR"
    Case "h"
      Print "hallo avr"
    Case Else
      Print "Unbekannter Befehl"
  End Select
End If

Waitms 200
Loop
End

MfG RoFo88