Ticket #79: atwords.btm

  rem -----------------------------------------------------------------------------------------------
  echo `@word[] and @words[] are smart enough to recognize a quoted string as one word--`
  set string=`one two "three four" five six`
  gosub ShowIt
  echo `But if the quoted string is the first word, @words[] returns the wrong count.`
  echo `Explicitly setting the word separator with '@words[" ",%string]'`
  echo `seems to work around the problem--`
  set string=`"one" two three four five six`
  gosub ShowIt
  echo `And it gets stranger. Just changing the capitalization changes the`
  echo `word count`
  set string=`"ONE" two three four five six`
  gosub ShowIt
  set string=`"One" two three four five six`
  gosub ShowIt
  echo `or try using numbers for words--`
  set string=`"one" 2 three four five six`
  gosub ShowIt
  set string=`"one" 2 3 4 5 6`
  gosub ShowIt
  echo `The @word[] function correctly identifies words in all cases,`
  echo `without needing to specify a word separator`
  quit

  :ShowIt
  echo `     the string is:`
  echo            %string
  echo `     "@words[%string]"      says there are `%@words[%string]` words in it`
  echo `     "@words[" ",%string]"  says there are `%@words[" ",%string]` words in it`
  rem  uncomment this if you want to see how @word parses the string
  rem     do ctr = 0 to 20
  rem        set aword=%@word[%ctr,%string]
  rem        if "%aword" eq "" leave
  rem        echo `           word `%ctr` is` %aword
  rem     enddo
  rem     echo `      which makes` %ctr `words`
  echo.
  return
  rem -----------------------------------------------------------------------------------------------