home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / FDW95FAQ.ZIP / RA1.BAT < prev    next >
Encoding:
DOS Batch File  |  1994-09-25  |  1.6 KB  |  65 lines
  1. CLS
  2. @Echo off
  3. :Initialize
  4.    C:\UTIL\ANSI.COM
  5.    Set DSZPORT=1
  6.    Set DSZLOG=\RA1\DSZ.LOG
  7.    Set TCNODE=1
  8.    Set TASK=1
  9.    Set FD=C:\FD
  10.    C:\UTIL\BNU.COM /F /L0:57600 /Z2 /T:2048 /R:2048
  11.    C:\UTIL\FDFIXW4W.COM
  12.    rem C:\UTIL\X00.EXE B,0,57600 T=1024 R=1024 FIFO=8 E
  13.  
  14. :Start
  15.    CD\RA1
  16.    If exist C:\RA1\DOBBS1.BAT Del C:\RA1\DOBBS1.BAT 
  17.    If exist C:\RA1\HSLINK.* Del C:\RA1\HSLINK.*
  18.    If exist C:\FD\FLAGS\NEWMAIL.FLG goto NewMail
  19.  
  20.    RA -MC:\FD\FD.EXE*M -C1 -N1 -E0
  21.    if errorlevel 200 goto BBS
  22.    if errorlevel 103 goto Maint
  23.    if errorlevel 101 goto NewMail
  24.    if errorlevel 35 goto Local
  25.    if errorlevel 10 goto End
  26.    If errorlevel 3 goto Scan
  27.    Goto Start
  28.  
  29. :Local
  30.    RA -L -N1 -E0
  31.    If errorlevel 3 goto Scan
  32.    Goto Start
  33.  
  34. :Scan
  35.    FastEcho Scan -N
  36.    FastEcho Pack -RC:\FECHO\ROUTE.FE
  37.    Goto Start
  38.  
  39. :Maint
  40.    Echo FDFREEZE.2 > C:\FD\FLAGS\FDFREEZE.2
  41. :Wait
  42.    If not Exist C:\FD\FLAGS\FDFROZEN.2 Goto Wait
  43.    Del C:\NEWRA\RAUSANEW.*
  44.    RAFile Filelist C:\NEWRA\RAUSANEW.LST /S50 /D7 /BFileNew.hdr /FFileNew.ftr
  45.    PKZIP C:\NEWRA\RAUSANEW.ZIP C:\NEWRA\RAUSANEW.LST
  46.    RAFile Update RAUSANEW.ZIP 1 Touch
  47.    Del C:\NEWRA\RA-USA.*
  48.    RAFile Filelist C:\NEWRA\RA-USA.LST /S50 /BFilelist.hdr /FFilelist.ftr /NoHdr
  49.    PKZIP C:\NEWRA\RA-USA.ZIP C:\NEWRA\RA-USA.LST
  50.    RAFile Update RA-USA.ZIP 1 Touch
  51.    RAMSG Link -Clean -Hudson
  52.    RAMSG Pack -Purge -Delete -Recover -Renumber -Force -Link
  53.    Del C:\FD\FLAGS\FDFREEZE.2
  54.    Goto Start
  55.  
  56. :NewMail
  57.    If Exist C:\FD\FLAGS\NEWMAIL.FLG Del C:\FD\FLAGS\NEWMAIL.FLG
  58.    FastEcho Toss
  59.    FeUtil Import
  60.    FastEcho Pack -RC:\FECHO\ROUTE.FE
  61.    Goto Start
  62.  
  63. :end
  64.  
  65.