home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / BBS_UTIL / SPLITB.ZIP / SBOARD.BAT < prev    next >
DOS Batch File  |  1994-03-04  |  3KB  |  185 lines
  1. @ECHO OFF
  2. C:\BNU.COM
  3. :START
  4. CD C:\FD
  5. FD
  6.         IF ERRORLEVEL 120 GOTO 300BAUD
  7.         IF ERRORLEVEL 119 GOTO 1200BAUD
  8.         IF ERRORLEVEL 118 GOTO 2400BAUD
  9.         IF ERRORLEVEL 117 GOTO 4800BAUD
  10.         IF ERRORLEVEL 116 GOTO 9600BAUD
  11.         IF ERRORLEVEL 115 GOTO 14400BAUD
  12.         IF ERRORLEVEL 114 GOTO 16800BAUD
  13.         IF ERRORLEVEL 113 GOTO 28800BAUD
  14.         IF ERRORLEVEL 112 GOTO 38400BAUD
  15.         IF ERRORLEVEL 111 GOTO MANT
  16.         IF ERRORLEVEL 10 GOTO EXIT
  17.         IF ERRORLEVEL 1 GOTO ERROR
  18.  
  19. GOTO START
  20.  
  21. :38400BAUD
  22. CD C:\SBOARD
  23. SBOARD
  24. IF ERRORLEVEL 3 GOTO START
  25. IF ERRORLEVEL 2 GOTO CHAT38400
  26. IF ERRORLEVEL 1 GOTO BBS38400
  27. IF ERRORLEVEL 0 GOTO ERROR
  28.  
  29. :BBS38400
  30. CD C:\RA
  31. RA -N1 -B38400
  32. GOTO START
  33.  
  34. :CHAT38400
  35. CD C:\RA\DOORS\ICECHAT
  36. COPY C:\EXITINFO.BBS C:\RA
  37. ICECHAT
  38. GOTO 38400BAUD
  39.  
  40. :16800BAUD
  41. CD C:\SBOARD
  42. SBOARD
  43. IF ERRORLEVEL 3 GOTO START
  44. IF ERRORLEVEL 2 GOTO CHAT16800
  45. IF ERRORLEVEL 1 GOTO BBS16800
  46. IF ERRORLEVEL 0 GOTO ERROR
  47.  
  48. :BBS16800
  49. CD C:\RA
  50. RA -N1 -B16800
  51. GOTO START
  52.  
  53. :CHAT16800
  54. CD C:\RA\DOORS\ICECHAT
  55. COPY C:\EXITINFO.BBS C:\RA
  56. ICECHAT
  57. GOTO 16800BAUD
  58.  
  59. :14400BAUD
  60. CD C:\SBOARD
  61. SBOARD
  62. IF ERRORLEVEL 3 GOTO START
  63. IF ERRORLEVEL 2 GOTO CHAT14400
  64. IF ERRORLEVEL 1 GOTO BBS14400
  65. IF ERRORLEVEL 0 GOTO ERROR
  66.  
  67. :BBS14400
  68. CD C:\RA
  69. RA -N1 -B14400
  70. GOTO START
  71.  
  72. :CHAT14400
  73. CD C:\RA\DOORS\ICECHAT
  74. COPY C:\EXITINFO.BBS C:\RA
  75. ICECHAT
  76. GOTO 14400BAUD
  77.  
  78. :9600BAUD
  79. CD C:\SBOARD
  80. SBOARD
  81. IF ERRORLEVEL 3 GOTO START
  82. IF ERRORLEVEL 2 GOTO CHAT9600
  83. IF ERRORLEVEL 1 GOTO BBS9600
  84. IF ERRORLEVEL 0 GOTO ERROR
  85.  
  86. :BBS9600
  87. CD C:\RA
  88. RA -N1 -B9600
  89. GOTO START
  90.  
  91. :CHAT9600
  92. CD C:\RA\DOORS\ICECHAT
  93. COPY C:\EXITINFO.BBS C:\RA
  94. ICECHAT
  95. GOTO 9600BAUD
  96.  
  97. :4800BAUD
  98. CD C:\SBOARD
  99. SBOARD
  100. IF ERRORLEVEL 3 GOTO START
  101. IF ERRORLEVEL 2 GOTO CHAT4800
  102. IF ERRORLEVEL 1 GOTO BBS4800
  103. IF ERRORLEVEL 0 GOTO ERROR
  104.  
  105. :BBS4800
  106. CD C:\RA
  107. RA -N1 -B4800
  108. GOTO START
  109.  
  110. :CHAT4800
  111. CD C:\RA\DOORS\ICECHAT
  112. COPY C:\EXITINFO.BBS C:\RA
  113. ICECHAT
  114. GOTO 4800BAUD
  115.  
  116. :2400BAUD
  117. CD C:\SBOARD
  118. SBOARD
  119. IF ERRORLEVEL 3 GOTO START
  120. IF ERRORLEVEL 2 GOTO CHAT2400
  121. IF ERRORLEVEL 1 GOTO BBS2400
  122. IF ERRORLEVEL 0 GOTO ERROR
  123.  
  124. :BBS2400
  125. CD C:\RA
  126. RA -N1 -B2400
  127. GOTO START
  128.  
  129. :CHAT2400
  130. CD C:\RA\DOORS\ICECHAT
  131. COPY C:\EXITINFO.BBS C:\RA
  132. ICECHAT
  133. GOTO 2400BAUD
  134.  
  135. :1200BAUD
  136. CD C:\SBOARD
  137. SBOARD
  138. IF ERRORLEVEL 3 GOTO START
  139. IF ERRORLEVEL 2 GOTO CHAT1200
  140. IF ERRORLEVEL 1 GOTO BBS1200
  141. IF ERRORLEVEL 0 GOTO ERROR
  142.  
  143. :BBS1200
  144. CD C:\RA
  145. RA -N1 -B1200
  146. GOTO START
  147.  
  148. :CHAT1200
  149. CD C:\RA\DOORS\ICECHAT
  150. COPY C:\EXITINFO.BBS C:\RA
  151. ICECHAT
  152. GOTO 1200BAUD
  153.  
  154. :300BAUD
  155. CD C:\SBOARD
  156. SBOARD
  157. IF ERRORLEVEL 3 GOTO START
  158. IF ERRORLEVEL 2 GOTO CHAT300
  159. IF ERRORLEVEL 1 GOTO BBS300
  160. IF ERRORLEVEL 0 GOTO ERROR
  161.  
  162. :BBS300
  163. CD C:\RA
  164. RA -N1 -B300
  165. GOTO START
  166.  
  167. :CHAT300
  168. CD C:\RA\DOORS\ICECHAT
  169. COPY C:\EXITINFO.BBS C:\RA
  170. ICECHAT
  171. GOTO 300BAUD
  172.  
  173. :MANT
  174. CD C:\RA
  175. RAUSER -P -S
  176. RAMSG -P 
  177.  
  178. :ERROR
  179. EXIT
  180. ECHO AT H0 S0=0 M3 L3 >COM%1
  181. GOTO START
  182.  
  183. :EXIT
  184. ECHO EXITING BATCH FILE...
  185.