home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / XBBS_118.ZIP / SAMPLES.ZIP / MENU.BAT < prev    next >
Encoding:
DOS Batch File  |  1990-10-25  |  3.3 KB  |  193 lines
  1. Echo off
  2. DTR ON
  3. AT S0=0
  4. DTR OFF
  5. :_Menu
  6. C:
  7. CD\BT
  8. Scroll
  9. if ERRORLEVEL == 1 goto End
  10. Echo 
  11. Echo                   The Pit's Waiting Menu:
  12. Echo 1. Delete Bink.LOG
  13. Echo 2. Delete XBBS.LOG
  14. Echo 3. Delete both Bink.LOG and XBBS.LOG
  15. Echo 4. Shez
  16. Echo 5. Quick-Log onto BBS
  17. Echo 6. Run Mail.BAT
  18. Echo 7. Run Clean.BAT
  19. Echo 8. SysOp Out
  20. Echo 9. SysOp In
  21. Echo 0. HeadEdit
  22. Echo A. Amax                B. Bulls
  23. Echo C. Maze                D. Stories
  24. Echo E. Library             F. XEdit
  25. Echo G. Trivia              H. BBSList
  26. Echo I. RPGs                J. Jump to DOS
  27. Echo K. Read LogFiles       Q. Return to Binkley
  28. Echo U. XUser               Z. Filer
  29. Echo 
  30. inkey 1234567890ABCDEFGHIJKQUYZ/Well: ;
  31.  
  32. if ERRORLEVEL == 90 goto Do_Filer
  33. if ERRORLEVEL == 85 goto Do_XUser
  34. if ERRORLEVEL == 81 goto End
  35. if ERRORLEVEL == 75 goto Read_Logs
  36. if ERRORLEVEL == 74 goto Jump_Dos
  37. if ERRORLEVEL == 73 goto Do_RPGs
  38. if ERRORLEVEL == 72 goto Do_BBSList
  39. if ERRORLEVEL == 71 goto Do_Trivia
  40. if ERRORLEVEL == 70 goto Do_XEdit
  41. if ERRORLEVEL == 69 goto Do_Library
  42. if ERRORLEVEL == 68 goto Do_Stories
  43. if ERRORLEVEL == 67 goto Do_Maze
  44. if ERRORLEVEL == 66 goto Do_Bulls
  45. if ERRORLEVEL == 65 goto Do_Amax
  46. if ERRORLEVEL == 57 goto Statin
  47. if ERRORLEVEL == 56 goto Stat_out
  48. if ERRORLEVEL == 55 goto Clean
  49. if ERRORLEVEL == 54 goto UnpackMail
  50. if ERRORLEVEL == 53 goto Local_BBS
  51. if ERRORLEVEL == 52 goto Do_Shez
  52. if ERRORLEVEL == 51 goto Del_Both
  53. if ERRORLEVEL == 50 goto Del_SysLog
  54. if ERRORLEVEL == 49 goto Del_Binklog
  55. if ERRORLEVEL == 48 goto Do_Head
  56. goto _Menu
  57.  
  58. :Do_Shez
  59. Shez
  60. goto _Menu
  61.  
  62. :Local_BBS
  63. SPAWNBBS.BAT 0 0 999
  64.  
  65. :UnpackMail
  66. Call Mail.BAT
  67. goto _Menu
  68.  
  69. :Clean
  70. Call Clean.BAT
  71. goto _Menu
  72.  
  73. :Jump_Dos
  74. C:\Command.COM
  75. goto _Menu
  76.  
  77. :Do_Head
  78. C:
  79. CD\XBBS
  80. EGMODE 13
  81. HEADEDIT.EXE HEADEDIT.CFG
  82. EGMODE 12
  83. CD\BT
  84. goto _Menu
  85.  
  86. :Read_Logs
  87. Echo.
  88. inkey BX/Read [B]ink or [X]BBS LogFile? ;
  89. if ERRORLEVEL == 88 goto ReadQ
  90. Read C:\BT\Bink.LOG
  91. goto _Menu
  92.  
  93. :ReadQ
  94. Read C:\XBBS\XBBS.LOG
  95. goto _Menu
  96.  
  97. :Do_Filer
  98. CD\XBBS
  99. Filer2.EXE NOBELL -T999
  100. goto _Menu
  101.  
  102. :Do_XUser
  103. CD\XBBS
  104. XUSER.EXE
  105. goto _Menu
  106.  
  107. :Do_Maze
  108. CD\XBBS
  109. Maze.EXE -PC:\XBBS\Maze\
  110. goto _Menu
  111.  
  112. :Do_Bulls
  113. CD\XBBS
  114. Bulls.EXE -PC:\XBBS\Bulls\
  115. goto _Menu
  116.  
  117. :Do_Amax
  118. Call AMAX.BAT
  119. goto _Menu
  120.  
  121. :Do_RPGs
  122. CD\XBBS
  123. RPGS.EXE -PC:\XBBS\RPGS\
  124. goto _Menu
  125.  
  126. :Do_XEdit
  127. CD\XBBS
  128. XEDIT.EXE
  129. goto _Menu
  130.  
  131. :Do_Library
  132. CD\XBBS
  133. Library.EXE DC:\XBBS\LIBRARY\ G1 L25 Eread $2
  134. goto _Menu
  135.  
  136. :Do_Trivia
  137. CD\XBBS
  138. Trivia.EXE -PC:\XBBS\MISC\
  139. goto _Menu
  140.  
  141. :Do_Stories
  142. CD\XBBS
  143. Stories.EXE -PC:\XBBS\MISC\
  144. goto _Menu
  145.  
  146. :Do_BBSList
  147. CD\XBBS
  148. BBSList.EXE -PC:\XBBS\MISC\
  149. goto _Menu
  150.  
  151. :Del_Both
  152. copy C:\BT\Bink.Log C:\BT\Bink.BAK
  153. Del C:\BT\Bink.Log
  154.  
  155. :Del_SysLog
  156. copy C:\XBBS\XBBS.LOG C:\XBBS\XBBS.BAK
  157. Del C:\XBBS\XBBS.LOG
  158. goto _Menu
  159.  
  160. :Del_Binklog
  161. Del C:\BT\Bink.LOG
  162. goto _Menu
  163.  
  164. :STAT_in
  165. Echo Changing SysOp status to IN for XBBS...
  166. cd\XBBS
  167. copy C:\XBBS\XBBSParm.IN C:\XBBS\XBBSParm.XBS
  168. XConfig IN
  169. Echo 
  170. cd\BT
  171. goto Start
  172.  
  173. :STATin
  174. Echo Changing SysOp status to IN for XBBS...
  175. cd\XBBS
  176. copy C:\XBBS\XBBSParm.IN C:\XBBS\XBBSParm.XBS
  177. XConfig IN
  178. Echo 
  179. cd\BT
  180. goto _Menu
  181.  
  182. :STAT_out
  183. Echo Changing SysOp status to OUT for XBBS...
  184. cd\XBBS
  185. copy C:\XBBS\XBBSParm.OUT C:\XBBS\XBBSParm.XBS
  186. XConfig OUT
  187. Echo 
  188. cd\BT
  189. goto _Menu
  190.  
  191. :End
  192. RUNXBBS.BAT
  193.