@setlocal
@if "%~1x" == "x" goto HELP
@set TMPDST1=C:\HOMEPAGE\GA\mperl
@set TMPDST=%TMPDST1%\zips
@set TMPZIP=%1
@set TMPSRC=zips\%TMPZIP%
@if NOT EXIST %TMPSRC% goto ERR1
@call dirmin %TMPSRC%
@if NOT EXIST %TMPDST%\nul goto ERR2
@if NOT EXIST %TMPDST%\%TMPZIP% goto NODST
@call dirmin %TMPDST%\%TMPZIP%
@echo NOTE: Destination file ALREADY exists
:NODST
@echo Copy %TMPSRC% to %TMPDST%
@echo *** CONTINUE *** Only Ctrl+c aborts... all other keys continue...
@pause
@echo Are you SURE?
@echo *** CONTINUE *** Only Ctrl+c aborts... all other keys continue...
@pause

copy %TMPSRC% %TMPDST%\.

@call dirmin %TMPDST1%\index.htm
@echo Do NOT forget to update the above index 

@goto END

:ERR2


:ERR1
@echo Error: Can NOT find file %TMPSRC%
:HELP
@echo Give the zip file name in zips to copy to %TMPDST%
:END
