如何在批处理文件中进行Alt循环？

如何解决如何在批处理文件中进行Alt循环？

@echo off &setlocal
title Escape
mode con: cols=75 lines=20
SetLocal EnableExtensions EnableDelayedExpansion
for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (
  set "DEL=%%a"
)

for /f "tokens=2 delims=:" %%i in ('chcp') do set /a oemcp=%%~ni

>nul chcp 437

:: Create,convert,and save the Box-drawing characters.
>"%temp%\Boxdrw.~b64" echo(//4CJsqlYSViJVYlVSVjJVElVyVdJVwlWyUQJRQlNCUsJRwlACU8JV4lXyVaJVQlaSVmJWAlUCVsJWclaCVkJWUlWSVYJVIlUyVrJWolGCUMJQ==
>nul certutil.exe -f -decode "%temp%\Boxdrw.~b64" "%temp%\Boxdrw.~u16"
for /f %%i in ('type "%temp%\Boxdrw.~u16"') do set "Box=%%i"
del "%temp%\Boxdrw.~b64" "%temp%\Boxdrw.~u16"

setlocal EnableDelayedExpansion
for /l %%i in (0 1 39) do echo  !Box:~%%i,1! %%Box:~%%i,1%%&echo(
endlocal

goto bof

rem call :ColorText 0a "blue"
rem add 'echo.' after

goto :eof

:ColorText
echo off
<nul set /p ".=%DEL%" > "%~2"
findstr /v /a:%1 /R "^$" "%~2" nul
del "%~2" > nul 2>&1
goto :eof

:bof
color 09
cls
REM %Box:~22,1%%Box:~26,1%%Box:~8,1%
call :ColorText 09 %Box:~22
for /l %%x in (1,1,100) do (
    echo (
        1%%Box:~26
        )
)
call :ColorText 09 1%%Box:~8,1%
>nul chcp %oemcp%
pause

因此，这是我目前的全部代码，

call :ColorText 09 %Box:~22
for /l %%x in (1,1%

我想知道如何做到这一点，而不是连续不断地输入“ 1 %% Box：〜26”，如果我可以让它循环并使其重复但在同一行上的话。有人可以帮忙吗？

这是以前的工作方式，但是我不得不放入很多'1 %% Box：〜26'

echo %Box:~22,1%