#                                   ==========
#                               The Hobbit's Burrow
#                                   ==========

set prompt echo -n "$cwd" >
set owrite on
set quick on

alias c: cd c:
alias d: cd d:
alias e: cd e:
alias f: cd f:
alias g: cd g:
alias h: cd h:
alias i: cd i:
alias j: cd j:
alias k: cd k:
alias l: cd l:
alias m: cd m:
alias n: cd n:
alias a: cd a:
alias A: cd a:
alias C: cd c:
alias D: cd d:
alias E: cd e:
alias F: cd f:
alias G: cd g:
alias H: cd h:
alias I: cd i:
alias J: cd j:
alias K: cd k:
alias L: cd l:
alias M: cd m:
alias N: cd n:
alias copy cp
alias del rm
alias type cat
alias rd rmdir
alias md mkdir
alias path echo "$PATH"
alias df echo "$disk"

set ERROR

:start
cls
echo $mem
if $mem < 600 then goto low_mem
ECHO Starting The Hobbit's Burrow..
cd d:\qbbs\
del exitinfo.bbs

set PATH c:\utils\,c:\hd_utils\,c:\utils\arcs\,c:\batch\,d:\batch\,h:\,d:\jetmail\
set MAILER  D:\BINKLEY\
set QBBS D:\QBBS\
set COMSPEC C:\UTILS\TOMSHELL.TOS
set JETMAIL D:\JETMAIL\
set STFAX G:\FAX\
set RBUF 16384
set TBUF 1024
set JEKYLL D:\QBBS\ADD_ONS\

setcol

CD D:\BINKLEY
bt UNATTENDED

ifv $status 192 goto b19200
ifv $status 160 goto weekly
ifv $status 150 goto monthly
ifv $status 144 goto b14400
ifv $status 140 goto seeimp
ifv $status 128 goto b38400
ifv $status 120 goto b12000
ifv $status 110 goto ticks
ifv $status 100 goto local
ifv $status  96 goto b9600
ifv $status  90 goto nightly
ifv $status  72 goto b7200
ifv $status  70 goto forced
ifv $status  60 goto export
ifv $status  50 goto import
ifv $status  40 goto tiny_export
ifv $status  48 goto b4800
ifv $status  30 goto tiny_import
ifv $status  24 goto b2400
ifv $status  20 goto key_update
ifv $status  15 goto amail_key
ifv $status  12 goto b1200
ifv $status  10 goto cli
ifv $status   9 goto import
ifv $status   4 goto nightly
ifv $status   3 goto b300
ifv $status   1 goto keybexit

GOTO errorend

#   =======================================================================

:local
cd d:\qbbs
quickbbs -L
CD d:\qbbs\add_ons
GOTO start

:b2400
cd \qbbs
quickbbs -b2400
GOTO afterquick

:b1200
cd \qbbs
quickbbs -b1200
GOTO afterquick

:b300
cd \qbbs
quickbbs -b0300
GOTO afterquick

:b38400
cd \qbbs
quickbbs -b38400
GOTO afterquick
:b19200
cd \qbbs
quickbbs -b19200
GOTO afterquick
:b14400
cd \qbbs
quickbbs -b14400
GOTO afterquick
:b12000
cd \qbbs
quickbbs -b12000
GOTO afterquick
:b9600
cd \qbbs
quickbbs -b9600
GOTO afterquick
:b7200
cd \qbbs
quickbbs -b7200
GOTO afterquick
:b4800
cd \qbbs
quickbbs -b4800
GOTO afterquick

:keybexit
CLS
ECHO - Normal Termination -
exit
 
:errorend
ifv $ERROR OFF goto first_err
cd d:\qbbs\add_ons\
logit Binkley Error: $status - COLD Boot time..
ECHO - Binkley Error -
CD C:\HD_UTILS
coldboot
exit

:first_err
cd d:\qbbs\add_ons\
logit Binkley Error: $status
set ERROR ON
goto start

:afterquick
set ERROR OFF
ifv $status 50 GOTO amail
aq $status
GOTO start

:import
import 
GOTO start

:export
export
GOTO start

:nightly
nightly
export
GOTO start

:forced
forced
GOTO start

:weekly
nightly
weekly
export
GOTO start

:monthly
nightly
monthly
export
GOTO start

:amail
cd g:\amail
amail
cd d:\qbbs
quickbbs -r
goto afterquick

:tiny_import
jetmail import
goto start

:tiny_export
jetmail pack bundle scan
goto start

:cli
set ERROR OFF
interact
ifv $status > 0 then exit
goto start

:amail_sys
cd g:\amail
amail
cd d:\qbbs
quickbbs -r
ifv $status 50 goto amail_sys
goto start

:amail_key
cd g:\sozobon\source\amail\keys
amkey
goto start

:key_update
cd g:\sozobon\source\amail\keys
build
goto start

:low_mem
cd d:\qbbs\add_ons
logit Memory too low! COLD Boot Time
coldboot