So, habe es nochmal versucht, hier das Ergebnis:

Ò8x4102Ã1ÄÅ
Òx84q02ƒ1Ä
Å
Ò8
x410rÃ1„Å
’884102Ã1ÄÅ
Òx84q02
Ã1ÄÅ
Ò884102Ã1Ä…
Ò8x41p
2Ã1„Å
Ò8x
4102Ã1ÄÅ
Ò8x41p2ÃqÄÅ


Mit Folgendem Code ( Also eine Zeile entspricht einem Scan ) Rauskommen sollte eigentlich R884102C1DE,
Mir ist aufgefallen, dass z.B. bei:
Ò884102Ã1Ä…
’884102Ã1ÄÅ

Die Zahlen ja stimmen, aber was ist mit den Buchstaben, woran liegt das, die Ascii Tabelle ist ja überall gleich?

Achja der Code
[code]
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600

Dim Flag As Byte
Dim Temp As Byte
Dim Dat As String * 20

Config Serialin = Buffered , Size = 20
Enable Interrupts
Do
Gosub Datenemphang
loop


Datenemphang:

Waitms 20
Dat = ""


Do 'Auf Echo warten
temp = Inkey()
If temp <> 0 Then Dat = Dat + Chr(temp)

Loop Until Temp = 0

If Dat <> "" Then
Print Dat
End If



Return