@echo off
if not exist f:\dvansi.com goto exit
f:\dvansi.com
D:
CD\PCB
REM if exist f:\prod.cnf goto cont1
REM copy recycle.exe f:\
REM copy prolon.exe f:\
REM copy prolon.cnf f:\
REM copy \pcb\main\pcbtext f:\
REM copy \pcb\utils\cookie.com f:\
REM copy \prod\prodoor.exe f:\
REM copy \prod\prod.cnf f:\
REM :cont1
if exist event.bat rename event.bat event.sys
if exist remote.bat rename remote.bat remote.sys
if exist door.bat del door.bat

rem NOTE! the following statement must NOT removed if present in your BOARD.BAT
:if exist endpcb del endpcb

f:\recycle >NUL
if errorlevel 1 goto runpcb
copy prodoor door.bat >nul
door N
:runpcb
if exist $door.bat del $door.bat

cls
echo Reloading system ...
rem :$SYSTEM

REM COPY GEN\PCBTEXT F:\PCBTEXT
@brk on
@DTR ON
@Echo OFF
@AT M0H1
@copylog /D:\pcb\main\caller1 /d:\pcb\logs\caller
@pcbl15mn pcbl15.cfg
@sfchkdsk
set extuser=d:\prod\extuser
set confinfo=d:\prod\confinfo
backdoor d:\pcb\main\caller > d:\prod\prostrt
backdoor /C d:\pcb\main\caller > d:\prod\prostrtG
set TAGLINE=Ferret Face 501-374-8468 HST-N Little Rock,AR
set EDITOR=C:\DOS\NE.COM
set NOULBY=ON
set CITY=ON
IF NOT EXIST F:\PROLON.EXE GOTO HARD
F:\prolon prolon.cnf d:\pcb
cls
GOTO CONT1
:HARD
PROLON.EXE PROLON.CNF D:\PCB
cls
:CONT1
if exist bull.txt f:\bulecho1 bull.txt
f:\bulecho1 \pcb\bull\bull1
IF EXIST F:\COOKIE.COM F:\cookie > f:\cookie.txt
cd\pcb
if exist f:\cookie.txt f:\bulecho1 f:\cookie.txt
if exist door.bat door
if exist remote.bat remote
if exist event.bat event
if exist endpcb goto end
board

:end
del endpcb
echo Type BOARD to restart system
goto exit

:exit