# input and return value is found in $strip_me
:stripTrailingWhitespace
  # Look for empty string.  Return the same.
  getLength $strip_me $me_length
  if (0 = $me_length)
    return
  end
  setVar $newString ""
  setVar $strip_wc 1
  setVar $done 0
  while (0 = $done)
    getWord $strip_me $a_word $strip_wc
    if ($a_word <> 0)
      # Found a word!
      if (1 = $strip_wc)
        # First word.  Set it first word.
        setVar $newString $a_Word
      else
        # Not the first word.  Add a space and the next word.
        # Bad news bears - multiple spaces not accounted for
        setVar $newString $newString & " " & $a_word
      end
      add $strip_wc 1
    else
      setVar $done 1
    end
  end
  # Actual word count, if needed
  subtract $strip_wc 1
  setVar $strip_me $newString
  # Patch up null string.  Any null string here is actually a 0.
  getLength $strip_me $me_length
  if (0 = $me_length)
    setVar $strip_me "0"
  end
return