Dim Parameter$(20)
Global Command$,ParameterCount

While Not Command$ = \"quit\"
 Color 100,255,100
 Cmd$ = Input$(\"Command: \")
 ParseCmd(Cmd$)
 Color 255,80,0
 Print \"> \" + Command$
 Color 255,125,0
 For i = 1 To ParameterCount
  Print \"   + \" + Parameter$(i)
 Next
 Print
Wend
End

Function ParseCmd(Cmd$)
 Cmd$ = Cmd$ + \" \"
 NextCommandMarks$ = \" ,|\"
 CommandBrackets$ = \"({[<>]})\"
 For i = 0 To 20 : Parameter$(i) = \"\" : Next
 Command$ = \"\"
 Length = Len(Cmd$)
 For i = 1 To Length
  Buffer$ = Mid$(Cmd$,i,1)
  If Instr(Left$(CommandBrackets$,Len(CommandBrackets$)/2),Buffer$) Then
   If ParamCount < 1 Then
    IsValue = 2
   EndIf
  EndIf
  If Instr(Mid$(CommandBrackets$,Len(CommandBrackets$)/2+1),Buffer$) Then
   If ParamCount < 2 Then
    IsValue = 0
   EndIf
  EndIf
  If Buffer$ = Chr$(34) Or Buffer$ = \"'\" Then
   IsValue = 1 - IsValue
   If (Not i = Length) Then
    If Not TempCmd$ = \"\" Then
     If IsValue = 1 Then TempCmd$ = TempCmd$
     Parameter$(ParamCount) = TempCmd$
     ParamCount = ParamCount + 1
     TempCmd$ = \"\"
    EndIf
   EndIf
  Else
   If IsValue = 1 Then
    TempCmd$ = TempCmd$ + Buffer$
   ElseIf IsValue = 2 Then
    If Not Instr(Left$(CommandBrackets$,Len(CommandBrackets$)/2),Buffer$) Then TempCmd$ = TempCmd$ + Buffer$
   Else
    If Not Instr(CommandBrackets$,Buffer$) Then
     If Instr(NextCommandMarks$,Buffer$) Then
      If Not i = 1 Then
       If Not Instr(NextCommandMarks,Mid$(Cmd$,i-1,1)) Then
        If Not TempCmd$ = \"\" Then
         Parameter$(ParamCount) = TempCmd$
         ParamCount = ParamCount + 1
         TempCmd$ = \"\"
        EndIf
       EndIf
      Else
       If Not TempCmd$ = \"\" Then
        Parameter$(ParamCount) = TempCmd$
        ParamCount = ParamCount + 1
        TempCmd$ = \"\"
       EndIf
      EndIf
     Else
      TempCmd$ = TempCmd$ + Buffer$
     EndIf
    Else
     If Not TempCmd$ = \"\" Then
      Parameter$(ParamCount) = TempCmd$
      ParamCount = ParamCount + 1
      TempCmd$ = \"\"
     EndIf
    EndIf
   EndIf
  EndIf
 Next
 If Not TempCmd$ = \"\" Then
  Parameter$(ParamCount) = TempCmd$
  ParamCount = ParamCount + 1
 EndIf
 parametercount = ParamCount - 1
 Command$ = Parameter$(0)
End Function

• Befehl Parameter1, Parameter2
  
• Befehl Parameter1 Parameter2
  
• Befehl Parameter1 | Parameter2
  
• Befehl (Parameter1, Parameter2)
  
• Befehl {Parameter, Parameter2}
  
• Befehl <Parameter1 Parameter2>
  
• Befehl ("Ganze Sätze möglich!",Parameter2 [,"optionaler Parameter 3"])
  
• "Befehl mit vier Worten" [Parameter1, Parameter2]
  
• <Noch ein Befehl> <Parameter1, Parameter2>