home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / RUN.RAR / RUN0.BAT < prev   
Encoding:
DOS Batch File  |  1995-06-30  |  1.9 KB  |  99 lines
  1. @ECHO OFF
  2. VERIFY ON
  3. SET TASK=0
  4. rem LH BNU /L1=11520 /T=8192 /R=8192 /F
  5. C:\DOS\SHARE.EXE /L:200
  6. x00 B,1,57600 T=8192 R=8192 F=15 DV:ON E
  7. dvansi
  8. F:
  9. CD\RA
  10. rem DEL GEDIT.CFG
  11. REM PATH D:\WINDOWS;C:\DOS;D:\BBS\FD;F:\RA;D:\FOXPRO25
  12. SET FD=D:\BBS\FD
  13. SET FAX=DEBUG
  14. SET FDOPT=RDEBUG,INTL
  15. SET DSZPORT=2
  16. SET ICE=F:\RA\CHAT
  17. SET EAGLE=F:\RA\EAGLE.CFG
  18. SET MCHAT=D:\BBS\MCHAT\MCHAT.CFG
  19. :LOOP
  20. D:
  21. CD\BBS\FD
  22. FD
  23. IF ERRORLEVEL 251 GOTO FAX    
  24. IF ERRORLEVEL 250 GOTO BBSCALL
  25. IF ERRORLEVEL 249 GOTO BBSCALL
  26. IF ERRORLEVEL 248 GOTO BBSCALL
  27. IF ERRORLEVEL 247 GOTO BBSCALL
  28. IF ERRORLEVEL 246 GOTO BBSCALL
  29. rem IF ERRORLEVEL 245 GOTO BBSCALL
  30. rem IF ERRORLEVEL 244 GOTO BBSCALL
  31. rem IF ERRORLEVEL 243 GOTO BBSCALL
  32. IF ERRORLEVEL 242 GOTO BBSCALL
  33. IF ERRORLEVEL 241 GOTO BBSCALL
  34. IF ERRORLEVEL 240 GOTO BBSCALL
  35. IF ERRORLEVEL 239 GOTO BBSCALL
  36. IF ERRORLEVEL 238 GOTO BBSCALL
  37. IF ERRORLEVEL 237 GOTO BBSCALL
  38. IF ERRORLEVEL 236 GOTO BBSCALL
  39. IF ERRORLEVEL 235 GOTO BBSCALL
  40. IF ERRORLEVEL 234 GOTO BBSCALL
  41. IF ERRORLEVEL 233 GOTO BBSCALL
  42. IF ERRORLEVEL 232 GOTO BBSCALL
  43. IF ERRORLEVEL 231 GOTO BBSCALL
  44. IF ERRORLEVEL 100 GOTO MAIL
  45. IF ERRORLEVEL 99  GOTO PACKMSG
  46. IF ERRORLEVEL 90  GOTO MKNODE
  47. IF ERRORLEVEL 10  GOTO USERBRK
  48. IF ERRORLEVEL  1  GOTO FDERROR
  49. :FAX
  50. F:
  51. CD\BGFAX
  52. XU LOCK:1:OFF
  53. BGFAX/FCO F:\BGFAX F2! Z
  54. XU LOCK:1:57600
  55. rem FAXMAIL FAXIN.LOG CHQ BGFAX CHEN_HAI-QING NEWFAX 6:650/6
  56. GOTO LOOP
  57. :PACKMSG
  58. D:
  59. CD\BBS\FD
  60. ATPLUS -CATH1M0
  61. F:
  62. CD\RA
  63. RAMSG PURGE
  64. RAMSG PACK -RENUMBER
  65. D:
  66. CD\BBS\FD
  67. ATPLUS -CATH0M1
  68. GOTO LOOP
  69. :MKNODE
  70. D:
  71. CD\BBS\FD
  72. ATPLUS -CATH1M0
  73. CD\BBS\FD\MKNODE
  74. CALL MKNODE.BAT
  75. GOTO LOOP
  76. :BBSCALL
  77. DOBBS0
  78. GOTO LOOP
  79. :MAIL
  80. D:
  81. CD\BBS\XM
  82. DEL LINELOCK.XM
  83. CD\BBS\FD
  84. ATPLUS -CATH1M0
  85. CD\BBS\XM
  86. XM IMPORT
  87. XM EXPORT
  88. rem XM PACK @ROUTE.RAE
  89. CD\BBS\FD
  90. ATPLUS -CATH0M1
  91. GOTO LOOP
  92. :USERBRK
  93. GOTO EXIT
  94. :FDERROR
  95. @ECHO Mailer returned an error (1-9)
  96. BNU/B
  97. :EXIT
  98.  
  99.