t$ = COMMAND$
WHILE t$ <> ""
  ' Split them to args
  p% = INSTR(t$, " ")
  IF p% = 0 THEN
    g$ = t$
    t$ = ""
  ELSE
    g$ = LEFT$(t$, p% - 1)
    t$ = LTRIM$(MID$(t$, p%))
  END IF
  ' extract switches
  isArg% = -1
  DO
    q% = INSTR(g$, "/")
    IF q% = 0 THEN
      a$ = g$
      g$ = ""
    ELSE
      a$ = LEFT$(g$, q% - 1)
      g$ = MID$(g$, q% + 1)
    END IF
    IF isArg% THEN
      IF a$ <> "" THEN
        PRINT "Argument "; a$; " passed"
      END IF
      isArg% = 0
    ELSE
      IF a$ = "" THEN
        PRINT "Usage syntax error"
        END
      END IF
      PRINT "Option switch /"; a$; " set"
    END IF
  LOOP UNTIL q% = 0
WEND