home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
bbs
/
amail20
/
amail.tom
< prev
next >
Wrap
Text File
|
1993-02-24
|
4KB
|
248 lines
# ==========
# 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