@echo off&mode con cols=42 lines=10
title 程序写入中...
set tu=■
set code=123456789abcdef
:begin
set /a num=%random%%%2
call,set str=%str%%num%
set /a n+=1
if %n% lss 40 goto begin
set /a num1=%random%%%15
call,set a=%%code:~%num1%,1%%
set /p= <nul>%str%&findstr /a:%a% .* %str%* 2>nul
set /a m+=1&call :lp
title %x%
set x=
if %m% equ 18 set m=0
echo.
del /q %str%
set str=&set n=0&goto begin
:lp
for /l %%i in (1,1,%m%) do call,set x=%%x%%%tu%