SAMPLE ONLY....... NOT editted to run with Bink and RA 
Included to show the Binkley relationship.


goto end

echo off
cls
c:
cd\RA
set Binkley=C:\Bink\
set dszlog=c:\RA\dsz.log
if %1. == . goto start
dtr on
at h1
goto %1
 
:start
   cd\RA
   last 20 bink.log
   last 20 system.log
   AT Z
   bt share
   if ERRORLEVEL 100 goto start
   if ERRORLEVEL 96 goto 9600bbs
   if ERRORLEVEL 65 goto err65
   if ERRORLEVEL 64 goto err64
   if ERRORLEVEL 63 goto PollRC
   if ERRORLEVEL 62 goto PollAtl
   if ERRORLEVEL 61 goto PollREC
   if ERRORLEVEL 50 goto localbbs
   if ERRORLEVEL 49 goto daily
   if ERRORLEVEL 48 goto morning
   if ERRORLEVEL 47 goto clean
   if ERRORLEVEL 40 goto clean
   if ERRORLEVEL 30 goto unpackmail
   if ERRORLEVEL 24 goto 2400bbs
   if ERRORLEVEL 20 goto unpackmail
   if ERRORLEVEL 12 goto 1200bbs
   if ERRORLEVEL 10 goto net&echo
   if ERRORLEVEL 3  goto 300bbs
   if ERRORLEVEL 1  goto out
   goto out
 
:err65
:err64
 goto start
 
:localbbs
 Rem    Load the BBS in local Mode
 DTR ON
 AT M0H1
 RA -l -e0
  if errorlevel 23 goto outside:
  if errorlevel 5 goto net&echo
  if errorlevel 4 goto echoonly
  if errorlevel 3 goto netonly
 goto afterquick
 
:9600bbs
 RA -b9600 -e0
  if errorlevel 5 goto net&echo
  if errorlevel 4 goto echoonly
  if errorlevel 3 goto netonly
 goto afterquick
 
:2400bbs
 RA -b2400 -e0
 goto afterquick
 
:1200bbs
 RA -b1200 -e0
 goto afterquick
 
:300bbs
 RA -b300 -e0
 goto afterquick
 
:restartquick
 RA -r -e0
  if errorlevel 99 goto outside:
  if errorlevel 98 goto remote:
  if errorlevel 23 goto outside:
  if errorlevel 22 goto remote:
  if errorlevel 6 goto start
  if errorlevel 5 goto net&echo
  if errorlevel 4 goto echoonly
  if errorlevel 3 goto netonly
  goto start
 
:afterquick
  DTR ON
  AT M0H1
:after
  if errorlevel 99 goto outside:
  if errorlevel 98 goto remote:
  if errorlevel 23 goto outside:
  if errorlevel 22 goto remote:
  if errorlevel 6 goto start
  if errorlevel 5 goto net&echo
  if errorlevel 4 goto echoonly
  if errorlevel 3 goto netonly
  goto start
 
:net&echo
 DTR ON
 AT M0H1
mailscan 3
 DTR ON
 AT M0H1
:echoonly
 echogen -E -M400 -P -Z
 if errorlevel 3 goto echoerr
 if errorlevel 2 goto loop
 if errorlevel 1 goto bundle
 if errorlevel 0 goto bundle
:loop
 ommm -HC:\RA\OUTBOUND -MC:\ZMAIL -IC:\RA\BINK.PRM -cCONTROL.FIL -Z -SA
 goto echoonly
:echoerr
 echo *** Echoscan error *** >> system.log
 echo *** Echoscan error ***
  goto bundle
 
:netonly
 DTR ON
 AT M0H1
 mailscan 3
 :ommm routine
 c:
 cd\RA
 ommm -HC:\RA\OUTBOUND -MC:\ZMAIL -IC:\RA\BINK.PRM -cCONTROL.FIL -Z -SA
 cd\RA
  goto start
 
:unpackmail
Rem  Unpack the incoming pail
Rem  Compile the nodelist if it has arrived.
 DTR ON
 AT M0H1
   cd\RA
   EchoGen -B -P -T -U -Z
echo ********************************
echo ********************************
echo ********************************
   mailtoss -K 3
echo ********************************
echo ********************************
echo ********************************
:echorun
   echogen -E -M400 -P -Z
   if errorlevel 3 goto echoerr2
   if errorlevel 2 goto loop2
   goto loop3
:loop2
   ommm -HC:\RA\OUTBOUND -MC:\ZMAIL -IC:\RA\BINK.PRM -cCONTROL.FIL -Z -SA
   goto echorun
:echoerr2
   echo *** Echoscan error *** >> system.log
   echo *** Echoscan error ***
:loop3
   if NOT EXIST c:\netfiles\NodeDiff.* goto bundle
   cd\files
   pkxarc nodediff.* c:\nodelist\
   copy nodediff.* c:\fidonet\*.*
   erase nodediff.*
   cd\nodelist
   xlatlist
   pkarc u \fidonet\nodelist.abs nodelist.bbs
   opusnode -f
   copy nodelist.sys \RA
   copy nodelist.idx \RA
   cd\RA
   qnode c:\nodelist\
 
:bundle
 Rem  Run OMMM to bundle the outbound mail
 cd\RA
 ommm -sA -hc:\RA\outbound -ic:\RA\bink.prm -mc:\zmail\ -ccontrol.fil
 cd\RA
 goto start
 
:morning
 DTR ON
 AT M0H1
: autoecho
 if not exist \netfiles\nodediff.* goto newschk
 red \fidonet\nodediff.* \fidonet\nodediff
 red \netfiles\nodediff.* \fidonet
:newschk
 if not exist \netfiles\fnews???.arc goto ommm
 red \fidonet\fnews???.arc \fidonet\fnews
 red \netfiles\fnews???.arc \fidonet
 goto bundle
 
:daily
:DAILY
 DTR ON
 AT M0H1
 ECHO .............. Executing Daily Processing .................
 DAYNBR REN system.LOG quickLOG.@###
 DAYNBR PKARC M quickLOG.ARC quicklog.@###
 DAYNBR REN bink.LOG binkLOG.@###
 DAYNBR PKARC M binkLOG.ARC binkLOG.@###
 PKARC U ANSWERS.ARC newuser.dat
 :
 DS EN C:\/S
: DS EN D:\/S
rb
goto start
 
:PollAtl
 DTR ON
 AT M0H1
 ommm -HC:\RA\OUTBOUND -MC:\ZMAIL -IC:\RA\bink.PRM -cCONTROL.FIL -sc
 goto start
 
:PollREC
 DTR ON
 AT M0H1
 ommm -HC:\RA\OUTBOUND -MC:\ZMAIL -IC:\RA\bink.PRM -cCONTROL.FIL -se
 goto start
 
:clean
 DTR ON
 AT M0H1
 cd\RA
 msgutils Killold 1 2 -D65
 msgutils Killold 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 -D21
 :          renumber message areas
 msgutils Killcnt 1 2 -n150
 msgutils Killcnt 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 -n200
 msgpack -W -R
 userpack -D120
 goto start
 
:outside
prompt Outside$p$g
command
c:
cd\RA
prompt $p$g
goto restartquick
 
:REMOTE
FOSSIL 1 ON +
CTTY GATE1
prompt Remote$p$g
command
c:
cd\RA
CTTY CON
FOSSIL 1 OFF
prompt $p$g
goto restartquick
 
:out
:exit
dtr on
at h1
last 20 bink.log
last 20 system.log