cls & echo "//Inf=Make BackUp with (ext .bck) in same folder"
echo off & echo version 1.4"
set Wbem=%1
SetLocal enabledelayedexpansion 
if "%1"=="" set Wbem=pp_superhatch.vlax
  set From=%Wbem%
  set Exte=

:LOOP
     If "%Wbem:~-1,1%"=="." GoTo :FDONE
     set Exte=%Wbem:~-1,1%%Exte%
echo Wbem01=%Wbem% &  Set Wbem=%Wbem:~0,-1%
    goTo :LOOP

:FDONE
  set Wbem=%Wbem:~0,-1%
  set Tooo=%Wbem%.bck
  echo From="%From%"
  echo Tooo="%Tooo%"
  echo Exte="%Exte%"
   call :a14_strcaseT_bya_Dave_Wilson Exte
   set Exte=%Exte:~0,3%
   echo Exte3="%Exte%"
color 07
cls
If "%Exte%"=="BCK" goto :getenv_isavebak
   erase %Tooo%
   rename %From% %Tooo%
   copy %Tooo% %From%
   echo "(Result=%errorLevel%)"
   if Errorlevel=1 pause
endLocal
goto :EOF

:getenv_isavebak
    color 04
    echo "You cannot make backup on file .bck"
    endlocal
goto :EOF

:a14_strcaseT_bya_Dave_Wilson
 set %~1=!%1:a=A! 
 set %~1=!%1:b=B! 
 set %~1=!%1:c=C! 
 set %~1=!%1:d=D! 
 set %~1=!%1:e=E! 
 set %~1=!%1:f=F! 
 set %~1=!%1:g=G! 
 set %~1=!%1:h=H!
 set %~1=!%1:i=I! 
 set %~1=!%1:j=J! 
 set %~1=!%1:k=K! 
 set %~1=!%1:l=L! 
 set %~1=!%1:m=M! 
 set %~1=!%1:n=N! 
 set %~1=!%1:o=O! 
 set %~1=!%1:p=P! 
 set %~1=!%1:q=Q! 
 set %~1=!%1:r=R! 
 set %~1=!%1:s=S! 
 set %~1=!%1:t=T! 
 set %~1=!%1:u=U! 
 set %~1=!%1:v=V! 
 set %~1=!%1:w=W! 
 set %~1=!%1:x=X! 
 set %~1=!%1:y=Y! 
 set %~1=!%1:z=Z! 
goto:eof