批处理实现的文字的飞入+变色效果代码

@echo off&setlocal enabledelayedexpansion&cls&color 0f&title Welcome to CN-DOS! 
mode con: cols=30 lines=3 set "a= PC-X69" set b= set "c=12345689abcde" echo\ :c 
for /l %%a in (6,1,28) do ( set /a d=%random%%%13+1 call :pp %%a ) goto c :pp 
set/p=!a:~-%1!<nul set/p=!b:~0,%1!<nul color 0!c:~%d%,1! 
goto :eof