Замедленный вывод текста в командную строку из файла

@Echo Off
Rem Демо, показывающее основные возможности
Rem =======================================================
Title  libType - Demo
Call :libType qwrite "Предыдущая строка была напечатана с использованием эффекта 'печатной машинки', а эта - нет."
:Delay
ping -n 2 127.0.0.1>nul&Exit /B
Rem =======================================================
 
Rem Передача параметров функции при вызове из другого батника
Call :libType %*
Exit /B
 
:libType
Rem Обёртка, вызывающая нужные функции с передачей аргументов
Call :TCheckArguments %1
If %ErrorLevel% NEQ 0 GoTo THelp
Call :TCheckArguments %2
If %ErrorLevel% NEQ 0 GoTo UseSaved
:SaveLine
If /I "%~1"=="autowidth" Call :TMemorizeLastString %2 & Call :TAutoWidth %2
If /I "%~1"=="write" Call :TMemorizeLastString %2 & Call :TWrite %2
If /I "%~1"=="qwrite" Call :TMemorizeLastString %2 & Call :TQuickWrite %2
If /I "%~1"=="echo" Call :TMemorizeLastString %2 & Call :TEcho %2
If /I "%~1"=="return" Call :TReturn %2
If /I "%~1"=="blank" Call :TBlank %2
Exit /B
:UseSaved
If /I "%~1"=="help" Call :THelp
If /I "%~1"=="--help" Call :THelp
If /I "%~1"=="autowidth" Call :TAutoWidth "%$SavedString%"
If /I "%~1"=="write" Call :TWrite "%$SavedString%"
If /I "%~1"=="qwrite" Call :TQuickWrite "%$SavedString%"
If /I "%~1"=="echo" Call :TEcho "%$SavedString%"
If /I "%~1"=="break" Call :TBreakLine
If /I "%~1"=="return" Call :TReturn
If /I "%~1"=="blank" Call :TBlank
If /I "%~1"=="erase" Call :TEraseString
If /I "%~1"=="clear" Call :TClearLastString
Exit /B
 
:THelp
Rem Встроенная помошь
Cls
Echo.
Echo                                                     СИНТАКСИС ФУНКЦИИ :libType
Echo.
Echo   (call %~nx0 команда "текст") или (call %~nx0 команда)
Echo   любая введенная строка запоминается до ввода следующей
Echo.
Echo    call %~nx0 help (или --help)
Echo  Показать эту справку
Echo.
Echo    call %~nx0 echo "текст"
Echo  Вывод указанной строки текста с переводом строки в конце, дублирует работу echo.
Echo.
Echo    call %~nx0 echo
Echo  Вывод последней запомненной строки с переводом строки в конце, дублирует работу echo.
Echo.
Echo    call %~nx0 write "текст"
Echo  Вывод указанной строки текста
Echo.
Echo    call %~nx0 write
Echo  Вывод последней запомненной строки текста
Echo.
Echo   call %~nx0 qwrite "текст"
Echo  Быстрый вывод указанной строки текста
Echo.
Echo    call %~nx0 qwrite
Echo  Быстрый вывод последней запомненной строки текста
Echo.
Echo    call %~nx0 autowidth "текст"
Echo  Вывод указанной строки текста с принудительным разбиением по ширине консоли
Echo.
Echo    call %~nx0 autowidth
Echo  Вывод последней запомненной строки текста с принудительным разбиением по ширине консоли
Echo.
Echo    call %~nx0 break
Echo  Вставить перевод строки
Echo.
Echo    call %~nx0 erase
Echo  Стереть текущую строку и вернуть курсор к началу
Echo.
Echo    call %~nx0 return число
Echo  Возвратить курсор на n символов (действует только в пределах строки)
Echo.
Echo    call %~nx0 return
Echo  Возвратить курсор на начало последней запомненной строки текста (действует только в пределах строки)
Echo.
Echo    call %~nx0 blank число
Echo  Заполнить строку длинной n пробелами
Echo.
Echo    call %~nx0 blank
Echo  Заполнить последнюю запомненную строку пробелами
Echo.
Echo    call %~nx0 clear
Echo  Очистить запомненную строку
Echo.
Echo      Нажмите любую кнопку для продолжения...
Pause>nul
Echo.
Echo.
Exit /B      
 
