彩色逐字显示文字

@ECHO OFF
MODE CON: COLS=80 LINES=25
CHCP 936 1>NUL 2>NUL
GRAFTABL 936 1>NUL 2>NUL
TITLE 彩色逐字显示文字
SETLOCAL ENABLEDELAYEDEXPANSION
SET N1=0
SET N2=1
SET N3=19
SET S=0
SET TEXT=本报讯（实习记者）3月8日至10日上午
:COLORA
SET /A COLOR0=%RANDOM% %%10
SET /A COLOR1=%RANDOM% %%10
IF %COLOR0% EQU %COLOR1% GOTO COLORA
:DO
IF %N3% EQU 0 GOTO LOOP
COLOR %COLOR0%%COLOR1%
SET /P D=!TEXT:~%N1%,%N2%!<NUL
PING -N %S% 192.168.1 1>NUL 2>NUL
SET /A N1=%N1%+1
SET /A N3=%N3%-1
:COLORB
SET /A COLOR0=%RANDOM% %%10
SET /A COLOR1=%RANDOM% %%10
IF %COLOR0% EQU %COLOR1% GOTO COLORB
GOTO DO
:LOOP
ECHO.
PAUSE