@echo off
   cls
:TESTPARMS
   iff "%1" NE "" then
      iff exist %1 then
         iff "%VCSPEC" NE "" then
            set VCSPEC=%VCSPEC+%1
         else
            set VCSPEC=%1
         endiff
      endiff
      shift
      goto TESTPARMS
   endiff
   iff "%VCSPEC" EQ "" then
      cls
      echo 4DVCBKUP: No files found with extensions provided.
      pause
      goto WRAPUP
   endiff
   select /Oe call 4DVCBKP2.BTM (%VCSPEC)
:WRAPUP
   set VCSPEC=
   set VCRESP=
   cls