@Echo off
Cls

Rem *** STARTER.BAT batch file for node @QFRONTNODE ***

:Start

@Echo off
Cls

Set PCBDRIVE=@DRIVE
Set PCBDIR=@PATH
Set PCBDAT=@PCBDAT
Set PCBNODE=@QFRONTNODE
Set MINUTES=

Echo Loading QFront, please wait...

@QFRONTDRIVE
CD @QFRONTPATH

QFront /C@QFRONTDRIVE@QFRONTPATH\NODE@QFRONTNODE

Rem *** NOTES ON LOADING PCBOARD ***

Rem When a human caller comes in or the sysop wants to log on
Rem locally, QFront creates a BBSBATCH.BAT file with information
Rem such as baud rate, etc. in it.  The BBSBATCH.BAT file simply
Rem loads the SPAWNBBS.BAT file which then loads PCBoard.
Rem See the SPAWNBBS.BAT file for more information.

if exist @DRIVE@PATH\BBSBATCH.BAT goto LoadBBS
if errorlevel 20 goto pcbsm
if errorlevel 19 goto restart
if errorlevel 18 goto restart
if errorlevel 17 goto restart
if errorlevel 16 goto restart
if errorlevel 15 goto restart
if errorlevel 14 goto restart
if errorlevel 13 goto restart
if errorlevel 12 goto restart
if errorlevel 11 goto restart
if errorlevel 10 goto restart
if errorlevel 9 goto faxcall
if errorlevel 8 goto tossfido
if errorlevel 7 goto compile
if errorlevel 6 goto restart
if errorlevel 5 goto restart
if errorlevel 4 goto restart
if errorlevel 3 goto restart
if errorlevel 2 goto runevent
if errorlevel 1 goto error
if errorlevel 0 goto end

:LoadBBS
@DRIVE
CD @PATH
BBSBATCH.BAT

:PCBSM
@DRIVE
CD @PATH
PCBSM
Goto Start

:RunEvent
@DRIVE
CD @PATH
QEVT-@QFRONTNODE.BAT
Goto Start

:TossFido
@QFRONTDRIVE
CD @QFRONTPATH
QScan /C@QFRONTDRIVE@QFRONTPATH\NODE@QFRONTNODE /BOTH
Goto Start

:Compile
@QFRONTDRIVE
CD @QFRONTPATH
QNList /C@QFRONTDRIVE@QFRONTPATH\NODE@QFRONTNODE /COMPILENEW
Goto Start

:FaxCall
Goto Start

:Restart
Goto Start

:Error
Goto Start

:End
Set PCBDRIVE=
Set PCBDIR=
Set PCBDAT=
Set PCBNODE=
Set MINUTES=