home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / amail20 / amail.tom < prev    next >
Text File  |  1993-02-24  |  4KB  |  248 lines
  1. #                                   ==========
  2. #                               The Hobbit's Burrow
  3. #                                   ==========
  4.  
  5. set prompt echo -n "$cwd" >
  6. set owrite on
  7. set quick on
  8.  
  9. alias c: cd c:
  10. alias d: cd d:
  11. alias e: cd e:
  12. alias f: cd f:
  13. alias g: cd g:
  14. alias h: cd h:
  15. alias i: cd i:
  16. alias j: cd j:
  17. alias k: cd k:
  18. alias l: cd l:
  19. alias m: cd m:
  20. alias n: cd n:
  21. alias a: cd a:
  22. alias A: cd a:
  23. alias C: cd c:
  24. alias D: cd d:
  25. alias E: cd e:
  26. alias F: cd f:
  27. alias G: cd g:
  28. alias H: cd h:
  29. alias I: cd i:
  30. alias J: cd j:
  31. alias K: cd k:
  32. alias L: cd l:
  33. alias M: cd m:
  34. alias N: cd n:
  35. alias copy cp
  36. alias del rm
  37. alias type cat
  38. alias rd rmdir
  39. alias md mkdir
  40. alias path echo "$PATH"
  41. alias df echo "$disk"
  42.  
  43. set ERROR
  44.  
  45. :start
  46. cls
  47. echo $mem
  48. if $mem < 600 then goto low_mem
  49. ECHO Starting The Hobbit's Burrow..
  50. cd d:\qbbs\
  51. del exitinfo.bbs
  52.  
  53. set PATH c:\utils\,c:\hd_utils\,c:\utils\arcs\,c:\batch\,d:\batch\,h:\,d:\jetmail\
  54. set MAILER  D:\BINKLEY\
  55. set QBBS D:\QBBS\
  56. set COMSPEC C:\UTILS\TOMSHELL.TOS
  57. set JETMAIL D:\JETMAIL\
  58. set STFAX G:\FAX\
  59. set RBUF 16384
  60. set TBUF 1024
  61. set JEKYLL D:\QBBS\ADD_ONS\
  62.  
  63. setcol
  64.  
  65. CD D:\BINKLEY
  66. bt UNATTENDED
  67.  
  68. ifv $status 192 goto b19200
  69. ifv $status 160 goto weekly
  70. ifv $status 150 goto monthly
  71. ifv $status 144 goto b14400
  72. ifv $status 140 goto seeimp
  73. ifv $status 128 goto b38400
  74. ifv $status 120 goto b12000
  75. ifv $status 110 goto ticks
  76. ifv $status 100 goto local
  77. ifv $status  96 goto b9600
  78. ifv $status  90 goto nightly
  79. ifv $status  72 goto b7200
  80. ifv $status  70 goto forced
  81. ifv $status  60 goto export
  82. ifv $status  50 goto import
  83. ifv $status  40 goto tiny_export
  84. ifv $status  48 goto b4800
  85. ifv $status  30 goto tiny_import
  86. ifv $status  24 goto b2400
  87. ifv $status  20 goto key_update
  88. ifv $status  15 goto amail_key
  89. ifv $status  12 goto b1200
  90. ifv $status  10 goto cli
  91. ifv $status   9 goto import
  92. ifv $status   4 goto nightly
  93. ifv $status   3 goto b300
  94. ifv $status   1 goto keybexit
  95.  
  96. GOTO errorend
  97.  
  98. #   =======================================================================
  99.  
  100. :local
  101. cd d:\qbbs
  102. quickbbs -L
  103. CD d:\qbbs\add_ons
  104. GOTO start
  105.  
  106. :b2400
  107. cd \qbbs
  108. quickbbs -b2400
  109. GOTO afterquick
  110.  
  111. :b1200
  112. cd \qbbs
  113. quickbbs -b1200
  114. GOTO afterquick
  115.  
  116. :b300
  117. cd \qbbs
  118. quickbbs -b0300
  119. GOTO afterquick
  120.  
  121. :b38400
  122. cd \qbbs
  123. quickbbs -b38400
  124. GOTO afterquick
  125. :b19200
  126. cd \qbbs
  127. quickbbs -b19200
  128. GOTO afterquick
  129. :b14400
  130. cd \qbbs
  131. quickbbs -b14400
  132. GOTO afterquick
  133. :b12000
  134. cd \qbbs
  135. quickbbs -b12000
  136. GOTO afterquick
  137. :b9600
  138. cd \qbbs
  139. quickbbs -b9600
  140. GOTO afterquick
  141. :b7200
  142. cd \qbbs
  143. quickbbs -b7200
  144. GOTO afterquick
  145. :b4800
  146. cd \qbbs
  147. quickbbs -b4800
  148. GOTO afterquick
  149.  
  150. :keybexit
  151. CLS
  152. ECHO - Normal Termination -
  153. exit
  154.  
  155. :errorend
  156. ifv $ERROR OFF goto first_err
  157. cd d:\qbbs\add_ons\
  158. logit Binkley Error: $status - COLD Boot time..
  159. ECHO - Binkley Error -
  160. CD C:\HD_UTILS
  161. coldboot
  162. exit
  163.  
  164. :first_err
  165. cd d:\qbbs\add_ons\
  166. logit Binkley Error: $status
  167. set ERROR ON
  168. goto start
  169.  
  170. :afterquick
  171. set ERROR OFF
  172. ifv $status 50 GOTO amail
  173. aq $status
  174. GOTO start
  175.  
  176. :import
  177. import 
  178. GOTO start
  179.  
  180. :export
  181. export
  182. GOTO start
  183.  
  184. :nightly
  185. nightly
  186. export
  187. GOTO start
  188.  
  189. :forced
  190. forced
  191. GOTO start
  192.  
  193. :weekly
  194. nightly
  195. weekly
  196. export
  197. GOTO start
  198.  
  199. :monthly
  200. nightly
  201. monthly
  202. export
  203. GOTO start
  204.  
  205. :amail
  206. cd g:\amail
  207. amail
  208. cd d:\qbbs
  209. quickbbs -r
  210. goto afterquick
  211.  
  212. :tiny_import
  213. jetmail import
  214. goto start
  215.  
  216. :tiny_export
  217. jetmail pack bundle scan
  218. goto start
  219.  
  220. :cli
  221. set ERROR OFF
  222. interact
  223. ifv $status > 0 then exit
  224. goto start
  225.  
  226. :amail_sys
  227. cd g:\amail
  228. amail
  229. cd d:\qbbs
  230. quickbbs -r
  231. ifv $status 50 goto amail_sys
  232. goto start
  233.  
  234. :amail_key
  235. cd g:\sozobon\source\amail\keys
  236. amkey
  237. goto start
  238.  
  239. :key_update
  240. cd g:\sozobon\source\amail\keys
  241. build
  242. goto start
  243.  
  244. :low_mem
  245. cd d:\qbbs\add_ons
  246. logit Memory too low! COLD Boot Time
  247. coldboot
  248.