「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるバッチ

　「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるClojure　様に影響され、気付いたら出来上がっていました。

　1000字を超えても完成しなければ煽られずに済むおまけつきです。

「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるバッチ.bat

@echo off
mode con:cols=100 lines=50
title 「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるバッチ
:top
cls
set word=
echo 「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるバッチ
echo.
echo 何かキーを押すと進捗状況を確認します
pause >nul
set loop=0
set wcount=0
:generate
set /a num=%random%*4/32768
set str=進捗
set length=2
if %num% == 1 set str=どう
if %num% == 2 set str=です
if %num% == 3 set str=か&set length=1
set /a loop+=1,wcount+=length
goto write

:write
set word=%word%%str%
set judge=%word:~-7%
cls
echo %word%
if %judge% == 進捗どうですか goto fin
if %wcount% geq 1000 goto out
goto generate

:fin
echo.
echo.
echo.
echo.
timeout /t 2 /nobreak >nul
echo 　　　　　　　　　　　　　　　　　　　　　＿人人人人人人人＿
echo 　　　　　　　　　　　　　　　　　　　　　＞進捗どうですか＜
echo 　　　　　　　　　　　　　　　　　　　　　￣Y^^Y^^Y^^Y^^Y^^Y^^Y^^￣
echo.
echo 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　%wcount%文字で煽られました。
pause >nul
goto top

:out
echo.
echo.
echo.
echo.
timeout /t 2 /nobreak >nul
echo 　　　　　　　　　　　　　　　　　　　　　　　　　ふう…。
echo.
echo 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　煽られずに済みました。
pause >nul
goto top

　　　　　　　　　　　　　　　　　　　　　　進捗ダメです

　以上です。ありがとうございました。