set C=unknown
if exist export.bat cd ..
cdate "+set C=%%y%%m%%d" > _export.bat
call _export.bat
pause output is gtool4-%c%.tgz
deltree gtool4-beta
mkdir gtool4-beta
xcopy /s gtool4 gtool4-beta

cd gtool4-beta
deltree /Y Debug gt*.plg gtool4.ncb gtool4.opt *.bak
qkc /U Makefile Config.mk

cd f90grep
deltree /Y Debug gt*.plg cvs
qkc /U Makefile *.f90
cd ..

cd gtview
deltree /Y Debug gt*.plg cvs
qkc /U Makefile *.f90
cd ..

cd gtunary
deltree /Y Debug gt*.plg cvs
qkc /U Makefile *.f90
cd ..

cd gtbinary
deltree /Y Debug gt*.plg cvs
qkc /U Makefile *.f90
cd ..

cd gtprint
deltree /Y Debug gt*.plg cvs
qkc /U Makefile *.f90
cd ..

cd gtattr
deltree /Y Debug gt*.plg cvs
qkc /U Makefile *.f90
cd ..

cd gtlist
deltree /Y Debug gt*.plg cvs
qkc /U Makefile *.f90
cd ..

cd gtcopy
deltree /Y Debug gt*.plg cvs
qkc /U Makefile *.f90
cd ..

cd gtshallow
deltree /Y Debug gt*.plg cvs
qkc /U Makefile *.f *.f90
cd ..

cd src
deltree /Y Debug gt*.plg cvs
qkc /M Makefile Config.mk
qkc /U Makefile *.f *.f90
cd ..

deltree /y vbgttree\package vbgttree\cvs
del vbgttree\vbgttree.pdm
del vbgttree\vbgttree.exe

deltree /y gtool4\debug gtool4\cvs cvs not-yet-used\cvs
deltree /y doc\_vti_cnf doc\cvs doc\images\cvs
deltree /y doc\images\_vti_cnf
cd ..
tar cvfz gtool4-%C%.tgz dc-isovst gtool4-beta
deltree /y gtool4-beta
del _export.bat
SET C=
