If Ischarwaiting() = 1 Then                              'Wenn ein Zeichen im Buffer der RS232 ansteht
      Empfangenes_byte = Waitkey()                          'Das empfangene Zeichen zwischenspeichern
      Empfangene_daten = Empfangene_daten + Empfangenes_byte       'Zusammensetzen des empfagnenen Strings
      Empfangene_daten = Ucase(empfangene_daten)            'Den String in Grossbuchstaben umwandeln

      If Empfangene_daten_bytes(14) > 0 Then                'Wenn die maximale Anzahl von 14 Zeichen empfangen worden sind,
         Empfangene_daten = ""                              'werden die beiden Variablen zurückgesetzt
         Empfangene_daten_bytes(14) = 0
      End If

      'SET-Parameter +X
      Vergleich_ok = Instr(empfangene_daten , Set_x_pos_text)       'Vergleich des Empfangs mit einer Variablen, die den festgelegten String enthält
      If Vergleich_ok = 1 Then                              'Ist der Vergleich 1, dann... ansonsten passiert hier nichts
         If Empfangene_daten_bytes(12) = 13 Then            'Warten, bis am Byte(12) ein CR(CarrigeReturn) ansteht

            Parameter_wert = Chr(empfangene_daten_bytes(8)) + Chr(empfangene_daten_bytes(9)) + Chr(empfangene_daten_bytes(10))       'Zusammensetzen der 3 Zeichen zu einem String

            Schwelle_x_pos = Val(parameter_wert)            'Den String in eine numerische Variable umwandeln
            If Schwelle_x_pos > 0 Then                      'Ist der empfangene Wert grösser 0, dann... ansonsten bleibt der alte Wert bestehen
               Writeeeprom Schwelle_x_pos , 2               'Speichern des neuen Wertes in das EEPROM
               Schwelle_x_pos = Offset_x + Schwelle_x_pos   'Dem neuen Wert wird noch der Offset hinzuaddiert / subtrahiert
               Waitms 50
               Print "<+X_OK>"                              'Senden der Rückmeldung für ein erfolgreiches speichern
            End If
            Empfangene_daten = ""                           'Rücksetzen des empfangenen Textes
            Empfangene_daten_bytes(12) = 0                  'Rücksetzen des Bytes(12) "CR"
         End If
      End If