anchor.diff:  if .%1.==./?. goto Help
   if %1==--call goto Call
   if %1==-d set "DEBUG=1" & goto nextarg
  -if %1==-f goto FindTclsh
  -if %1==-t goto TestSetup
  -if %1==-s goto CallSetup
  -if %1==-v set "VERBOSE=-v" & set RUNX=%COMSPEC% /c %ARG0% %VERBOSE% --call Run & goto nextarg
  +if %1==-f call :FindTclsh & exit /b
  +if %1==-t echo Please use TclSetup.bat instead & exit /b 1
  +if %1==-s echo Please use TclSetup.bat instead & exit /b 1
  +if %1==-v set "VERBOSE=-v" & goto nextarg
   if %1==-V (echo %VERSION%) & goto :eof
   if %1==-X set "NOEXEC=1" & goto nextarg
   goto start
  -
  -:# Call the setup routine. May update the parent cmd.exe PATHEXT variable.
  -:CallSetup
  -call :Setup
  -endlocal & set "PATHEXT=%PATHEXT%" & set "PATH=%PATH%" & exit /b 0
   
   :# Mechanism for calling a subroutine from the command line
   :Call
  
positive.code: echo Options:
  echo   -?        Display this help
  echo   -f        Find the latest tclsh*.exe, and display its pathname
  echo   -s        Setup Windows for running .tcl scripts with the latest tclsh
  echo   -t        Test the current setup. Tells if it's useful to use -s.
  goto :EOF
  
  :Main
  
negative.code: 
  set ARG0=%0
  set RUN=call :Run
  set RETURN=exit /b
  
  :# FOREACHLINE macro. (Change delimiter to none to catch the whole lines.)
  set FOREACHLINE=for /f "delims=" 
  