@echo off
setlocal enabledelayedexpansion
::::::::To Simulate Text Scrolling {s11ss 2007-9-27}::::::::
:c
cls
set/a i=5
:ci
set/a j=!i!
call :cj
type %1
for /l %%a in (1,1,3000) do (echo Waiting... >nul)
cls
set/a i-=1
if !i! geq 0 goto :ci
set/a k=1
set/a n=1
for /f "delims=" %%a in (%1) do (set/a n+=1)
:ck
cls
cd.>t.tmp
for /f "delims= skip=%k%" %%a in ('findstr /n .* %1') do (
        set "var=%%a"
        set var=!var:*:=!
        >>t.tmp (echo.!var!)
)
type t.tmp
for /l %%a in (1,1,2000) do (echo Waiting... >nul)
set/a k+=1
if !k! leq !n! goto :ck
del t.tmp
for /l %%a in (1,1,3) do (echo.)
set/p q=Try again?(y/n)
if not "%q%" equ "y" (if not "%q%" equ "Y" goto :eof)
goto :c
:cj
if !j! geq 1 (
        echo.
        set/a j-=1
)
if !j! geq 1 goto :cj
goto :Eof