:TWrite
Rem Посимвольный вывод с имитацией эффекта печатной машинки.
Rem В отличии от Echo, не переводит на новую строку в конце текста.
If Not Defined $Text Set $Text=%~1
If Not Defined $Text Exit /B
set "$Symb=%$Text:~0,1%"
if "%$Symb%"==" " (<nul Set /P "$Text=. ") else (<nul Set /P "$Text=%$Symb%")
Ping -n 1 127.0.0.1>nul
Set $Text=%$Text:~1%
If Defined $Text (GoTo :TWrite) Else (Exit /B)
 
:TQuickWrite
Rem То же самое, что и TWrite, но без задержки
If Not Defined $Text Set $Text=%~1
If Not Defined $Text Exit /B
set "$Symb=%$Text:~0,1%"
if "%$Symb%"==" " (<nul Set /P "$Text=. ") else (<nul Set /P "$Text=%$Symb%")
Set $Text=%$Text:~1%
If Defined $Text (GoTo :TQuickWrite) Else (Exit /B)
 
:TReturn
Rem Возврат курсора на заданное число символов в пределах строки
Rem Используется символ "" (0x08)
Call :TGetLenght "%$SavedString%"
Set genChars=%strLenght%
If Not "%1"=="" (Set genChars=%1)
If "%genChars%"=="" (Exit /B)
Set tmpString=
:genReturn
Set tmpString=%tmpString%
Set /A genChars-=1
If %genChars% LEQ 0 (
<nul Set /P "$Text=%tmpString%"
Exit /B
) Else (
GoTo genReturn
)
 
:TBlank
Rem Вывод строки заданной длинны, заполненной пробелами
Rem Используется символ " " (0x20)
Call :TGetLenght "%$SavedString%"
Set genChars=%strLenght%
If Not "%1"=="" (Set genChars=%1)
If "%genChars%"=="" (Exit /B)
Set tmpString=
:genBlank
Set tmpString=%tmpString% 
Set /A genChars-=1
If %genChars% LEQ 0 (
Call :TQuickWrite "%tmpString%"
Exit /B
) Else (
GoTo genBlank
)
 
:TEraseString
Rem Стирание предыдущего выведенного текста
Rem Эффективно только в пределах текущей строки
Call :TReturn
Call :TBlank
Call :TReturn
Exit /B
 
:TEcho
Rem Алиас для вывода текста и перевода строки. Аналогично Echo.
Call :TWrite %*
Call :TBreakLine
Exit /B
 
:TGetLenght
Rem Получение длины текстовой строки.
Set /A strLenght=0
Set $String=%~1
:charCounter
If "%$String%"=="" Exit /B
Set /A strLenght+=1
Set $String=%$String:~1%
GoTo charCounter
 
:TGetConsoleWidth
Rem Получение ширины консоли.
For /F "skip=4 tokens=1,2" %%v In ('mode con') Do (
Set /A conWidth=%%w
Exit /B
)
 
:TAutoWidth
Rem Форматирование длинных строк под ширину консоли с отступами по 1 символу по бокам.
SetLocal EnableDelayedExpansion
If "!tmpText!"=="" Set tmpText=%~1
Call :TGetConsoleWidth
Set /A conWidth-=3
:printString
Call :TGetLenght "!tmpText!"
If !strLenght! GTR %conWidth% (
Call :TWrite " !tmpText:~0,%conWidth%!"
Echo.
Set tmpText=!tmpText:~%conWidth%!
GoTo printString
) Else (
Call :TWrite " !tmpText!"
Set $tmpText=
)
EndLocal
Exit /B
 
:TBreakLine
Rem Перевод строки.
Echo.
Exit /B
 
:TMemorizeLastString
Rem Запоминание выводимой строки.
Set $SavedString=%~1
Exit /B
 
:TClearLastString
Rem Очистка запомненной строки.
Set $SavedString=
Exit /B
 
:TCheckArguments
Rem Проверка на наличие аргументов.
Set tmpVar=%~1
If "%tmpVar%"=="" (Exit /B 1) Else (Exit /B 0)

@echo off
for /f "tokens=* delims=" %%a in (1.txt) do (
    echo %%a
    timeout /t 10>nul
)
pause