CODE: [Copy to clipboard]
@echo off&setlocal enabledelayedexpansion %title {s11ss 2007-12-12}%
call :m "www.cn-dos.net" " " 4 50
title Press any key to exit...&pause>nul&title %comspec%&exit/b
:m
set s=%~1
set c=%~2
set n=%3
set "d=for /l %%z in (1,1,%4) do cd."
set t=%s%
:c
set t=%t:~1%&set/a l+=1
if not "%t%" equ "" goto :c
for /l %%a in (1,1,%l%) do %d%&title !s:~0,%%a!
for /l %%a in (%l%,-1,1) do %d%&title !s:~0,%%a!
set/a t=%l%-1
for /l %%a in (1,1,%n%) do set "space=!space!%c%"&for /l %%b in (1,1,%t%) do set s%%b%%a=!s:~0,%%b!!space!!s:~%%b,1!
for /l %%a in (1,1,%t%) do for /l %%b in (%n%,-1,1) do %d%&title !s%%a%%b!
title !s!&%d%
for /l %%a in (%t%,-1,1) do for /l %%b in (1,1,%n%) do %d%&title !s%%a%%b!
CODE: [Copy to clipboard]
@echo off&setlocal enabledelayedexpansion
set "b=www.cn-dos.net"
set "k=-"
for /l %%t in (1,1,60) do set "q=!q! "
call:9527
call:9527 %k%
for %%? in (w=w;w,. c=n,-;d o,s=.,n,e;t) do (
call :bagpipe %%? !p!
set p=!p!%%?)
title Code By Ansipeter&goto:eof
:9527
for /l %%a in (1,1,14) do title !b:~0,%1%%a!&ping -n 1 127.1>nul
goto:eof
:bagpipe
for /l %%n in (1,1,60) do title %2!q:~%%n!%1
ping -n 1 -w 100 127.1>nul