home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / bbs / FD / RUNFD.BAK < prev    next >
Encoding:
Text File  |  1976-11-25  |  2.5 KB  |  131 lines
  1. @echo off
  2.  
  3. :LOOP
  4.   CD\BBS\FD
  5.   FD
  6.   IF ERRORLEVEL 246 GOTO FAXIN
  7.   IF ERRORLEVEL 245 GOTO RUNGECHO
  8.   IF ERRORLEVEL 223 GOTO PACKMAIL  
  9.   IF ERRORLEVEL 222 GOTO MAIL  
  10.   IF ERRORLEVEL 221 GOTO BBSCALL
  11.   IF ERRORLEVEL 220 GOTO BBSCALL
  12.   IF ERRORLEVEL 219 GOTO BBSCALL
  13.   IF ERRORLEVEL 218 GOTO BBSCALL
  14.   IF ERRORLEVEL 217 GOTO BBSCALL
  15.   IF ERRORLEVEL 216 GOTO BBSCALL
  16.   IF ERRORLEVEL 215 GOTO BBSCALL
  17.   IF ERRORLEVEL 214 GOTO BBSCALL
  18.   IF ERRORLEVEL 213 GOTO BBSCALL
  19.   IF ERRORLEVEL 212 GOTO BBSCALL
  20.   IF ERRORLEVEL 211 GOTO BBSCALL
  21.   IF ERRORLEVEL 210 GOTO BBSCALL
  22.   IF ERRORLEVEL 209 GOTO BBSCALL
  23.   IF ERRORLEVEL 208 GOTO BBSCALL
  24.   IF ERRORLEVEL 207 GOTO BBSCALL
  25.   IF ERRORLEVEL 206 GOTO BBSCALL
  26.   IF ERRORLEVEL 205 GOTO BBSCALL
  27.   IF ERRORLEVEL 204 GOTO BBSCALL
  28.   IF ERRORLEVEL 203 GOTO BBSCALL
  29.   IF ERRORLEVEL 202 GOTO BBSCALL
  30.   IF ERRORLEVEL 200 GOTO BBSCALL
  31.   IF ERRORLEVEL 199 GOTO BBSCALL
  32.   IF ERRORLEVEL  10 GOTO USERBRK
  33.  
  34. :MAIL
  35.   COPY \bbs\inbound\*.* \bbs\msg /Y
  36.   cd\bbs\ra\bank
  37.   bankmail.exe
  38.   CD\BBS\GECHO
  39.   GECHO SCAN TOSS PACK IMPORT -FORCE
  40.   GOTO LOOP
  41.  
  42. :BBSCALL
  43.   DOBBS.BAT
  44.   GOTO LOOP
  45.  
  46. :Nothing
  47.   goto loop
  48.  
  49. :PACKMAIL
  50.   cd\bbs\ra\bday
  51.   rabday
  52.   cd\bbs\ra\txtfiles
  53.   del hdayz.a??
  54.   del welcome1.a??
  55.   cd\bbs\ra\hdayz
  56.   hdayz /B
  57.   cd\bbs\ra\txtfiles
  58.   ren hdayz.ans welcome1.ans
  59.   ren hdayz.asc welcome1.asc
  60.   cd\bbs\rats
  61.   RMU
  62.   RATPAY
  63.   cd\bbs\ra\frame
  64.   frame /F
  65.   cd\bbs\ra
  66.   RAFILE FILELIST FILES.BBS
  67.   COPY FILES.BBS \FILES\Heaven /Y
  68.   DEL LASTCALL.BBS
  69.   CD\BBS\ra
  70.   RAUSER -D60
  71.   RAUSER -P
  72.   RAUSER -S
  73.   RAUSER -M5 -D10
  74.   cd\bbs\ra
  75.   ramsg purge 
  76.   RAMSG index
  77.   ramsg pack -delete -renumber
  78.   CD\BBS\RAUSM
  79.   RAUSM > NUL
  80.   copy \bbs\ra\txtfiles\topmsg.asc \bbs\ra\bluewave /Y
  81.   cd\bbs\ra\bank
  82.   bankmail.exe
  83.   cd\bbs\gecho
  84.   gecho scan pack toss import -force
  85.   cd\bbs\ra\bluewave
  86.   del bw1.log
  87.   del bw2.log
  88.   del bw3.log
  89.   goto loop
  90.  
  91. :RUNGECHO
  92.   COPY \BBS\INBOUND\*.*  \BBS\MSG /Y
  93.   cd\bbs\gecho
  94.   gecho scan pack toss import mgr notify -force
  95.   goto loop
  96.  
  97. :wait
  98.   if exist \BBS\RA\rawait.sem goto wait
  99.   goto loop
  100.  
  101. :fossilerr
  102.   echo.
  103.   echo ADF not installed!
  104.   echo.
  105.   goto done
  106.  
  107. :modemerr
  108.   echo.
  109.   echo The modem does not respond correctly!
  110.   echo.
  111.   goto done
  112.  
  113. :modemdead
  114.   echo.
  115.   echo The modem seems completely dead!
  116.   echo.
  117.   goto done
  118.  
  119. :nospace
  120.   echo.
  121.   echo Out of diskspace!
  122.   echo.
  123.   goto done
  124.  
  125. :fatal
  126.   echo.
  127.   echo FATAL error reported by InterMail!
  128.   echo.
  129.  
  130. :end
  131.