home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / W3_BBS.ZIP / RDB.BTM < prev    next >
Text File  |  1990-11-10  |  2KB  |  163 lines
  1. BREAK ON
  2. color bright white on blue
  3. SET DBRIDGE=H:\DB\
  4. ECHO ON
  5. :START
  6.  if BAD==%BAUD% goto bc
  7.  if Tame==1 goto DB
  8.  if 1==%live% goto Wildcat
  9.  if 2==%live% goto returncat
  10.  
  11. :DB
  12.  set live=
  13.  set baud=
  14.  set Time=
  15.  H:
  16.  cd \db
  17.  break ON
  18.  verify OFF
  19.  H:\db\db
  20.  if errorlevel 253 goto CLEANUP
  21.  if errorlevel 140 goto EXIT
  22.  if errorlevel 100 goto LOCOCAT
  23.  if errorlevel 96 goto LDBBS
  24.  IF ERRORLEVEL 90 GOTO FILELIST
  25.  if errorlevel 80 goto SMLNET
  26.  if errorlevel 50 goto LIVE
  27.  if errorlevel 35 goto MAKEWILD
  28.  if errorlevel 32 goto AFTER
  29.  if errorlevel 31 goto wcfl
  30.  if errorlevel 0 goto START
  31.  goto START
  32.  
  33. :LDBBS
  34. BBS.BAT
  35.  
  36. :OPEN
  37. goto START
  38.  
  39. :WILDCAT
  40. set LIVE=
  41. c:
  42. cd \wildcat
  43. c:\wildcat\wildcat /B %baud% %Time%
  44.  if errorlevel 60 goto sofar
  45.  if errorlevel 50 goto live
  46.  if errorlevel 40 goto DROP2DOS
  47.  if errorlevel 35 goto QBBSMAIL
  48.  if errorlevel 31 goto wcfl
  49.  if errorlevel 20 goto START
  50.  if errorlevel 18 goto START
  51.  if errorlevel 16 goto START
  52.  if errorlevel 14 goto START
  53.  if errorlevel 12 goto START
  54.  if errorlevel 10 goto START
  55.  if errorlevel 8 goto START
  56.  if errorlevel 4 goto START
  57.  if errorlevel 2 goto START
  58.  if errorlevel 0 goto END
  59.  goto START
  60.  
  61. :RETURNCAT
  62.  c:
  63.  cd \wildcat
  64.  set LIVE=
  65.  c:
  66.  c:\wildcat\wildcat
  67.  if errorlevel 60 goto START
  68.  if errorlevel 50 goto LIVE
  69.  if errorlevel 40 goto DROP2DOS
  70.  if errorlevel 35 goto QBBSMAIL
  71.  if errorlevel 0 goto END
  72.  goto START
  73.  
  74. :DROP2DOS
  75. c:
  76. cd \wildcat
  77. call dropdos.bat
  78. goto END
  79.  
  80.  
  81. :LIVE
  82. C:
  83. cd \wildcat
  84. call door.bat
  85. goto RETURNCAT
  86.  
  87. :QBBSMAIL
  88. echo OFF
  89. C:
  90. cd \WILDCAT\smlnet
  91. wc20rbbs wc20rbbs.cfg
  92. smlnet %1
  93. if exist dorinfo1.def del dorinfo1.def
  94. goto RETURNCAT
  95.  
  96. :LOCOCAT
  97.  c:
  98.  cd \wildcat
  99.  c:\wildcat\wildcat /B LOCAL
  100.  if errorlevel 60 goto START
  101.  if errorlevel 50 goto LIVE
  102.  if errorlevel 40 goto DROP2DOS
  103.  if errorlevel 35 goto QBBSMAIL
  104.  if errorlevel 0 goto END
  105.  goto START
  106.  
  107. :AFTER
  108. H:
  109. cd \db
  110. c:
  111. cd \wildcat\small
  112. smlmport c:\wildcat\small\smlnet.cfg
  113. H:
  114. cd \db
  115. goto START
  116.  
  117. :CLEANUP
  118. AT h1m0 2
  119. H:
  120. cd \db
  121. CALL RENUMBER.BAT
  122. CALL S-PRO!.BAT
  123. CALL EVENT.BAT
  124. F:
  125. CD\PCKWIK
  126. PCKPDISK /R:G
  127. C:
  128. goto START
  129.  
  130. :MAKEWILD
  131. C:
  132. cd \wildcat
  133. makewild
  134. goto START
  135.  
  136. :SOFAR
  137. cd \wildcat
  138. bbsansi
  139. bbsasci
  140. copy hello9.* c:\wildcat\display
  141. goto START
  142.  
  143. :wcfl
  144. verify OFF
  145. c:
  146. at m1h0 2
  147. h:
  148. cd \db\files
  149. if exist h:\db\files\*.tic gosub wcflfwrd
  150. cd ..
  151. goto start
  152.  
  153. :wcflfwrd
  154. h:\db\wcfl.exe 
  155. return
  156.  
  157. :FILELIST
  158. CALL FILELIST.BAT
  159.  
  160.  
  161. :END
  162.  
  163.