[AJUDA] TESTE DE VIDEO VIA BATCH

@echo off
cls
dir /w C:\
for /L %%i in (7,1,8 ) do call :mudacor a%%i
for /L %%i in (6,1,7 ) do call :mudacor b%%i
for /L %%i in (5,1,6 ) do call :mudacor c%%i
for /L %%i in (4,1,5 ) do call :mudacor d%%i
for /L %%i in (3,1,4 ) do call :mudacor e%%i
for /L %%i in (2,1,3 ) do call :mudacor a%%i
for /L %%i in (1,1,2 ) do call :mudacor a%%i
for /L %%i in (1,1,9 ) do call :mudacor 0%%i
goto :sai
:mudacor
set texto=%*
set texto=%texto:"=%
<nul set /p "t=%texto:~,1%"
color 0%texto%
ping -n 2 127.0.0.1 > nul
exit /b
:sai

@echo off
MODE 74,70
cls
FOR %%B IN (A B C D E F) DO (FOR /L %%A IN (0,1,9) DO (call :mudacor %%A%%B ))
echo OK
pause >nul
exit
:mudacor
color %1
SET /A NN+=1
SET "NN=%NN% "
<nul set /p "t=Û COR-%NN:~0,2% COLOR %1 Û"
ping -n 2 127.0.0.1 > nul
exit /b

@echo off
MODE 95,16
SET NN=-1
SET NN3=-1
set sb=+
set sb2=+
set pt=no
:vv
If Not Exist COR_BOSS.VBS (Call :CORES >>COR_BOSS.VBS)
FOR %%B IN (A B C D E F) DO (FOR /L %%A IN (0,1,9) DO (call :mudacor %%A%%B ))
goto vv
exit
:mudacor
SET /A NN%sb%=1
SET /A NN3%sb2%=1
SET "NN2=%NN% "
Cscript //nologo COR_BOSS.VBS %NN3% %NN% %1 " COR-%NN2:~0,2% COLOR %1 "
ping -n 1 127.0.0.1 > nul
if %NN%==0 (
if %pt%==ok set sb2=-
SET /a NN3=%NN3%-3
SET sb=+
)

if %NN%==21 (
SET /a NN3=%NN3%-8
set pt=ok
SET sb=-
)
exit /b

PAUSE >NUL
:CORES
%1:COR_BOSS
%1Echo.On Error Resume Next
%1Echo.HexColor = Right("0" %~2^& wscript.arguments(2), 2)
%1Echo.Set oExec = CreateObject("WScript.Shell").Exec("%comspec% /c debug ")
%1Echo.
%1Echo.Do Until oExec.StdOut.Read(1) = "-"
%1Echo. wsh.sleep 10
%1Echo.Loop
%1Echo.
%1Echo.Dim Textos
%1Echo.Textos = Replace(wscript.arguments(3), Chr(195), "Û")
%1Echo.WriteXY wscript.arguments(0), wscript.arguments(1), HexColor, Textos
%1Echo.
%1Echo.oExec.StdIn.Writeline "e0:451 2A"
%1Echo.oExec.StdIn.Writeline "q"
%1Echo.
%1Echo.Sub WriteXY(X, Y, hColor, sText)
%1Echo.Dim ColorText
%1Echo. For j = 1 to Len(sText) Step 10
%1Echo. ColorText = "EB800:" %~2^& Hex(Y * 160 + (X + j - 1) * 2)
%1Echo. For i = j to j + 9
%1Echo. ColorText = ColorText %~2^& " " %~2^& Hex(Asc(Mid(sText, i, 1))) %~2^& " " %~2^& hColor
%1Echo. if i = Len(sText) Then Exit For
%1Echo. Next
%1Echo. oExec.StdIn.Writeline ColorText
%1Echo. Next
%1Echo.End Sub
%1Attrib +H COR_BOSS.VBS
%1Goto :Eof
Goto :Eof