home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 008 / WCTUTOR!.ZIP / WCTUTOR.BAT < prev    next >
DOS Batch File  |  1992-06-24  |  4KB  |  277 lines
  1. @echo off
  2. if (%1)==() goto advise
  3. if (%1)==(color) goto color
  4. if (%1)==(mono) goto mono
  5. goto advise
  6. echo off 
  7. :color
  8. colorset 3
  9. echo %1 monitor
  10. goto dial
  11. :mono
  12. cls
  13. echo.
  14. echo %1 monitor
  15. :dial
  16. echo.
  17. echo.
  18. echo Dialing Your ═OnLine BBS.
  19. echo.
  20. wait 5
  21. echo.
  22. echo.
  23. echo Connected!
  24. echo.
  25. echo.
  26. echo Your Prelog.bbs file should be echoed here
  27. echo     welcomes you to
  28. echo                             ╔══════╗╔════╦══╗╔══╗    ╔══╗╔════╦══╗╔══════╗
  29. echo                           ══╣  ╔╗  ║║    ║  ║║  ║    ║  ║║    ║  ║║  ══╦═╝
  30. echo Your Prelog continued     ══╣  ╚╝  ║║  ║    ║║  ╚═══╗║  ║║  ║    ║║  ══╩═╗
  31. echo                             ╚══════╝╚══╩════╝╚══════╝╚══╝╚══╩════╝╚══════╝
  32. echo ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  33. echo                                        via Hayes V-series Smartmodem 9600
  34. echo.
  35. pause
  36. echo off
  37. cls
  38. :main
  39. if %1==color colorset 2
  40. type main5.bbs
  41. :                                             1    1    2
  42. :                                        5    0    5    0
  43. ask /fe " Please Enter your Choice:" jvbipc?hysqfmnug
  44. cls
  45. if errorlevel 16 goto quit
  46. if errorlevel 15 goto mu
  47. if errorlevel 14 goto mn
  48. if errorlevel 13 goto mm
  49. if errorlevel 12 goto mf
  50. if errorlevel 11 goto mq
  51. if errorlevel 10 goto ms
  52. if errorlevel 9 goto my
  53. if errorlevel 8 goto mh
  54. if errorlevel 7 goto m?
  55. if errorlevel 6 goto mc
  56. if errorlevel 5 goto mp
  57. if errorlevel 4 goto mi
  58. if errorlevel 3 goto mb
  59. if errorlevel 2 goto mv
  60. if errorlevel 1 goto mj
  61.  
  62. :mb 
  63. browse newsbull.hlp
  64. goto main
  65.  
  66. :mc
  67. browse sys.hlp
  68. goto main
  69.  
  70. :mf
  71. goto files
  72.  
  73. :mh
  74. browse helplevl.hlp
  75. goto main
  76.  
  77. :mi
  78. browse hello.bbs
  79. goto main
  80.  
  81. :mj
  82. browse joincon.hlp
  83. goto main 
  84.  
  85. :mm
  86. goto msg
  87.  
  88. :mn
  89. browse newsbull.hlp
  90. goto main 
  91.  
  92. :mp
  93. browse sys.hlp
  94. goto main 
  95.  
  96. :mq
  97. browse main.hlp
  98. goto main
  99.  
  100. :ms
  101. browse wcpro.txt
  102. goto main
  103.  
  104. :mu
  105. browse users.hlp
  106. goto main
  107.  
  108. :mv
  109. browse users.hlp
  110. goto main 
  111.  
  112. :my
  113. browse userset.hlp
  114. goto main 
  115.  
  116. :m?
  117. browse main.hlp
  118. goto main 
  119.  
  120. :files
  121. if %1==color colorset 6
  122. type file5.bbs
  123. :                                             1    1   2   2   3   3
  124. :                                        5    0    5   0   5   0   5
  125. ask /fe " Please Enter your Choice:" ledurnivtj?hfsqmg
  126. cls
  127. if errorlevel 17 goto quit
  128. if errorlevel 16 goto msg
  129. if errorlevel 15 goto main
  130. if errorlevel 14 goto fs
  131. if errorlevel 13 goto fp
  132. if errorlevel 12 goto fh
  133. if errorlevel 11 goto f?
  134. if errorlevel 10 goto fj
  135. if errorlevel 9 goto ft
  136. if errorlevel 8 goto fv
  137. if errorlevel 7 goto fi
  138. if errorlevel 6 goto fn
  139. if errorlevel 5 goto fr
  140. if errorlevel 4 goto fu
  141. if errorlevel 3 goto fd
  142. if errorlevel 2 goto fe
  143. if errorlevel 1 goto fl
  144.  
  145. :f?
  146. browse files.hlp
  147. goto files
  148.  
  149. :fd
  150. browse proto.hlp
  151. goto files
  152.  
  153. :fe
  154. browse marked.hlp
  155. goto files
  156.  
  157. :fh
  158. browse helplevl.hlp
  159. goto files
  160.  
  161. :fi
  162. browse files.hlp
  163. goto files
  164.  
  165. :fj
  166. browse files.hlp
  167. goto files
  168.  
  169. :fl
  170. browse listfile.hlp
  171. goto files
  172.  
  173. :fn
  174. browse files.hlp
  175. goto files
  176.  
  177. :fp
  178. browse proto.hlp
  179. goto files
  180.  
  181. :fr
  182. browse files.hlp
  183. goto files
  184.  
  185. :fs
  186. browse wcpro.txt
  187. goto files
  188.  
  189. :ft
  190. browse search.hlp
  191. goto files
  192.  
  193. :fu
  194. browse upldfl.hlp
  195. goto files
  196.  
  197. :fv
  198. browse files.hlp
  199. goto files
  200.  
  201. :msg
  202. if %1==color colorset 3
  203. type msg5.bbs
  204. :                                             1    1   2   2   3   3
  205. :                                        5    0    5   0   5   0   5
  206. ask /fe " Please Enter your Choice:" srektujh?fmqg
  207. cls
  208. if errorlevel 13 goto quit
  209. if errorlevel 12 goto main
  210. if errorlevel 11 goto msg
  211. if errorlevel 10 goto files
  212. if errorlevel 9 goto g?
  213. if errorlevel 8 goto gh
  214. if errorlevel 7 goto gj
  215. if errorlevel 6 goto gu
  216. if errorlevel 5 goto gt
  217. if errorlevel 4 goto gk
  218. if errorlevel 3 goto ge
  219. if errorlevel 2 goto gr
  220. if errorlevel 1 goto gs
  221.  
  222. :g?
  223. browse msg.hlp
  224. goto msg
  225.  
  226. :ge
  227. browse editor.hlp
  228. goto msg
  229.  
  230. :gh
  231. browse helplevl.hlp
  232. goto msg
  233.  
  234. :gj
  235. browse joincon.hlp
  236. goto msg
  237.  
  238. :gk
  239. browse msg.hlp
  240. goto msg
  241.  
  242. :gr
  243. browse readmsg.hlp
  244. goto msg
  245.  
  246. :gs
  247. browse scanmsg.hlp
  248. goto msg
  249.  
  250. :gt
  251. browse tcat.hlp
  252. goto msg
  253.  
  254. :gu
  255. browse selconf.hlp
  256. goto msg
  257.  
  258. :advise
  259. echo.
  260. echo Type lower case   wctutor mono    for monochrome monitors
  261. echo Type lower case   wctutor color   for color monitors
  262. echo.
  263. goto end
  264.  
  265. :quit
  266. if %1==color colorset 3
  267. cls
  268. echo.
  269. echo.
  270. echo Thanks for calling Your BBS ═OnLine!
  271. echo.
  272. echo.
  273. echo NO CARRIER
  274. echo.
  275. echo.
  276. :end
  277.