setlocal
set name=4make.exe^set old=4makeold.exe^set scr=4makeexe.scr
gosub doconv
set name=4make.doc^set old=4makeold.doc^set scr=4makedoc.scr
gosub doconv
set name=dos.txt^set old=dosold.txt^set scr=dostxt.scr
gosub doconv
endlocal^quit
:doconv
echo.^echo Converting %name
iff not exist %name then
  echo.^echo %name does not exist, cannot be converted
  quit
endiff
move %name %old
modify %old %scr %name
iff errorlevel eq 0 then
  echo.^echo %name converted succesfully
else
  move %old %name
  echo.^echo %name conversion failed, old file restored
endiff
return