@ECHO OFF
:LOOP
CLS
M:
cd\pcb\front
fd
if errorlevel 103 goto board
if errorlevel 102 goto board
if errorlevel 101 goto board
rem ************* IMPORT MAIL
if errorlevel 70 goto mail_in
rem ************* EXPORT MAIL
if errorlevel 60 goto mail_out
rem ************* EXIT TO DOS
if errorlevel 10 goto end
goto error
rem ********************************************************
rem Human caller; pass to PCBoard
:board
dobbs
rem ********************************************************
rem Start event at hh:mm; prepare mail
rem PCBoard event (AdriaNet transfer, file list, statistics)
:mail_out
cd fidopcb
fidopcb toss strip
rem Save statistics for this event
type ficopcb.sta >> all_stat
cd..
f:\fdevent.bat
goto loop
rem ********************************************************
rem Mail received from Fidonet; convert to PCBoard
:mail_in
cd fidopcb
fidopcb toss
rem Save statistics for this event
type fidopcb.sta >> all_stat
goto loop
rem ********************************************************
rem Error has occured in FrontDoor
:error
ECHO ERROR !!!!! >errors!.log
boot
:end
ECHO The BBS is Down !!!