echo off
:run1
cls
echo checking for errors...
if exist %1.PAS goto doit
echo what file do you want to run?
goto exit
:doit
vispas <%1.PAS >%1.com
if errorlevel 5 goto exit
if errorlevel 1 goto edit
visbug %1
:edit
if errorlevel 1 vised %1/e
if errorlevel 1 goto run1
:exit