[特效代码] 批处理电子表显示有问题，

@echo off&SetLocal EnableDelayedExpansion&Mode Con Cols=54 Lines=6&Color 0a
for %%a in (4 1 2 1 2 1 4 2 1 2 1 2 1 2 1 2 4 2 5 2 6 2 4 2 5 1 2
1 4 2 1 2 5 2 3 2 8 2 4 1 7 2 1 2 1 2 1 2 5 1 5 1 8 1 4 2 4) do (
  set/a "cc=~cc"
  for /l %%i in (1,1,%%a) do if "!cc!"=="0" (set "dgts=!dgts!  ") else set "dgts=!dgts!■"
)
for /l %%z in () do (
	if "!time:~7,1!" neq "!sec!" (
		set "sec=!time:~7,1!"
		set "oc="
		for /l %%h in (0,1,4) do (
			for %%d in (0 sp 1 sp : sp 3 sp 4 sp : sp 6 sp 7) do (
				if "%%d"==":" (
					set/a tt=%%h*5
					if "!tt:~-1!"=="0" (set "oc=!oc!  ") else set "oc=!oc!●"
				) else (
					if "%%d"=="sp" (set "oc=!oc!  ") else (
						set "timeP=!time: =0!"
						set/a s=!timeP:~%%d,1!*15+%%h*3
						for %%o in (!s!) do set "oc=!oc!!dgts:~%%o,3!"
					)
				)
			)
		)
		cls
		set/p=!oc!<nul
	)
)
复制代码

@echo off & setlocal enabledelayedexpansion&mode con cols=54 lines=6 & color 0a
SET n=10&set "#4=■■■"&set "#3=■  ■"&set "#2=■    "&set "#1=    ■"
for %%a in (4 1 4 4 3 4 4 4 4 4 3 1 1 1 3 2 2 1 3 3 3 1 4 4 4 4 4 1 4 4 3 1 2 1 1 1 3 1 3 1 4 1 4 4 1 4 4 1 4 4) do set _!n!=#%%a&set/a n+=1
for /l %%z in (1,0,1) do (
  set v=!time:~7,1!&if not !v!==!t! (
    cls&for /l %%a in (1,1,5) do (for /l %%b in (0,1,7) do (
	   set v=_%%a!time:~%%b,1!
       for %%c in (!v!) do for %%d in (!%%c!) do set x=!x!!%%d!  )
     echo,!x!&set x=&set t=!time:~7,1!)))
复制代码