Text 发送文本后清除cmd

我找到了这个小脚本。我的问题是，如何在每行之后清除cmd（cls）

因此，当第一行完成时，它清除cmd并显示下一行

有人能帮忙吗？：）

@echo关闭
：：幻影打字机
setlocal enableextensions enabledelayedexpansion
设置行数=6
设置“line1=闪烁小星星”
设置“line2=我多么想知道你是什么”
设置“line3=高于世界如此之高”
设置“line4=像天空中的钻石”
设置“line5=闪烁小星星”
设置“line6=我多么想知道你是什么”
对于/f%%a in（“'prompt$H&for%%b in（1）do rem””）请设置“BS=%%a”
对于（1,1，%lines%）中的/L%%a，请设置num=0并设置“line=！line%%a！”&调用：键入
暂停>nul
后藤：EOF
：类型
设置“字母=！行：~%num%，1！”
设置“延迟=%random%%random%%random%%random%%random%%random%%random%%random%%random%”
设置“延迟=%delay:~-6%”
如果不是“%letter%”==“set/p”=a%bs%%letter%”将您的
cls
放在那里，在那里开始键入新行（就在
调用之前：键入
）：

你搜索的命令只是
cls
你需要帮助把它放在哪里吗？@Stephan我知道这个命令，我只是需要帮助把它放在哪里谢谢！是否可以稍微延迟cls？是的，但是如何延迟取决于您的操作系统：
超时
，
睡眠
，
ping
。请看这里的一些想法：我把它放在哪里？你希望它放在哪里？可能就在
cls
之前？
@echo off
:: Ghost typer
setlocal enableextensions enabledelayedexpansion

set lines=6


set "line1=Twinkle twinkle little star"
set "line2=How I wonder what you are"
set "line3=Up above the world so high"
set "line4=Like a diamond in the sky"
set "line5=Twinkle twinkle little star"
set "line6=How I wonder what you are"


for /f %%a in ('"prompt $H&for %%b in (1) do rem"') do set "BS=%%a"

for /L %%a in (1,1,%lines%) do set num=0&set "line=!line%%a!"&call :type

pause>nul
goto :EOF

:type
set "letter=!line:~%num%,1!"
set "delay=%random%%random%%random%%random%%random%%random%%random%"
set "delay=%delay:~-6%"
if not "%letter%"=="" set /p "=a%bs%%letter%" <nul

:: adjust the 3 in the line below: higher is faster typing speed

for /L %%b in (1,10,%delay%) do rem
if "%letter%"=="" echo.&goto :EOF
set /a num+=1
goto :type

for /L %%a in (1,1,%lines%) do set num=0&set "line=!line%%a!"&cls&call :type
                                                               ^---- here