home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / bbs / FD / RUNFD.BAT < prev    next >
Encoding:
DOS Batch File  |  1976-11-25  |  3.8 KB  |  156 lines
  1. @echo off
  2. rem SET BGFAX=D:\BBS\BGFAX
  3.  
  4. :LOOP
  5.   CD\BBS\FD
  6.   FD
  7.   IF ERRORLEVEL 246 GOTO FAXIN
  8.   IF ERRORLEVEL 245 GOTO RUNGECHO
  9.   IF ERRORLEVEL 223 GOTO PACKMAIL  
  10.   IF ERRORLEVEL 222 GOTO MAIL  
  11.   IF ERRORLEVEL 221 GOTO BBSCALL
  12.   IF ERRORLEVEL 220 GOTO BBSCALL
  13.   IF ERRORLEVEL 219 GOTO BBSCALL
  14.   IF ERRORLEVEL 218 GOTO BBSCALL
  15.   IF ERRORLEVEL 217 GOTO BBSCALL
  16.   IF ERRORLEVEL 216 GOTO BBSCALL
  17.   IF ERRORLEVEL 215 GOTO BBSCALL
  18.   IF ERRORLEVEL 214 GOTO BBSCALL
  19.   IF ERRORLEVEL 213 GOTO BBSCALL
  20.   IF ERRORLEVEL 212 GOTO BBSCALL
  21.   IF ERRORLEVEL 211 GOTO BBSCALL
  22.   IF ERRORLEVEL 210 GOTO BBSCALL
  23.   IF ERRORLEVEL 209 GOTO BBSCALL
  24.   IF ERRORLEVEL 208 GOTO BBSCALL
  25.   IF ERRORLEVEL 207 GOTO BBSCALL
  26.   IF ERRORLEVEL 206 GOTO BBSCALL
  27.   IF ERRORLEVEL 205 GOTO BBSCALL
  28.   IF ERRORLEVEL 204 GOTO BBSCALL
  29.   IF ERRORLEVEL 203 GOTO BBSCALL
  30.   IF ERRORLEVEL 202 GOTO BBSCALL
  31.   IF ERRORLEVEL 200 GOTO BBSCALL
  32.   IF ERRORLEVEL 199 GOTO BBSCALL
  33.   IF ERRORLEVEL  10 GOTO USERBRK
  34.  
  35. :MAIL
  36.   COPY \bbs\inbound\*.* \bbs\msg /Y
  37.   cd\bbs\ra\door\vqbank
  38.   bankmail.exe
  39.   CD\BBS\GECHO
  40.   GECHO SCAN TOSS PACK IMPORT -FORCE
  41.   GOTO LOOP
  42.  
  43. :BBSCALL
  44.   DOBBS.BAT
  45.   GOTO LOOP
  46.  
  47. :Nothing
  48.   goto loop
  49.  
  50. :PACKMAIL
  51.   cd\bbs\ra\bday
  52.   rabday
  53.   cd\bbs\ra\txtfiles
  54.   del hdayz.a??
  55.   del welcome1.a??
  56.   cd\bbs\ra\hdayz
  57.   hdayz /B
  58.   cd\bbs\ra\txtfiles
  59.   ren hdayz.ans welcome1.ans
  60.   ren hdayz.asc welcome1.asc
  61.   cd\bbs\ra\frame
  62.   frame header
  63.   Frame stats
  64.   cd\bbs\ra
  65.   copy F_*.a?? \bbs\ra\txtfiles /Y
  66.   cd\bbs\rats
  67.   ratpay
  68.   rmu
  69.   cd\bbs\ra
  70. rafile filelist \files\paradise\files.all   /7bit
  71. rafile filelist \files\paradise\files.bbs 1 /7bit
  72. rafile filelist \files\upload\files.bbs 2   /7bit
  73. rafile filelist \files\internet\files.bbs 3 /7bit
  74. rafile filelist \files\txt\files.bbs 4      /7bit
  75. rafile filelist \files\midi\files.bbs 5     /7bit
  76. rafile filelist \files\commdos\files.bbs 6  /7bit
  77. rafile filelist \files\bwave\files.bbs 7    /7bit
  78. rafile filelist \files\crack\files.bbs 8    /7bit
  79. rafile filelist \files\tools\files.bbs 9    /7bit
  80. rafile filelist \files\arj\files.bbs 10     /7bit
  81. rafile filelist \files\fd\files.bbs 11      /7bit
  82. rafile filelist \files\fossil\files.bbs 12  /7bit
  83. rafile filelist \files\radoor\files.bbs 13  /7bit
  84. rafile filelist \files\bbs\files.bbs 14     /7bit
  85. rafile filelist \files\gif\files.bbs 15     /7bit
  86. rafile filelist \files\media\files.bbs 16   /7bit
  87. rafile filelist \files\game\files.bbs 17    /7bit
  88. rafile filelist \files\inets\files.bbs 18   /7bit
  89. rafile filelist \files\drive\files.bbs 19   /7bit
  90. rafile filelist \files\ccos\files.bbs 20    /7bit
  91. rafile filelist \files\htmledit\files.bbs 21 /7bit
  92. rafile filelist \files\sea\files.bbs 22      /7bit
  93. rafile filelist \files\edit\files.bbs 23     /7bit
  94. rafile filelist \files\bbstools\files.bbs 24 /7bit
  95.   rafile filelist filesdir.asc /d1 /7bit /b1.txt /f2.txt
  96.   copy filesdir.asc \bbs\gecho /Y
  97.   cd\bbs\gecho
  98.   mbu386 post filesdir.asc #63 -Subject "╠∞╠├╫▄╒╛╨┬╜°╚φ╝■▒¿╕µ" -Origin 1 -Echo
  99. rem  cd\bbs\sys-stat
  100. rem  sys-stat
  101.   CD\BBS\ra
  102.   RAUSER -P
  103.   RAUSER -S
  104.   cd\bbs\GECHO
  105.   mbutil purge 
  106.   mbutil index
  107.   mbutil pack -delete -renumber
  108.   cd\bbs\ra\vqbank\vqbank
  109.   bankmail.exe
  110.   cd\bbs\gecho
  111.   gecho scan pack toss import -force
  112.   goto loop
  113.  
  114. :RUNGECHO
  115.   COPY \BBS\INBOUND\*.*  \BBS\MSG /Y
  116.   cd\bbs\ra\vqbank\vqbank
  117.   bankmail.exe
  118.   cd\bbs\gecho
  119.   gecho scan pack toss import mgr notify -force
  120.   goto loop
  121.  
  122. :wait
  123.   if exist D:\BBS\RA\rawait.sem goto wait
  124.   goto loop
  125.  
  126. :fossilerr
  127.   echo.
  128.   echo ADF not installed!
  129.   echo.
  130.   goto done
  131.  
  132. :modemerr
  133.   echo.
  134.   echo The modem does not respond correctly!
  135.   echo.
  136.   goto done
  137.  
  138. :modemdead
  139.   echo.
  140.   echo The modem seems completely dead!
  141.   echo.
  142.   goto done
  143.  
  144. :nospace
  145.   echo.
  146.   echo Out of diskspace!
  147.   echo.
  148.   goto done
  149.  
  150. :fatal
  151.   echo.
  152.   echo FATAL error reported by InterMail!
  153.   echo.
  154.  
  155. :end
  156.