setlocal^unalias *
cls^echo.^echo.^echo 4MAKE conversion utility^echo.
:RETRY
inkey Press X to exit, or any other key to convert 4MAKE 3.02 to 3.03 %%key
if "%key"=="X" quit
set name=4make.exe^set old=4makeold.exe^set scr=4mexe302.scr
gosub doconv
set name=4make.doc^set old=4makeold.doc^set scr=4mdoc302.scr
gosub doconv
set name=dos.txt^set old=dosold.txt^set scr=4mtxt302.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 > nul
modify %old %scr %name
iff errorlevel eq 0 then
  echo.^echo %name converted succesfully
else
  echo.^move %old %name > nul
  echo %name conversion failed, old file restored
endiff
return