nicht den Stack manipulieren und es verschlimmbessern, sondern einfach die Struktur aufräumen.

Programmierregel Nummer Eins: "Verwende niemals nie GOTO!"

Anbei ungetesteter Code:
Code:
Do
   S = ""
   WHILE Len(s) < 3
       Empfangen
   WEND
   Senden
   Text = S
Loop


Sub Empfangen
  Print "Empfange"
  Call Rf12_rxdata(maxchar)
  For Count = 1 To Maxchar
    Print Chr(rfdata(count)) ; "-";
  Next Count
  Print
End Sub