CODE: [Copy to clipboard]
@echo off&mode con cols=40 lines=26&color 1f
:: 沁园春.雪-毛泽东
:: 北国风光,千里冰封,万里雪飘。
:: 望长城内外,惟余莽莽;
:: 大河上下,顿失滔滔。
:: 山舞银蛇,原驰蜡象,欲与天公试比高。
:: 须晴日,看红装素裹,分外妖娆。
:: 江山如此多娇,引无数英雄竞折腰。
:: 惜秦皇汉武,略输文采;
:: 唐宗宋祖,稍逊风骚。
:: 一代天骄,成吉思汗,只识弯弓射大雕。
:: 俱往矣,数风流人物,还看今朝。
title 逐字读词
:begin
echo.&echo.
set /a n+=1,m=-1
for /f "skip=%n% delims=:: " %%i in (%~fs0) do set str=%%i&goto lp
:lp
set /a m+=1
call,set var=%%str:~%m%,1%%
call,set /p=%var%<nul
if defined var (for /l %%i in (1,1,4000) do echo.>nul&goto lp)
if %n% lss 11 goto begin
pause>nul