pro odeslání opravovaného souboru pravým myšem přes 'sendto' do zástupce batky. nepředpokládám název souboru s mezerou:

@echo off
 REM v.1 # zastupce batky do %APPDATA%\Microsoft\Windows\SendTo
 set fname=%~n1
 set file=%~nx1
 REM nove umisteni upravenych souboru
 set new=\new
:TEST
 if "%1"=="" echo batka spustena primo, bez parametru "file - sendto" && goto END
:NULTY
 echo 0 BEGIN PGM %fname% MM>%new%\%file%
:BEZ_ZMENY
 type %file% | find /v "PGM " >>%new%\%file%
:POSLEDNI
 for /f "tokens=1 delims= " %%n in ('type %file% ^| find "PGM "') do (set num=%%n)
 echo %num% END PGM %fname% MM>%new%\%file%
:POROVNAT
 fc /n %file% %new%\%file%
:END
 pause