Befehls_zeichen = Inkey() ' Zeichen einlesen
If Befehls_zeichen = 36 Then Input , Befehlsdaten Noecho ' ist "$" vorhanden, dann Daten/HardUART einlesen >> Befehlsdaten
Befehls_header = Mid(befehlsdaten , 1 , 6) 'ersten 6 Zeichen nach Befehls_header einlesen
If Befehls_header = "KAPRIG" Then 'wenn KAPRIG Befehlssatz, dann
Befehls_anzahl = Split(befehlsdaten , Befehls_teilstring(1) , "#") 'aus Befehlsdaten in 5 Teilstrings/Arrays, getrennt durch "#", aufteilen
Befehlsdaten = "" 'befehlsdaten leeren
Gosub Commands ' Auswertung der Befehle/Teilstrings in Subroutine "commands"
End If
Lesezeichen