中国DOS联盟

@echo off  
if "%1"=="go" (goto :input) else (start %~s0 go)
mode con cols=20 lines=15
title running~ &setlocal enabledelayedexpansion
for /l %%a in (1,1,12) do (set way%%a=##        ##)
for /l %%a in (1,3,12) do (set way%%a=!way%%a:#= !)
set wayb1=%way2%
set wayb2=%way1%
set wayb3=%way2%
set "che7=oiio"
set "che8= ## "
set "che9=O##O"

set /a fa=13
:la
set /a fb=fa-1,act=0
for /l %%a in (%fa%,1,12) do (set /a act+=1 &set ln!act!=!way%%a!)
for /l %%b in (1,1,%fb%) do (set /a act+=1 &set ln!act!=!way%%b!)
::
for %%a in (7,8,9) do (set ln%%a=!ln%%a:~0,4!!che%%a!!ln%%a:~8!)
ping -n 1 127.1>nul
cls
for /l %%a in (1,1,12) do (echo, ║!ln%%a!║)
if %fa% gtr 1 (set /a fa-=1) else (set /a fa=12)
set /a cut=fa,new=cut%%3+1
set way%cut%=!wayb%new%!
goto :la



:input
mode con cols=20 lines=3
set /p inp="输入:"

@goto :begin
e 100 cd 16 86 c4 b4 02 cd 10 b4 4C CD 21
g
:begin
@echo off
pushd "%~dp0"
chcp 437 >nul
graftabl 936 >nul
::在使用时，前面是必须的。

:loop
echo;
echo;请随意按键。。。
debug <"%~nx0">nul
echo 刚按键的返回码为：%errorlevel%   
goto :loop