home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / FDW95FAQ.ZIP / RAFD1.BAT < prev    next >
Encoding:
DOS Batch File  |  1994-09-25  |  1.6 KB  |  69 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:\FD\FLAGS\NEWMAIL.FLG goto NewMail
  18.  
  19.    FD.EXE
  20.    if errorlevel 200 goto BBS
  21.    if errorlevel 103 goto Maint
  22.    if errorlevel 101 goto NewMail
  23.    if errorlevel 35 goto Local
  24.    if errorlevel 10 goto End
  25.    If errorlevel 3 goto Scan
  26.  
  27. :BBS
  28.    DoBBS1
  29.  
  30. :Local
  31.    RA -L -N1 -E0
  32.    If exist C:\RA2\HSLINK.* Del C:\RA2\HSLINK.*
  33.    If errorlevel 3 goto Scan
  34.    Goto Start
  35.  
  36. :Scan
  37.    FastEcho Scan -N
  38.    FastEcho Pack -RC:\FECHO\ROUTE.FE
  39.    Goto Start
  40.  
  41. :Maint
  42.    Echo FDFREEZE.2 > C:\FD\FLAGS\FDFREEZE.2
  43. :Wait
  44.    If not Exist C:\FD\FLAGS\FDFROZEN.2 Goto Wait
  45.  
  46.    CD\RA
  47.    Del C:\NEWRA\RAUSANEW.*
  48.    RAFile Filelist C:\NEWRA\RAUSANEW.LST /S50 /D7 /BFileNew.hdr /FFileNew.ftr
  49.    PKZIP C:\NEWRA\RAUSANEW.ZIP C:\NEWRA\RAUSANEW.LST
  50.    RAFile Update RAUSANEW.ZIP 1 Touch
  51.    Del C:\NEWRA\RA-USA.*
  52.    RAFile Filelist C:\NEWRA\RA-USA.LST /S50 /BFilelist.hdr /FFilelist.ftr /NoHdr
  53.    PKZIP C:\NEWRA\RA-USA.ZIP C:\NEWRA\RA-USA.LST
  54.    RAFile Update RA-USA.ZIP 1 Touch
  55.    RAMSG Link -Clean -Hudson
  56.    RAMSG Pack -Purge -Delete -Recover -Renumber -Force -Link
  57.    Del C:\FD\FLAGS\FDFREEZE.2
  58.    Goto Start
  59.  
  60. :NewMail
  61.    If Exist C:\FD\FLAGS\NEWMAIL.FLG Del C:\FD\FLAGS\NEWMAIL.FLG
  62.    FastEcho Toss
  63.    FeUtil Import
  64.    FastEcho Pack -RC:\FECHO\ROUTE.FE
  65.    Goto Start
  66.  
  67. :end
  68.  
  69.