anchor.diff:  call:cropfilename fn "%~1" %TFN%
   set "origsize=%~2"
   set "optsize=%~3"
  -::set "change=%~4"
  -::call:calcperc %~z1 %change% perc
   set "measure="
   call:prepsize origsize measure
   call:prepsize2 optsize measure
  
positive.code: set "TotalSize%~1=0"
  set "ImageSize%~1=0"
  set /a "change%~1=(!SImageSize%~1!-!STotalSize%~1!)" 2>nul
  set "divider=" & set "dp=" & set "step10=!step10%~1!"
  ::if %step10% equ 1 set "step10="
  echo.%~0:	!STotalSize%~1!	!SImageSize%~1!	!change%~1!	!step%~1!	!step10%~1!	!stepB%~1!	step10="%step10%"
  if !stepB%~1! equ %GB% (
  	if !STotalSize%~1! geq %KB%%step10:~1% (
  		set "divider=%KB%%step10:~1%"
  		set "dp=100"
  		set "stepB%~1=TB"
  	) else (
  		set "divider=%step10%"
  		set "dp=%step10%"
  		set "stepB%~1=GB"
  	)
  ) else if !stepB%~1! equ %MB% (
  	if !STotalSize%~1! geq %MB%%step10:~1% (
  		set "divider=%MB%%step10:~1%"
  		set "dp=100"
  		set "stepB%~1=TB"
  	) else if !STotalSize%~1! geq %KB%%step10:~1% (
  		set "divider=%KB%%step10:~1%"
  		set "dp=100"
  		set "stepB%~1=GB"
  	) else (
  		set "divider=%step10%"
  		set "dp=%step10%"
  		set "stepB%~1=MB"
  	)
  ) else if !stepB%~1! equ %KB% (
  	if !STotalSize%~1! geq %MB%%step10:~1% (
  		set "divider=%MB%%step10:~1%"
  		set "dp=100"
  		set "stepB%~1=GB"
  	) else if !STotalSize%~1! geq %KB%%step10:~1% (
  		set "divider=%KB%%step10:~1%"
  		set "dp=100"
  		set "stepB%~1=MB"
  	) else (
  		set "divider=%step10%"
  		set "dp=%step10%"
  		set "stepB%~1=KB"
  	)
  ) else if !stepB%~1! equ 1 (
  	if !STotalSize%~1! geq %GB% (
  		set "divider=%GB%"
  		set "dp=100"
  		set "stepB%~1=GB"
  	) else if !STotalSize%~1! geq %MB% (
  		set "divider=%MB%"
  		set "dp=100"
  		set "stepB%~1=MB"
  	) else if !STotalSize%~1! geq %KB% (
  		set "divider=%KB%"
  		set "dp=100"
  		set "stepB%~1=KB"
  	) else (
  		set "divider=1"
  		set "dp=1"
  		set "stepB%~1=B"
  	)
  )
  set "change=!change%~1!"
  set "ST=!STotalSize%~1!"
  if %divider% gtr 1 (
  	call:division2 ST %divider% %dp%
  	call:division2 change %divider% %dp%
  	call:division STotalSize%~1 %divider% %dp%
  	call:division SImageSize%~1 %divider% %dp%
  	call:division change%~1 %divider% %dp%
  )
  call:calcperc %ST% %change% perc%~1
  echo.%~0: %ST%	%change%
  echo.%~0: !STotalSize%~1!	!SImageSize%~1!	!change%~1!	!step%~1!	!step10%~1!	!stepB%~1!	%divider%	%dp%
  set "divider=" & set "dp=" & set "step10=" & set "change=" & set "ST="
  exit /b
  
  ::%1 - stepB (in)
  
negative.code: set /a "perc=%perc%*100+%fract%"
  call:division perc 100 100
  endlocal & set "%~3=%sign%%perc%"
  exit /b
  
  ::%1 - file name
  