anchor.diff:  rem      
   ::         
   if %ErrorLevel%==0 (set Result="  "
  -goto MoveArchive) else (set Result=" - %ErrorLevel%"
  +goto Move_Archive) else (set Result=" - %ErrorLevel%"
   goto Error)
   
  -:MoveArchive
  +:Move_Archive
   rem      
   rem %DATE%   ( )
   rem       
  -move %PathScript%%DATE%.rar %Backup%
  +move %Path_Script%%DATE%.rar %Backup%
   rem        
   if exist %Backup%\%DATE%.rar (set Result="  ") else (set Result="  "
   goto Error)
   goto Log
   
  -:NoArchiveProgram
  +:No_Archive_Program
   set Result="   "
   goto Error
   
  -:NoSourceDir
  +:No_Source_Dir
   set Result="    "
   goto Error
   
  -:NoBackupDir
  +:No_Backup_Dir
   set Result="    "
   goto Error
   
  -:ExistBackup
  +:Exist_Backup
   set Result="    "
   goto Log
   
  
positive.code: rem %DATE%   ( )
  rem %TIME%   ( )
  rem %Result%  
  rem %LogFile%    
  rem %NumberStringsLog%   
  ::    
  rem "" http://www.cyberforum.ru/cmd-bat/thread1299615.html
  set "Logging=echo %DATE% %TIME% %Result% >> "%LogFile%""
  if exist "%LogFile%" (
   for /f %%i in ('"<"%LogFile%" find /c /v """') do (
    if %%i lss %NumberStringsLog% (
     %Logging%
    ) else (
     <"%LogFile%" more +1>.tmp
     >"%LogFile%" type .tmp
     del .tmp
     %Logging%
     )
  
negative.code: rem    
  ::       866 
  for /f "tokens=2 delims=:" %%i in ('chcp') do (
      set Prev_CP=%%i)
  rem   
  chcp 1251 > nul
  rem  
  