if be%1==bequite goto skipbeep
beep
:skipbeep
cd j:\
cd i:\
cd h:\
cd g:\
cd f:\
cd e:\
cd d:\
c:
cd\bbs
tag
if errorlevel 255 goto end
if errorlevel 254 goto maint
goto boottag

:maint
rem **** Run YT maintenance ****
c:
cd\bbs\yt
ytmaint
rem **** Run elynthia maintenance ****
c:
cd\bbs\elynthia
elymaint
rem **** Run bulletin programs ****
c:
cd\bbs
newlist
comstat
rem **** Copy areas.bbs to echo.120 file ****
cd\bbs\binkley
copy areas.bbs echo.120
rem **** Create file listing for request ****
filelist -d9 -fc:\bbs\gfiles\ -oarthur.fil
rem **** Sort standard messages for renumber ****
j:
cd\msgs
ds dt /s
rem **** Sort all directories on net/echo mail drive for renumber ****
e:
cd\
ds dt /s
rem **** Renumber net/echo/private mail ****
c:
cd\bbs\binkley
tagxpren c:\bbs\gfiles
rem **** Sort standard messages for speed ****
j:
cd\msgs
ds d-t- /s
rem **** Sort all directories on net/echo mail drive for speed ****
e:
cd\
ds d-t- /s
rem **** Check for inbound echo.* files and copy them ****
c:
cd\bbs\binkley
copy c:\inbound\echo.160 c:\inbound\echo\echo.160
del c:\inbound\echo.160
copy c:\inbound\echo.226 c:\inbound\echo\echo.226
del c:\inbound\echo.226
rem **** Auto send new files to 102 ***
autosend -aareas -fc:\bbs\binkley\echo.120 -t
autosend -aareas -fc:\inbound\echo\echo.160 -t
autosend -aareas -fc:\inbound\echo\echo.226 -t
rem **** Go back to C:\ and we are done ****
c:
cd\
goto bootquite

:bootquite
tag quite

:boottag
tag

:end