joolix.com

p(){
	printf "\033[%d;%dH\033[32m%c\033[m" $1 $2 "$3"
}
clear
N=20
for i in `seq 1 $N 2`; do
	x[$i]=$((RANDOM%LINES+1))
	y[$i]=$((RANDOM%COLUMNS+1))
done
 
chars=({0..9} {a..z} {A..Z} '*' '&' '^' '%' '$' '#' '@' '~' '<' '>' '?' '+')
while :; do
	for i in `seq $N`; do
		ran_char=${chars[$RANDOM % ${#chars[@]}]}
		p ${x[$i]} ${y[$i]} $ran_char
		((x[$i]++))
		if [ ${x[$i]} -ge $LINES ]; then
			for j in `seq $LINES`; do
				p $j ${y[$i]} " "
			done
			x[$i]=$((RANDOM%LINES+1))
			y[$i]=$((RANDOM%COLUMNS+1))
		fi
	done
	sleep .02
done