home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / XDOC_117.ZIP / SAMPLES.ZIP / RUNXBBS.BAT < prev    next >
Encoding:
DOS Batch File  |  1990-11-29  |  3.4 KB  |  192 lines
  1. Echo Off
  2. C:
  3. cd\xbbs
  4. REM exit
  5. DEL C:\XBBS\MPORT\*.MAL
  6. DEL C:\XBBS\MPORT\XDATA.*
  7. DEL C:\XBBS\MPORT\XTEXT.*
  8. inkey @\~[0;1;32m
  9. cd\
  10. E:\DOS\chksum -s C:\Command.Com 20011
  11. if ERRORLEVEL == 0 goto Start
  12. Echo !                 Mayday!  Command.Com is INFECTED! >> C:\BT\Bink.log
  13. Log C:\xbbs\xbbs.log Mayday!  Command.Com is INFECTED!
  14. Echo Mayday!  Command.Com is INFECTED!
  15. Echo Mayday!  Command.Com is INFECTED!
  16. Pause
  17.  
  18. :Start
  19. echo y | del c:\xbbs\xport\*.*
  20. if EXIST C:\XBBS\MPORT\*.RPK goto Import
  21. if EXIST C:\XBBS\MPORT\00000000.MO? goto Import2
  22. echo y | del C:\xbbs\arctemp\*.*
  23. del C:\XBBS\*.bad
  24. cd\BT
  25. Break On
  26. copy c:\xbbs\userinfo.tmp C:\xbbs\userinfo.xbs
  27. Echo.
  28. cd\BT
  29. del c:\xbbs\msgtmp*.*
  30. Echo 
  31. BT
  32. Echo 
  33. if ERRORLEVEL == 255 goto Not_in
  34. if ERRORLEVEL == 100 goto _preMenu
  35. if ERRORLEVEL == 99 goto Poll_Brian
  36. if ERRORLEVEL == 91 goto STAT&clean
  37. if ERRORLEVEL == 90 goto Do_Mail
  38. if ERRORLEVEL == 80 goto DoCAD
  39. if ERRORLEVEL == 40 goto DoCheck
  40. if ERRORLEVEL == 30 goto HeadEdit
  41. if ERRORLEVEL == 24 goto BBS
  42. if ERRORLEVEL == 20 goto Deanna
  43. if ERRORLEVEL == 15 goto Do_Echo
  44. if ERRORLEVEL == 14 goto MidNight
  45. if ERRORLEVEL == 12 goto BBS
  46. if ERRORLEVEL == 10 goto Local_BBS
  47. if ERRORLEVEL == 9 goto STAT_in
  48. if ERRORLEVEL == 8 goto Normal_Routing
  49. if ERRORLEVEL == 3 goto 300Baud
  50. if ERRORLEVEL == 1 goto Out
  51. goto Start
  52.  
  53. :Poll_Brian
  54. del c:\bt\fidonet\017c0014.?$?
  55. Boom crash 380/20
  56. Boom Poll 380/20
  57. goto Start
  58.  
  59. :Out
  60. Echo 
  61. Echo The Pit...down and out and over, rover...
  62. goto End
  63.  
  64. :Do_Mail
  65. CALL MAIL.BAT
  66. Scroll
  67. if ERRORLEVEL == 1 goto _preMenu
  68. cd\BT
  69. goto Start
  70.  
  71. :300Baud
  72. Echo Too Slow > COM1
  73. delay 2
  74. DTR Off
  75. goto Start
  76.  
  77. :DoCheck
  78. CHECK.BAT
  79.  
  80. :DoCAD
  81. CAD.BAT
  82.  
  83. :BBS
  84. BBSBATCH.BAT
  85.  
  86. :_preMenu
  87. Menu.BAT
  88.  
  89. :STAT_in
  90. REM Echo Changing SysOp status to IN for XBBS...
  91. REM cd\XBBS
  92. REM copy C:\XBBS\XBBSParm.IN C:\XBBS\XBBSParm.XBS
  93. REM XConfig IN
  94. REM Echo 
  95. REM cd\BT
  96. goto Start
  97.  
  98. :STAT&clean
  99. Echo Changing SysOp status to OUT for XBBS...
  100. cd\XBBS
  101. copy C:\XBBS\XBBSParm.OUT C:\XBBS\XBBSParm.XBS
  102. XConfig OUT
  103. cd\BT
  104. Call Clean.BAT
  105. goto Start
  106.  
  107. :Deanna
  108. C:
  109. CD\XBBS
  110. HeadEdit HeadEdit.CFG Dark
  111. C:
  112. CD\BT
  113. goto Start
  114.  
  115. :HeadEdit
  116. C:
  117. CD\XBBS
  118. HeadEdit
  119. C:
  120. CD\BT
  121. goto Start
  122.  
  123. :MidNight
  124. del C:\xbbs\lastfire.xbs
  125. cd\xbbs\survey
  126. us-pack.exe
  127. REN C:\BT\fidonet\*.HEQ *.REQ
  128. cd\xbbs
  129. call NEWSDEL.BAT
  130. cd\bt
  131. if not exist TEMP.BAT goto SkipTemp
  132. call TEMP.BAT
  133. del TEMP.BAT
  134. :SkipTemp
  135. Delay 1
  136. BOOT
  137. cd\BT
  138. goto Start
  139.  
  140. :Normal_Routing
  141. set Sched=A
  142. cd\BT
  143. ommm -s%Sched% -iC:\BT\Binkley.prm -mC:\BT\Msg -hC:\BT\fidonet -cC:\BT\Route.BBS -n
  144. goto Start
  145.  
  146. :Do_Echo
  147. del c:\bt\fidonet\017c*.?$?
  148. boom crash 380/1
  149. BOOM Poll 380/1
  150. boom crash 380/20
  151. BOOM Poll 380/20
  152. Delay 0 w
  153. if ERRORLEVEL NOT 7 goto Start
  154. Delay 0 I 00:04:00 00:05:59
  155. if ERRORLEVEL == 1 goto Start
  156. :GetFiles
  157. BOOM get FILES 380/1
  158. CALL MAKELIST.BAT
  159. goto Start
  160.  
  161. :Get_BBS
  162. Beep
  163.  
  164. :Local_BBS
  165. Echo Local > C:\xbbs\Local.bad
  166. SpawnBBS.BAT 0 1 999
  167.  
  168. :Import
  169. C:
  170. CD\XBBS
  171. copy \xbbs\mport\*.rpk \temp
  172. log xbbs.log Importing user packet...
  173. XGATEKPR.EXE
  174. del \xbbs\mport\*.rpk
  175. goto Start
  176.  
  177. :Import2
  178. C:
  179. CD\XBBS
  180. copy c:\xbbs\mport\00000000.mo? c:\temp
  181. log xbbs.log Importing user FTN packet...
  182. XST -AC:\BT\PKXARC -CXPOINTS.CTL -FC:\XBBS\MPORT -OC:\BT\fidonet -PC:\XBBS\MESS -#5 -L
  183. cd\bt
  184. makearc.exe
  185. del c:\xbbs\mport\00000000.mo?
  186. goto Start
  187.  
  188. :Not_in
  189. Echo You're not in the nodelist, fool!
  190. :End
  191. Exit
  192.