@echo Check, and update FG/20 perl scripts ...
@set TEMP1=C:\FG\20
@set TEMPLIST=
@set TEMPMISS=
@for %%i in (fgcmp2dsps.pl fgdsphdrs.pl fgscanvc.pl fgsln2dsw02.pl fgutils.pl fgvc2dsp02.pl) do @(call :CMPEM %%i)
@echo.
@echo List of changes ...
@echo %TEMPMISS% not yet copied ...
@echo %TEMPLIST%
@echo.
@for %%i in (%TEMPMISS%) do @(call :COPYIT %%i)
@for %%i in (%TEMPLIST%) do @(call :COPYEM %%i)

@goto :EOF

:CMPEM
@if "%1x" == "x" goto :EOF
@if NOT EXIST %1 goto ADDMISS
fc4 %1 %TEMP1%\%1
@if ERRORLEVEL 1 goto ADDIT
@goto :EOF

:ADDIT
@set TEMPLIST=%TEMPLIST% %1
@echo %1 added to list ...
@goto :EOF

:ADDMISS
@set TEMPMISS=%TEMPMISS% %1
@goto :EOF

:COPYEM
@if "%1x" == "x" goto :EOF
@echo Mayeb copy %1 to here ...
@goto :EOF

:COPYIT
@if "%1x" == "x" goto :EOF
@echo Copy missing %1 to here ...
copy %TEMP1%\%1
@goto :EOF
