Aca encontre el codigo en mi pendrive, por si sirve de algo..

 
   @echo off
call:put Me canse de escribir tantas lineas ...
call:put Este es el typewritter effect reloaded
call:put o echo dinamico xD
>nul,pause
goto:eof
 
:put
if,not,defined,.m_,set.m_=%*&if,not,defined,.m_,goto:eof
<nul,set/p.m_=%.m_:~0,1%&>nul,ping -n 1 0&set.m_=%.m_:~1%&if,defined,.m_ (goto:put),else,(echo.)
goto:eof
 

Buenas. Siento revivir un post tan antiguo pero como (creo) que conozco la solucion me parecio oportuno postear.

Este seria el codigo:


Imprimiria en 10 segundos la palabra Pedro a 2 segundos por letra;
El comando timeout /t "segundos" es un comando muy preciso para esperar X tiempo, es mejor que el ping LOCALHOST /N "tiempo" que ademas es un truco muy "sucio"

Espero haber ayudado, aportando 2 cosas nuevas a la comunidad.
Un saludo

PedroDJavier

PD: preguntando al principio al usuario que es lo que quiere escribir y usando extraccion de caracteres podemos hacer cosas chulas xD

EDIT: Se  me olvido comentar que funciona con los espacios aveces la solucion esta en lo simple !

Ya somos 2, he modificado el el script que no imprimía los espacios para que si lo haga:

 
@echo off
mode con cols=100
mode con lines=20
 
call :SLOW aaa     aaaa           aaaa
echo+
echo+
call :SLOW quiero un espacio
pause>nul
goto :eof
 
 
:SLOW
set palabra=%*
if not defined palabra (goto :eof)
set palabra=%palabra: =_%
call:length %palabra%
set /a contt=0
set /a contt2=0 
set /a cantcopy=1
if [%tam%] gtr [0] (set /a contt2 +=1)
:loopt
call :AUXILIAR %%palabra:~%contt2%,1%%
if [%aux%]==["_"] (
set /a contt2 +=1
set /a cantcopy +=1
) else (goto :end1)
if %contt2% leq %tam% (goto :loopt)
:end1
call :SLOW1 %%palabra:~%contt%,%cantcopy%%%
set /a contt +=%cantcopy%
set /a contt2 +=1
set /a cantcopy=1
if %contt% leq %tam% (goto :loopt)
goto :eof
:SLOW1
set char="%1"
set char=%char:_= %
<nul (set /p msg=%char%)
set /a aux2=%cantcopy%
:loopt1
ping -n 1 127.0.0.0 -w 1>nul 2>&1
ping -n 1 127.0.0.0 -w 1>nul 2>&1
set /a aux2 -=1
if %aux2% gtr 0 (goto :loopt1)
goto :eof
:length
set argl=%*
if not defined argl (goto :eof)
set wordl=%argl%
set /a contl=0
:loopt2
if not defined wordl (goto :end2)
set wordl=%wordl:~1%
set /a contl +=1
goto :loopt2
:end2
set tam=%contl%
goto :eof
:AUXILIAR
set aux="%1"
if not defined aux (goto:eof)
goto :eof
 
 

Como veis para poder lograrlo hay que enviar los espacios a la vez que la letra anterior, por lo que si aumentamos mucho el tiempo de espera se verá que los espacios los escribes rápido y las letras despacio, pero es mejor que nada y ademas soporta las multilineas.

Un saludo, espero que a alguien le resulte útil