cd \FD

:start
c:
cd \FD
FD
if ERRORLEVEL 60 goto midnite
if ERRORLEVEL 59 goto clean
if ERRORLEVEL 55 goto unpackmail
if ERRORLEVEL 54 goto net&echo
if ERRORLEVEL 50 goto start
if ERRORLEVEL 45 GOTO 19200_BAUD
if ERRORLEVEL 44 GOTO 9600_BAUD
if ERRORLEVEL 43 GOTO 4800_BAUD
if ERRORLEVEL 42 goto 2400_BAUD
if ERRORLEVEL 41 goto 1200_BAUD
if ERRORLEVEL 40 goto localbbs
if ERRORLEVEL 39 goto 300_BAUD
if ERRORLEVEL 38 goto qview
if ERRORLEVEL 35 goto start
if ERRORLEVEL 10 goto out
if errorlevel 5 goto net&echo
if errorlevel 4 goto echo_only
if errorlevel 3 goto net_only
if ERRORLEVEL  1 goto out
fd

:start2
c:
cd \FD
FD -s
if ERRORLEVEL 60 goto midnite
if ERRORLEVEL 59 goto clean
if ERRORLEVEL 55 goto unpackmail
if ERRORLEVEL 54 goto net&echo
if ERRORLEVEL 50 goto start
if ERRORLEVEL 45 GOTO 19200_BAUD
if ERRORLEVEL 44 GOTO 9600_BAUD
if ERRORLEVEL 43 GOTO 4800_BAUD
if ERRORLEVEL 42 goto 2400_BAUD
if ERRORLEVEL 41 goto 1200_BAUD
if ERRORLEVEL 40 goto localbbs
if ERRORLEVEL 39 goto 300_BAUD
if ERRORLEVEL 38 goto qview
if ERRORLEVEL 35 goto start
if ERRORLEVEL 10 goto out
if errorlevel 5 goto net&echo
if errorlevel 4 goto echo_only
if errorlevel 3 goto net_only
if ERRORLEVEL  1 goto out
fd

:midnite
cd \fd\today
rem shmlscan
pkZIP -u D:\file\n\147-36 D:\file\n\147-36.txt
cd \quickbbs
QBEST C:\quickbbs\txtfiles\qbest.ans 1A1_BBS D10 U10 M10 O10 L10 /A /R /Q /C
QBEST C:\quickbbs\txtfiles\qbest.asc 1A1_BBS D10 U10 M10 O10 L10 /R /Q /C
cd txtfiles
copy qbest.asc 2.asc
copy qbest.ans 2.ans
CD\QUICKBBS
REM DOWNCOUN Q SYSTEM.LOG
REM FPOInts 11 3 6
REM UPLOADS >>c:\QUICKBBS\UPLOADS.LOG
usersort
userpack
rem CHKMSG
cd\fd
tsutil maint -o -r
rem cd\quickbbs
rem MSGPACK -a -b -R -w
rem cd\fd
rem tsutil index
clip D:\file\v\files.bbs
tick
clip D:\file\v\files.bbs
del *.bak
REM CD \QUICKBBS\GMAIL
REM GMAIL ASK
goto start

:clean
REM cd\quickbbs
REM msgutils Killold 1 2 3 4 5 6 7 8 9 11 12 13 14 15 16 17 18 19 20 21 22 23 -D15
REM msgutils Killold 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 -D15
REM msgutils Killold 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 -D15
REM msgutils Killold 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 -D15
REM msgutils Killcnt 1 2 3 4 5 6 7 8 9 11 12 13 14 15 16 17 18 19 20 21 22 23 -N80
REM msgutils Killcnt 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 -N80
REM msgutils Killcnt 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 -N80
REM msgutils Killcnt 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 -N80
REM del lastread.bbs
REM msgpack -a -R -b -w
REM userpack -d180
REM DEL *.BAK
pkarc m syslog SYSTEM.LOG
copy syslog.arc c:\fd
del syslog.arc
cd\quickbbs
tsmaint post /a CHURCH_CHAT /l c:\quickbbs\txtfiles\churchat.asc /T All /S "Suggested Rules" /F "The Moderator"
goto start

:19200_BAUD
ECHO OFF
CD\QUICKBBS
QUICKBBS -b19200 -E0 -T
GOTO AFTER_QUICK

:9600_BAUD
ECHO OFF
CD\QUICKBBS
QUICKBBS -b9600 -E0 -T
GOTO AFTER_QUICK

