Code:
Do
   Reset Watchdog' wenn man ihn nutzt
   Gosub Uhranzeigen ' wird jedesmal aufgerufen

   If Ischarwaiting() = 1 Then ' Wenn Zeichen über RS232 angekommen ist, dann dahin, sonst einfach mit Hauptschleife weitermachen
        Gosub Empfangen
   End If
Loop
End

Empfangen:
   A = Inkey()
   If A >= 13 Then ' alles kleiner 13 wird einfach abgeschnitten. Nutze ich hauptsächlich, da ich Werte im String übertrage
         If A = 13 Then
            Gosub Auswerten
         Else
            If Len(seingang) < Maxlaenge Then ' nicht, dass seingang "platzt" und die nächsten Variablen überschreibt
               Seingang = Seingang + Chr(a)
            End If
         End If
   End If
Return

Auswerten:
... '  hier der Code, um das Empfangene auszuwerten
...
...
return