纯批处理作的 特效

保存为bat文件运行。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
@echo off&setlocal enabledelayedexpansion
goto start_1
我们，是一群执著的批处理爱好者
在色彩斑斓的Windows下，开启CMD这扇深邃的窗口
曾经挑灯夜战，曾经彻夜不眠
我们之所以如此似痴若狂，是因为我们深知：
尺有所短、寸有所长，CMD不同凡响
我们精益求精，力求完美
所有的努力，只为了用最简洁的语言，编写最具实用性的代码
批处理之家  bbs.bathome.cn
高手汇聚、资料齐全、是新手入门的福地、老手晋级的乐园
不求最大、但求最好、展现批处理的无穷魅力、一切精彩，尽在 ～～ 批处理之家 ～～
:start_1
title code by 小楼一夜听春雨  2007-12-1  bbs.bathome.cn
mode con cols=112 lines=10 &color 1f
set fang=■&echo.&echo.
for /l %%a in (1 1 35) do set "kkk= !kkk!"
echo %kkk%批处理之家  bbs.bathome.cn  欢迎您
echo.&echo.&set/p=    <nul
for /l %%a in (1 1 50) do (
set /a "jind=%%a*2"
set "jind=   !jind!"
set "jind=!jind:~-3!"
set /p=%fang%!jind!%%<nul
set /p=<nul
for /l %%i in (1 1 1000) do ver>nul
)
mode con: cols=90 lines=35
echo CMD-BAT
set ",=0123456789"&set "hanghao=12"
for /l,%%a,in,(1,1,20),do,set "k= !k!"
for /f,"tokens=1* delims=:" %%a,in,('findstr /n .* "%~0"'),do,(
  if,%%a,leq,%hanghao%,(set _%%a=%%b)
)
set "_1=%k%批处理之家  bbs.bathome.cn  欢迎您"
set "_2=          网址：bbs.bathome.cn"
set "_2=!_2!    群号：43011867    站长：youxi01"
for /l,%%a,in,(1,1,%hanghao%),do,(
  set "]=0"
  for /l,%%i,in,(0,1,100),do,(
    (set /=!_%%a!)
    if,not,"!_%%a:~%%i,1!"=="",(set /a]+=1)
  )
  call :lis
  if %%a equ 2 echo.
)
echo\&echo\&echo\
set/p=         ————    批处理之家  bbs.bathome.cn     <nul
endlocal&color 1a
set _=0&set ")=                "&set "(=欢迎您的加入 !!!"
set "T="
:loop
set/p=%(%<nul
if,%_%,geq,500,echo.&echo.&echo.&pause&exit
set/p=%T%<nul
for /l,%%i,in,(1,1,1500),do,ver>nul
set (=%)%&set ")=%(%"&set/a "_+=1"
goto loop
:lis
echo\&echo\
set/p=     <nul
set /a "\=!]:~0,1!"
set/a?=1/(1/!]:~-1!)2>nul||(set "/=!/! ")
set/a?=1/(10/])2>nul&&(set \=1&set:=1)||(set:=0)
for /l,%%a,in,(!:! 1 !\!),do,(
set "{="
if,%%a,equ,!\!,(set }=!]:~-1!),else,(set }=9)
for /l,%%i,in,(0 1 !}!),do,(set {=!{!%%i)
call :xs
)
goto :eof
:xs
for /l,%%k,in,(0 1 !}!),do,(
call,call,call,set /p=%%%%%%%%/:~%%%%{:~%%,:~%%k,1%%,1%%%%,1%%%%%%%%<nul
for /l,%%i,in,(1,1,200),do,ver>nul
)
set /a "sq=}+1"
call,set "/=%%/:~!sq!%%"
goto :eof