home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / bbs / im / RUNBBS.BAT < prev    next >
Encoding:
DOS Batch File  |  1976-11-25  |  1.4 KB  |  70 lines
  1. @ECHO OFF
  2. rem x00 e 1=2f8,3 B,1,38400 R=4096 T=4096
  3. rem xu fifo:16
  4. :START
  5.   cls
  6.   CD\BBS\BT
  7.   DEL \bbs\outbound\*.$$?
  8.   DEL \bbs\outbound\*.BSY
  9.   BT
  10.   If ErrorLevel 384 goto BBS
  11.   if ErrorLevel 255 goto FAXIN
  12.   If ErrorLevel 192 goto BBS
  13.   If ErrorLevel 144 goto BBS
  14.   if ErrorLevel 120 goto BBS
  15.   if ErrorLevel 101 goto FILELIST
  16.   IF ERRORLEVEL 100 GOTO BBS_Local
  17.   If ErrorLevel 96 goto BBS
  18.   IF ERRORLEVEL 90 GOTO NOTHING
  19.   IF ERRORLEVEL 80 GOTO AMAX
  20.   If ErrorLevel 72 goto BBS
  21.   IF ERRORLEVEL 70 GOTO Golded
  22.   IF ERRORLEVEL 65 GOTO NOTHING
  23.   IF ERRORLEVEL 64 GOTO BBS
  24.   IF ERRORLEVEL 60 GOTO UNPACKMAIL
  25.   IF ERRORLEVEL 50 GOTO NET&ECHO
  26.   If ErrorLevel 48 goto BBS
  27.   IF ERRORLEVEL 40 GOTO MSG_PACK
  28.   If ErrorLevel 24 goto BBS
  29.   IF ERRORLEVEL 20 GOTO NOTHING
  30.   IF ERRORLEVEL 12 GOTO BBS
  31.   IF ERRORLEVEL 10 GOTO NOTHING
  32.   IF ERRORLEVEL  4 GOTO RUNGECHO
  33.   IF ERRORLEVEL  3 GOTO BBS
  34.   IF ERRORLEVEL  1 GOTO EXIT
  35.   GOTO START
  36.  
  37. :RUNGECHO
  38.   
  39.   cd\bbs\ra
  40.   ramsg purge
  41.   ramsg pack -renumber
  42.   COPY \BBS\INBOUND\*.* \BBS\MSG
  43.   cd\bbs\gecho
  44.   gecho scan pack toss import mgr notify -force
  45.   cd\bbs\bt
  46.   ommm -sA
  47.   GOTO START
  48.  
  49. :UNPACKMAIL
  50.   XCOPY \BBS\INBOUND \BBS\MSG
  51.   CD\BBS\gecho
  52.   mbutil purge -Days 40 -Rcvd 40
  53.   gecho scan pack mgr toss import notify -force
  54.   cd\bbs\bt
  55.   ommm -sA
  56.  
  57. :BUNDLE
  58. goto start
  59.  
  60. :BBS_Local
  61.   cd\bbs\ra
  62.   ra -l
  63.   goto start
  64.  
  65. :EXIT
  66.   CD\BBS
  67.   ECHO
  68.   ECHO Down .......
  69.   ECHO ON
  70.