home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / QF_110.ZIP / STARTER.CTL < prev    next >
Text File  |  1994-08-05  |  2KB  |  99 lines
  1. @Echo off
  2. Cls
  3.  
  4. Rem *** STARTER.BAT batch file for node @QFRONTNODE ***
  5.  
  6. :Start
  7.  
  8. @Echo off
  9. Cls
  10.  
  11. Set PCBDRIVE=@PCBDRIVE
  12. Set PCBDIR=@PCBPATH
  13. Set PCBDAT=@PCBDAT
  14. Set PCBNODE=@QFRONTNODE
  15. Set MINUTES=
  16.  
  17. Echo Loading QFront, please wait...
  18.  
  19. @QFRONTDRIVE
  20. CD @QFRONTPATH
  21.  
  22. QFront /C@QFRONTDRIVE@QFRONTPATH\NODE@QFRONTNODE
  23.  
  24. Rem *** NOTES ON LOADING PCBOARD ***
  25.  
  26. Rem When a human caller comes in or the sysop wants to log on
  27. Rem locally, QFront creates a BBSBATCH.BAT file with information
  28. Rem such as baud rate, etc. in it.  The BBSBATCH.BAT file simply
  29. Rem loads the SPAWNBBS.BAT file which then loads PCBoard.
  30. Rem See the SPAWNBBS.BAT file for more information.
  31.  
  32. if exist @PCBDRIVE@PCBBPATHBBSBATCH.BAT goto LoadBBS
  33. if errorlevel 20 goto pcbsm
  34. if errorlevel 19 goto restart
  35. if errorlevel 18 goto restart
  36. if errorlevel 17 goto restart
  37. if errorlevel 16 goto restart
  38. if errorlevel 15 goto restart
  39. if errorlevel 14 goto restart
  40. if errorlevel 13 goto restart
  41. if errorlevel 12 goto restart
  42. if errorlevel 11 goto restart
  43. if errorlevel 10 goto restart
  44. if errorlevel 9 goto faxcall
  45. if errorlevel 8 goto tossfido
  46. if errorlevel 7 goto compile
  47. if errorlevel 6 goto restart
  48. if errorlevel 5 goto restart
  49. if errorlevel 4 goto restart
  50. if errorlevel 3 goto restart
  51. if errorlevel 2 goto runevent
  52. if errorlevel 1 goto error
  53. if errorlevel 0 goto end
  54.  
  55. :LoadBBS
  56. @PCBDRIVE
  57. CD @PCBPATH
  58. BBSBatch
  59.  
  60. :PCBSM
  61. @PCBDRIVE
  62. CD @PCBPATH
  63. PCBSM
  64. Goto Start
  65.  
  66. :RunEvent
  67. @PCBDRIVE
  68. CD @PCBPATH
  69. QEVT-@QFRONTNODE.BAT
  70. Goto Start
  71.  
  72. :TossFido
  73. @QFRONTDRIVE
  74. CD @QFRONTPATH
  75. QScan /C@QFRONTDRIVE@QFRONTPATH\NODE@QFRONTNODE /BOTH
  76. Goto Start
  77.  
  78. :Compile
  79. @QFRONTDRIVE
  80. CD @QFRONTPATH
  81. QNList /C@QFRONTDRIVE@QFRONTPATH\NODE@QFRONTNODE /COMPILENEW
  82. Goto Start
  83.  
  84. :FaxCall
  85. Goto Start
  86.  
  87. :Restart
  88. Goto Start
  89.  
  90. :Error
  91. Goto Start
  92.  
  93. :End
  94. Set PCBDRIVE=
  95. Set PCBDIR=
  96. Set PCBDAT=
  97. Set PCBNODE=
  98. Set MINUTES=
  99.