@echo off&mode con cols=42 lines=20&color 09
setlocal enabledelayedexpansion
title 数码雨-zw19750516
set code=123456789abcdef0&set m=1
set t=call,
:begin
set /a a=%random%%%16
set a=!code:~%a%,1!
set str%m%=!str%m%!%a%
set /a n+=1
if %n% lss 40 goto begin
if %m% lss 10 set n=0&set /a m+=1&goto begin
set n=0&set m=0
:again
set /a n+=1,m+=1
if %n% equ 11 set n=1
if %m% equ 50 set m=0&call :lp
for /l %%i in (1,1,8) do set cal=!cal!%t%
%cal%echo !str%n%!
set cal=&goto again
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%