anchor.diff:  	set sw=%~1
   	call set info=%%~%sw%2
   	::echo.info="%info%"
  -	ENDLOCAL & IF "%~3" NEQ "" SET %~3=%info%
  +	ENDLOCAL & IF "%~3" NEQ "" SET %3=%info%
   exit /b !ERRORLEVEL!
   
   :ESCAPE_SCHARS_STR
  
positive.code: 	set str=%~1
  	for %%f in (%schars%) do (
      set str="!str:%%f=^%%f!"  
  	ENDLOCAL & IF "%~2" NEQ "" SET %~2=%str%                  
  exit /b !ERRORLEVEL!
  
  :NEWDATENAME
      for /f "delims=:., tokens=1-4" %%m in ("%TIME: =0%") do (
          echo %1-%date:~6,4%-%date:~3,2%-%date:~0,2%-%%m%%n%%o%%p
      )
  exit /b !ERRORLEVEL!
  
  :UNQ
  
negative.code: 	set extract_cmd="%ProgramFiles%\WinRAR\winrar.exe"
  	set "rar_keys=-r -y -o- -ad -IBCK -INUL -x*\Thumbs.db"
  	set SRCDIR=%~dp1
      set FILENAME=%~1
      set DEST=%~2
      set WORKPATH=%~3
      call set DESTDIR=%%DEST%%%%SRCDIR:%WORKPATH%=%%
      if not exist "%DESTDIR%" ( md "%DESTDIR%" || exit /b )
  	echo.Extracting file "%FILENAME%"
  	%extract_cmd% x %rar_keys% -- "%FILENAME%" "%DESTDIR%" 2>NUL
  	if errorlevel 1 ( @echo.ERROR! Process %extract_cmd% failed. Code: %errorlevel% )
  