Moin Moin!

Mein kleines Proggi funktioniert immer noch nicht so richtig:
Code:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600


Dim Zeichen As Byte
Zeichen = 0

Do

  Zeichen = Inkey()
  If Zeichen > 0 Then Print "Habe Zeichen " & Zeichen & " empfangen!"

Loop
End
Auf http://www.mikrocontroller.net/tutorial/uart hab ich etwas zu dem Thema gefunden:
beim ATmega8 gibt es für UBRR zwei Register: UBRRL (Low-Byte) und UBRRH (High-Byte). Im Normalfall steht im UBRRH 0, da der berechnete Wert kleiner als 256 ist und somit in UBRRL alleine passt.
Fehlt diese Anweisung in meinen Programm noch, oder hat das damit überhaupt nichts zu tun?
Bisher mach oben genanntes Programm folgendes: wennn ich mit dem Terminal Emulator vom Bascom auf "Send ASCII character" klicke und dann eine beliebige Zahl eintippe, wird diese gesendet und kurz darauf auch was empfangen (hab da so eine kleine Ststus LED)...
Leider wird dann im Terminal nix angezeigt!

Wo liegt der Fehler?