;Konsolenbefehlparser
;by IonPainter
;--------------------

Dim keyword$(100) ;Maximale Anzahl der Parameter + Befehl

; *** Eingabe ***

eingabe$ = Input$(\"Eingabe |> \")

; *** Parsen ***

temp1$ = Trim$(eingabe$) ;Leerzeichen am Anfang & Ende abschneiden...
temp2$ = Lower$(temp1$) + \" \" ;String in Kleinbuchstaben umwandeln & Leerzeichen anfügen

WortAnfang = 1

For i = 1 To Len(temp2$)

        If Mid$(temp2$, i, 1) = \" \" Then
                keywordcount = keywordcount + 1
                keyword$(keywordcount) = Mid$(temp2$, WortAnfang, i - WortAnfang)

                For x = i To Len(temp2$)
                        If Mid$(temp2$, x, 1) <> \" \" Then
                                WortAnfang = x
                                i = x
                                Exit
                        EndIf
                Next 

        EndIf

Next 

; *** Ausgabe ***

Print 
Print 
Print keywordcount + \" Schlüsselwörter\"
Print \"-------------------------------\"
Print 

Print \"Befehl: \"+keyword$(1)
Print
Print \"Parameter: \"
For i = 2 To keywordcount

        Print \"          \" + keyword$(i)

Next 
WaitKey()

;Hier könnten jetzt Befehle zur Verarbeitung stehen.
;Select keyword$(1)
;...
;End Select
;...