Zeichen empfangen

Neue Schaltung neues Glück :-)
Jetzt supckt der Terminal auch was aus:
(Hier ein Auszug aus der Log-File)

Habe Zeichen A empfangen!
Habe Zeichen ↨ empfangen!
Habe Zeichen B empfangen!
Habe Zeichen ↨ empfangen!
Habe Zeichen X empfangen!
Habe Zeichen ↨ empfangen!

Sieht soweit ganz gut aus, aber warum schreibt er direkt nach der Ausgabe noch eine Zeile mit so einem komischen ☼???

Tja, irgendwas binäres
Mach folgendes
if Zeichen >= 32 then print "habe" ; chr(zeichen);"empfangen"
else print "habe" ; str(zeichen);"empfangen"
end if
dann sehen wir weiter . Poste auf jeden Fall auch den aktuellen code

Nein daran liegt es nicht. Ich hab nur ASCII Zeichen >32 verwendet. Die zweite Zeile kommt automatsich!

z.B. ich tippe 65 ein und darauf kommt:

Habe Zeichen A empfangen!
Habe Zeichen ↨ empfangen!

Mein Code sieht aus wie folgt:

Code:

---

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600

Dim Zeichen As Byte
Zeichen = 0

Do
  Zeichen = Inkey()
  If Zeichen > 0 Then Print "Habe Zeichen " ; Chr(zeichen) ; " empfangen!"

 Loop
End

---