:4800_BAUD
ECHO OFF
CD\QUICKBBS
QUICKBBS -b4800 -E0 -T
GOTO AFTER_QUICK

:2400_Baud
ECHO OFF
cd \quickbbs
quickbbs -b2400 -E0 -T
goto After_quick

:1200_Baud
ECHO OFF
CD \quickbbs
quickbbs -b1200 -E0 -T
goto After_quick

:300_baud
ECHO OFF
cd \quickbbs
quickbbs -b300 -E0 -T
goto After_quick

:localbbs
cd \quickbbs
quickbbs -L -E0 -T
goto start2

:qview
cd\quickbbs
qview
goto start2

:Restart_quick
Quickbbs -R -E0

:After_quick
if ERRORLEVEL 75 goto door3
if ERRORLEVEL 74 goto door2
if ERRORLEVEL 73 goto door1
if ERRORLEVEL 49 goto gfile
if ERRORLEVEL 48 goto free
if ERRORLEVEL 47 goto fm
if ERRORLEVEL 44 goto combinenormal
if ERRORLEVEL 99 goto combineauto
if ERRORLEVEL 98 goto qmaint
if ERRORLEVEL 97 goto remote_edit
if ERRORLEVEL 96 goto em_edit
if ERRORLEVEL 95 goto fidofam
if errorlevel 90 goto start
if errorlevel 89 goto outside
if errorlevel 5 goto net&echo
if errorlevel 4 goto echo_only
if errorlevel 3 goto net_only
goto start

:door1
CTTY GATE2
c:\fd\bNU /W1+
D:
CD\BIBLE2
BGSD DR
C:
CD\QUICKBBS
c:\fd\bNU /W1-
CTTY CON
goto restart_quick

:door2
CTTY GATE2
c:\fd\bNU /W1+
D:
CD\BIBLE2
BGSD DN
C:
CD\QUICKBBS
c:\fd\bNU /W1-
CTTY CON
goto restart_quick

:door3
CTTY GATE2
c:\fd\bNU /W1+
D:
CD\BIBLE2
BGSD DN4
C:
CD\QUICKBBS
c:\fd\bNU /W1-
CTTY CON
goto restart_quick

:gfile
cd\quickbbs
gfile.exe -l
goto restart_quick

:free
cd \quickbbs\netnews
free.exe
cd \quickbbs
goto restart_quick

:qmaint
cd \quickbbs
REM watchdg1 on
REM ctty com1:
QMLCL
REM ctty con:
REM watchdg1 off
goto restart_quick

:em_edit
cd \bt\binkshel\qedit
q.exe
REMcd \quickbbs
REM watchdg1 on
REM ctty com1:
REM em.com
REM ctty con:
d:
cd \quickbbs
REM watchdg 1 off
goto restart_quick

:remote_edit
cd \quickbbs
REM watchdg1 on
reedit.exe
REM watchdg1 off
goto restart_quick

:fidofam
REM watchdg1 on
cd \today
REM ctty com1:
fido-fam b C:\today\sysfile.ctl
REM ctty con:
cd \quickbbs
REM watchdg1 off
goto restart_quick

:outside
REM watchdg1 on
REM ctty com1:
command.com
cd \quickbbs
REM watchdg1 off
REM ctty con:
goto restart_quick

:net&echo
REM cd\fd
REM tsutil export
cD \QUICKBBS
mailscan 13

:echo_only
cd\fd
tosscan scan
if errorlevel 253 goto clean
rEM cd \quickbbs\gmail
REM Gmail EXPORT
REM cd\quickbbs
REM QECHO -A -E -P
goto start

:net_only
cd\fd
tsutil export
REM CD \QUICKBBS
REM mailscan 13
goto start

:unpackmail
echo on
cd\fd
tosscan toss
if errorlevel 253 goto clean
tsutil link
REM tsutil import
REM cd\quickbbs\gmail
REM GMAIL IMPORT
rem cd\quickbbs
REM Spaz -F -M1:147/36 c:\fd\file
REM QECHO -A -P -T -U -LTOSS.DAT
rem Mailtoss -K
REM QLINK -LTOSS.DAT
REM DEL TOSS.DAT
GOTO START


:out
echo off
echo.
echo.
echo.
echo.
echo                              BBS is Down.
echo.
echo.
echo                            Reboot the System
echo                                to restart.
echo.