超个性的逐字输出

写了一个极富个性的逐字输出的批处理
它支持两种字符输入
一种是运行后手工输入字符　然后逐字输出
另一种是把文件托进批处理　也会逐字将文本内容输出
而且每40个字符会自动换行..

不过说句实话　这个东西没多大实用性
只是偶尔无聊时玩玩..不错...

@echo off && setlocal enabledelayedexpansion
for %%k in (x0 x1 x2 x3 x4 x5) do (
set /a cn+=1,cc=0
for %%c in (0a 0b 0c 0d 0e 0f) do (
set /a cc+=1
if !cn!==!cc! set %%k=%%c
    )
)
if not "%~1"=="" (
for /f "usebackq delims=" %%1 in (%1) do set content=!content!%%1
call :count
) else (goto windcontent)
:windcontent
set /p content=请输入字符 & cls
:count
set a=0
:add
if not "!content:~%a%,1!"=="" set /a a+=1 && goto :add
set b=./-\
set t=for /l %%a in (1 1 399) do echo.^>nul
for /l %%a in (0 1 %a%) do (
set /p=!content:~%%a,1!<nul
set /a num+=1
if !num!==40 set num=0 && echo.
for %%c in (0 1 2 3) do (
set /a r=!random!%%6 && set r=x!r!
call color %%!r!%%
set /p=!b:~%%c,1!<nul
set /p=<nul
%t%
    )
)
set /p= <nul && echo.
pause>nul