@echo off
   set VCEXT=%@upper[%@name[%@line[%1,0]]]
   set VCEXT=%@substr[%VCEXT,4,3]
   iff %@index[%VCEXT,`.`] EQ 0 then
      set VCEXT=
   endiff
   iff %@index[%VCEXT,`.`] GT 0 then
      set VCEXT=%@substr[%VCEXT,0,%@index[%VCEXT,`.`]]
   endiff
   set VC1=%@upper[%@name[%1]]
   set VC2=%@upper[%@ext[%1]]
   echo Xtracting %VC1.%VC2 as %VC1.%VCEXT from 4DCV%VCEXT.ZIP
   @pkunzip -o 4DVC%VCEXT.ZIP 4DVCXTRC\ %VC1.%VC2 >&! NUL
   set VCRC=%?
   iff %VCRC NE 0 then
      echo Error: PKUNZIP failed to extract the file, Return-Code: %VCRC
      pause
      goto WRAPUP
   endiff
   iff exist %VC1.%VCEXT then
      echo     (overlaying existing file)
      del /q %VC1.%VCEXT >&! NUL
   else
      echo     (creating new file)
   endiff
   copy /q 4DVCXTRC\%VC1.%VC2 %VC1.%VCEXT
   del /q 4DVCXTRC\%VC1.%VC2 >&! NUL
:WRAPUP
   set VC1=
   set VC2=
   set VCEXT=
   set VCRC=