UPDATE:

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

Dim i As Byte

Do
If Ucsra.7 = 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
Habe nun zum Spielen einfach mal diesen Code genommen.

ucsra.7 ist immer auf 1 obwohl ich dem Chip nichts sende!

Der String Unbekannter Befehl wird aber korrekt übertragen.

Das senden von "h" oder "H" wird aber nicht beachtet.