[特效代码] [分享]批处理no cls no choice用键盘移动字符

batman

@echo off&setlocal enabledelayedexpansion
chcp 437 >nul&graftabl 936 >nul
echo w上s下a左d右z退出（小写）
::请将下面的tab换成实际的制表符
set "tb=tab"
for /l %%a in (1,1,12) do set "t=!t!"
for /l %%a in (1,1,80) do set "k=!k! "
set "_115=echo,"&set "_97=set /a l-=1"&set "_100=set /a l+=1"&set "_122=exit"&set /a l=39
for /l %%a in (1,1,10) do echo,
for /l %%a in (1,1,%l%) do set /p= <nul
set /p=a<nul
:lp
echo exit|cmd/kprompt $_e 100 CD 16 B4 4C CD 21$_g$_|debug>nul
set "str=%errorlevel%"
for %%a in (119 115 97 100 122) do if "!str!" equ "%%a" goto next
goto lp
:next
set /p=%k%<nul
if %str% equ 119 (
　 2>nul echo,%tb%%t%&set /p=<nul
   ) else (
   !_%str%!
)
if %l% lss 0 set /a l=0
if %l% gtr 78 set /a l=78
for /l %%a in (1,1,%l%) do set /p= <nul
set /p=a<nul&pause>nul&goto lp
复制代码

[ 本帖最后由 batman 于 2011-3-2 15:07 编辑 ]

CrLf

呃，debug...虽然这里debug只是起choice的作用，但是既然可以用debug，那么其实连tab都可以省了吧