@setlocal
@set TMPSRC=C:\MDOS\perlblank.bat
@if NOT EXIST %TMPSRC% goto NOSRC
@if "%~1x" == "x" goto HELP

copy %TMPSRC% C:\MDOS\%1.bat

@echo Fix name in batch file to %1

call np C:\MDOS\%1.bat

@goto END

:NOSRC
@echo Error: Can NOT locate source %TMPSRC%! *** FIX ME ***
@goto END

:HELP
@echo Give the 'name' of the batch file to create...
@goto END



:END
