anchor.diff:  set "^!=^^^^^^^!"	&:# Define a %!%DelayedExpansion%!% variable
   set "'^!=^^^!"		&:# Idem, but inside a quoted string
   set ">=^^^>"		&:# Insert a redirection character
  +set "<=^^^<"		&:# Insert a redirection character
   set "&=^^^&"		&:# Insert a command separator in a macro
   :# Idem, to be expanded twice, for use in macros within macros
   set "^!2=^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!"
  
positive.code: call :trimright "%~1" "%~2"
  %UPVAR% %~1
  %RETURN%
  
  :#----------------------------------------------------------------------------#
  :#                                                                            #
  
negative.code: :#   2010-11-16     Changed.                                                  #
  :#   2012-10-08 JFL Adapted to my %FUNCTION% library.                         #
  :#   2015-11-19 JFL Adapted to new %UPVAR% mechanism.                         #
  :#   2016-11-11 JFL Avoid copying the input string. 5% faster.		      #
  :#                  Added routine :strlen.q. No tracing but twice as fast.    #
  :#                                                                            #
  :#----------------------------------------------------------------------------#
  
  :strlen stringVar lenVar                -- returns the length of a string
  %FUNCTION% EnableDelayedExpansion
  if "%~2"=="" %RETURN% 1 &:# Missing argument
  %UPVAR% %~2
  set "%~2=0"
  if defined %~1 for /l %%b in (12,-1,0) do (
    set /a "i=(%~2|(1<<%%b))-1"
    for %%i in (!i!) do if not "!%~1:~%%i!"=="" set /a "%~2=%%i+1"
  )
  %RETURN%
  
  :strlen.q stringVar lenVar                -- returns the length of a string
  setlocal EnableDelayedExpansion
  set "len=0"
  if defined %~1 for /l %%b in (12,-1,0) do (
    set /a "i=(len|(1<<%%b))-1"
    for %%i in (!i!) do if not "!%~1:~%%i!"=="" set /a "len=%%i+1"
  )
  endlocal & if "%~2" neq "" set "%~2=%len%"
  exit /b
  
  :#----------------------------------------------------------------------------#
  :#                                                                            #
  