Es gibt plötzlich Schwierigkeiten mit Inputbin. Nachdem ich im Code an anderer Stelle (für den Funk unwichtig) irgendwelche Änderungen/Ergänzungen vorgenommen habe und erneut compilierte, bekam ich nur noch FFFF....

Greife ich zurück auf Code, der zwar tadellos lief, mir aber als wenig elegant erschien, funktioniert wieder alles.

Es ist sehr rätselhaft, warum es auf einmal nicht mehr klappt. An dem Sendemodul war ich gar nicht dran. Ich werde das mal erforschen.

Also hier der narrensichere, immer funktionierende aber nicht sehr schöne Code:

Code:
Dim Empfang As String * 1 ,  Zeichen As Byte, Schicke As String * 1

Schicke = "!"
Printbin Schicke 
Waitms 100

'***** wichtig, vorher leeren!!!
Funk_anzeige = ""
Empfang = ""
  
Do
        Zeichen = Inkey()
        If Zeichen > 0 Then
            Empfang = Chr(zeichen)
            If Empfang = "A" Then
                Do
                    Zeichen = Inkey()
                    If Zeichen > 0 Then

                        Empfang = Chr(zeichen)
                        If Empfang = "A" Then Empfang = ""
                        If Empfang = "#" Then Exit Do
                        Funk_anzeige = Funk_anzeige + Empfang

                    End If
                Loop
            End If
        End If
    Loop Until Empfang = "#"
   Funk_anzeige = Trim(funk_anzeige)