国庆简单动画.txt

s11ss写的批处理。他把很多C语言中经典的例子都用批处理实现了

@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!