$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 60
$baud = 2400

Open "comc.7:2400,8,n,1" For Output As #1
Open "comc.0:2400,8,n,1" For Input As #2

Config Lcd = 16 * 2 'Lcd
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , E = Portb.0 , Rs = Porta.0
Config Lcdbus = 4 'Lcd Bus
Cursor Off

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc 'ADC Gonfig



Dim Daten As Byte

Do
Daten = Inkey(#2)
Print Daten
Loop

Irgendwie sehen die Daten dann ganz anders aus als wenn ich sie direkt empfange.
Habe auch schon waitkey ausprobiert mit dem selben Ergebnis.