中国DOS联盟

@echo off

::::::::Animation {s11ss 2007-10-1}::::::::

setlocal enabledelayedexpansion

cls

mode con: lines=16 cols=44

title ^|******** 1949.10.1--2007.10.1 ********^|

set s=国庆节快乐

:move

set/a i=10

set/a j=1

	:mc

	set space2=

	set space1=

	for /l %%a in (1,1,%i%) do set space2=  !space2!

	for /l %%a in (1,1,%j%) do set space1=  !space1!

	set s%j%=!space1!%s%!space2!%s%

	cls

	for /l %%a in (1,1,%j%) do echo.

	echo !s%j%!

	for /l %%a in (%i%,-1,1) do echo.

	echo !s%j%!

	::pause>nul

	::上一句可观察每一桢。

	for /l %%a in (1,1,500) do (echo Waiting... >nul)

	set/a i-=2

	set/a j+=1

	if %i% gtr -1 (if %j% lss 11 goto :mc)

set space=

for /l %%a in (1,1,16) do set space= !space!

cls

for /l %%a in (1,1,7) do echo.

echo !space!!s!

for /l %%a in (1,1,1000) do echo Waiting...>nul

:showonebyone

set/a n=0

cls

for /l %%a in (1,1,7) do echo.

set/p space=!space!<nul

	:sc

	call set a=%%s:~%n%,1%%

	if not "%a%" equ "" (	

		set/p o=%a%<nul

		for /l %%a in (1,1,1000) do echo Waiting...>nul

		set/a n+=1

		goto :sc

	)

:glitter

for %%a in (8 7 f) do (

	color %%a

	for /l %%a in (1,1,1000) do echo Waiting...>nul

)

:halt

for /l %%a in (1,1,8) do echo. 

set space=

for /l %%a in (1,1,43) do set space= !space!

set/p space=!space!