@echo off
SetLocal EnableDelayedExpansion
nircmdc win center foreground

title ::程序员的故事::
findstr /a:a /d:::程序员的故事: . * 2>nul
echo,
echo,
echo                 时间: 17:00
echo,
set /p =老婆来电话了...<nul
rem 电话鸣叫声
for /l %%a in (1 1 2) do (
    call :wait 1 2
    set /p =<nul
)

call :接电话 老婆

rem 获取制表符
for /f "skip=4 delims=>R tokens=2" %%a in ('reg query hkcr\.txt /ve') do (
    set \t=%%a
)

set "space=                                                "
set /p =%\t%%space: =%<nul
for /l %%m in (100 1 159) do (
    set mm=%%m
    set /p =!mm:~1!<nul
    call :wait 1 1
)
set /p =18:00<nul
echo,&echo,&echo,&echo,&echo,
for /l %%a in (1 1 2) do (
    set /p =      <nul
    call :wait 1 2
    set /p =下班了<nul
    call :wait 1 2
)
echo,&echo,&echo,&echo,&echo,&echo,&echo,&echo,
echo    0
echo   /1\
echo    1
echo _______________________________________________________________________________
echo                        卖西瓜的                   卖包子的                   家

set "space=                                              "
set /p =%\t%%space: =%<nul
echo        未完，待续...
pause >nul
exit /b

:wait
for /l %%a in (1 1 %1) do ping 127.1 -n %2 >nul
goto :eof

:接电话
echo,
set /p =通话中...<nul
call :wait 1 3
set /p =%1：<nul
call :wait 1 2
set message=“下班顺路买一斤包子带回来，如果看到卖西瓜的，买一个。”
for /l %%a in (0 1 27) do (
    set /p =!message:~%%a,1!<nul
    call :wait 4 1
)
echo,
echo 通话结束
goto :eof