Код:

@echo off
:nach
set text="wrt"
set /p text=Напишите wrt 
if "%text%" == "wrt" goto operat
@echo Ok


:operat
set /p local=Напишите текст 
@echo wrt %local%
echo wrt %local%>>output.wok
pause

Код:

@echo off
title WRT-интерпретатор
setlocal enabledelayedexpansion 
Set infile=output.wok
Set find="wrt" 
Set replace="@echo"

setlocal enabledelayedexpansion 
 for /F "tokens=* delims=," %%n in (!infile!) do ( 
 set LINE=%%n 
 set TMPR=!LINE:%find%=%replace%! 
 Echo !TMPR!>>output.wok
 )
endlocal

ren output.wok output.bat
start output.bat
exit