DOS实现数字雨

DOS实现数字雨。将代码输入txt文本，保存。然后修改后缀为.bat。

双击运行即可.

很帅~~ 此代码属于DOS编程

@echo off

title digitalrain

color 0b

setlocal ENABLEDELAYEDEXPANSION

for /l %%i in (0) do (

set "line="

for /l %%j in (1,1,80) do (

set /a Down%%j-=2

set "x=!Down%%j!"

if !x! LSS 0 (

set /a Arrow%%j=!random!%%3

set /a Down%%j=!random!%%15+10

)

set "x=!Arrow%%j!"

if "!x!" == "2" (

set "line=!line!!random:~-1! "

) else (set "line=!line! ")

)

set /p=!line!nul

)