anchor.diff:  	Call:Bar %%i
   	1>nul 2>&1 ping -n 1 -w 1 127.255.255.255
   )
  -
  -
   ::ࠥ  ᮡ
  -::set "istrblank="
  -::0>nul set /p "=!istrbs!"
  -::for /l %%i in (1,1,%ilen%) do set "istrblank=!istrblank! "
  -::0>nul set /p "=%boxb%%istrblank% "
  -::0>nul set /p "=%istrbs% "
  -
  ->nul pause & goto:eof
  +0>nul set /p "=%imark%%istrbs%%istrblank%%iblank%%iblank%%istrbs%"
   
   :Bar
   if %imu% gtr 0 (
   	if %imarkpos% lss %imarklen% (
   		0<nul set /p "=%imark%"
  -	) else if %imarkpos% gtr %ilen% (
  +	) else if %imarkpos% geq %ilen% (
   		for /l %%j in (1,1,%imu%) do 0<nul set /p "="
  -		0<nul set /p "=%iblank%"
  +		0<nul set /p "=%imark%%iblank%"
   		for /l %%j in (2,1,%imu%) do 0<nul set /p "=%imark%"
   		set /a "imu-=1"
  -		if !imu! equ 1 set "imu=-%imarklen%"
  -		set /a "imarkpos-=1"
  -	) else 0<nul set /p "=%imarkbs%%iblank%%imarkstr%"
  +		if !imu! equ 1 (
  +			set "imu=-1"
  +			exit /b
  +		)
  +	) else if %imarkpos% lss %ilen% 0<nul set /p "=%imarkbs%%iblank%%imarkstr%"
   	set /a "imarkpos+=1"
  +) else if %imu% lss 0 (
  +	if %imarkpos% geq %ilen% (
  +		set /a "imu-=1"
  +		for /l %%j in (-1,-1,!imu!) do 0<nul set /p "="
  +		for /l %%j in (-1,-1,!imu!) do 0<nul set /p "=%imark%"
  +	) else if %imarkpos% lss %imarklen% (
  +		0<nul set /p "=%iblank%"
  +		set /a "imu+=1"
  +		if !imu! equ -1 (
  +			set "imu=%imarklen%"
  +			exit /b
  +		)
  +	) else if %imarkpos% geq %imarklen% (
  +		0<nul set /p "=%iblank%%imarkbs%%imarkstr%"
  +	)
  +	set /a "imarkpos-=1"
   )
  +		::else set /a "imarkpos-=1"
   ::if %imarkpos% gtr %imarklen%
   ::echo.%imarkpos%	
   
  
positive.code: :: ᪮쪮 権 ᤢ થ  
  set "imarkskip=2"
  :: ⥫ (䮭)
  set "iblank=9"
  ::  થ  
  set "imarkpos=0"
  ::砫   ᨬ ࠭  
  
negative.code: @echo off
  setlocal enabledelayedexpansion
  
  rem ⢮ 権
  Set "cnt=37"
  ::ᨬ ࠧ ப 
  set "ilen=10"
  ::થ ᨬ 
  set "imark=0"
  :: 
  