home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / XDOC_117.ZIP / SAMPLES.ZIP / SPAWNBBS.BAT < prev    next >
Encoding:
DOS Batch File  |  1990-09-30  |  1.4 KB  |  66 lines
  1. Echo off
  2. Break off
  3. C:
  4. CD\XBBS
  5. if "%1" == "0" goto Quick_Log
  6.  
  7. :Online
  8. Echo %1 > C:\xbbs\%1.bad
  9. Echo Binkley passed %1 %2 %3 >> c:\xbbs\xbbs.log
  10. F:\LOGON.EXE %1 %3
  11. goto First_X
  12.  
  13. :Quick_Log
  14. if Exist Local.bad goto Regular
  15. Echo Local > C:\xbbs\Local.bad
  16. XLog Hector_Plasmic
  17. goto First_X
  18.  
  19. :Regular
  20. F:\LOGON.EXE 0 999
  21.  
  22. :First_X
  23. if ERRORLEVEL == 253 goto Done_X
  24. C:
  25. cd\XBBS
  26. F:\Logon.EXE -RSpecheck.XBS
  27. REM Above starts at Specheck.?BS
  28. goto After_X
  29.  
  30. :Restart_X
  31. C:
  32. cd\XBBS
  33. F:\logon.EXE -R
  34. REM logon.EXE -R MENUNAME.XBS   would start at menu MENUNAME.?BS
  35. REM logon.EXE -R   starts at MAIN.?BS
  36.  
  37. :After_X
  38. if ERRORLEVEL == 253 goto Done_X
  39. if ERRORLEVEL == 7 call e:\ct\runctdl.bat 15
  40. REM 253=logoff/timeout/carrier loss, 254=BBS error, 255=DOS stack error
  41. REM Any others would be user-defined
  42. goto Restart_X
  43.  
  44. :Done_X
  45. DTR OFF
  46. DTR ON
  47. AT S0=0
  48. QUOTEMKR /HC:\XBBS\QUOTE\HEADER.XBS /FC:\XBBS\QUOTE\FOOTER.XBS C:\XBBS\MENU\LOGO.XBS C:\XBBS\MENU\GOODBYE2.XBS
  49. Echo h >> C:\XBBS\Menu\GOODBYE2.XBS
  50. Echo        ...You are now In The Pit... >> C:\XBBS\Menu\LOGO.XBS
  51. DELAY 0 S
  52. if ERRORLEVEL==40 goto Skip2
  53. if ERRORLEVEL==20 goto Skip1
  54. copy c:\xbbs\menu\weird1.gbs c:\xbbs\menu\goodbye.gbs
  55. goto End
  56. :Skip1
  57. copy c:\xbbs\menu\weird2.gbs c:\xbbs\menu\goodbye.gbs
  58. goto End
  59. :Skip2
  60. copy c:\xbbs\menu\weird3.gbs c:\xbbs\menu\goodbye.gbs
  61.  
  62. :End
  63. Scroll
  64. if ERRORLEVEL == 1 C:\BT\MENU.BAT
  65. RUNXBBS.BAT
  66.