@echo off
if !%1==! goto ende
if exist c:\tmp\chkgotos.out del c:\tmp\chkgotos.out
ve -x c:\vedit\chkgotos.vdm %1 c:\tmp\chkgotos.out
if errorlevel 1 goto error
echo.
echo Alle GOTOs sind o.k.
goto ende            
:error
ve -c "Win_tile() bs(2) S('GOTOs') U() WS(1,ATTACH)" %1 c:\tmp\chkgotos.out
:ende
echo.