home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / QBBS275U.ZIP / RUNBBS.BAT < prev    next >
Encoding:
DOS Batch File  |  1991-10-09  |  2.9 KB  |  126 lines
  1. rem  This file is an example of a runbbs.bat used with D'Bridge, but
  2. rem  is easily adaptable to FD or other mailer.
  3. rem
  4. rem  If you wish to use BNU, this works at 363/34
  5. rem  BNU /L0=38400,8N1 /T:1024 /R:1024 /Z0
  6. rem
  7. rem  This is only one of hundreds of ways to do it, and is not meant to
  8. rem  be a complete example, but instead, a guideline.  This file was used
  9. rem  pretty much as is for over a year by 363/34.   For FD/Bink, additional
  10. rem  commands, especially the packer/unpacker area need to be added.
  11. rem  See the relevant docs for additional information.
  12. rem
  13. @echo off
  14.   dvansi            ; if you use DesqView and have not loaded an ANSI driver
  15.   verify on         ; good idea
  16.  
  17. :begin
  18.   cls
  19.   set DSZPORT=1     ; if you intend to use DSZ as in XRS processing
  20.   set qbbs=\qbbs\   ; don't forget the environment variable
  21.  
  22. rem Start or restart mailer
  23. :start
  24.   echo Starting DBridge With QuickBBS
  25.   e:                ; change to the drive with the mailer
  26.   cd \dbridge       ; your mailer subdirectory
  27.   db                ; you may substitute FD for FrontDoor or you may use Binkley
  28.  
  29.   if errorlevel 192 goto 19200_Baud    ; error levels determined in your mailer
  30.   if errorlevel 100 goto localbbs
  31.   if errorlevel  96 goto 9600_Baud
  32.   if errorlevel  24 goto 2400_Baud
  33.   if errorlevel  12 goto 1200_Baud
  34.   if errorlevel  10 goto end
  35.   if errorlevel  3  goto 300_Baud
  36.   goto end
  37.  
  38.  
  39. rem The following exit levels are to access QuickBBS bulletin board at
  40. rem various baud rates.  This in lieu of spawning.
  41.  
  42. rem errorlevel 192
  43. :19200_Baud
  44.   set baud=19200       ; I do it this way so if I want to pass a baud rate
  45.   goto Exe_qbbs        ; to a door, I can do so easily
  46.  
  47. rem errorlevel 96
  48. :9600_Baud
  49.   set baud=9600
  50.   goto Exe_qbbs
  51.  
  52. rem errorlevel 24
  53. :2400_Baud
  54.   set baud=2400
  55.   goto Exe_qbbs
  56.  
  57. rem errorlevel 12
  58. :1200_Baud
  59.   set baud=1200
  60.   goto Exe_qbbs
  61.  
  62. rem errorlevel 3
  63. :300_Baud
  64.   set baud=300
  65.   goto Exe_qbbs
  66.  
  67. rem errorlevel 100
  68. :Localbbs
  69.   set baud=L
  70.   e:
  71.   cd \qbbs
  72.   quickbbs -%baud% -E0      ;special case here for local
  73.   goto After_qbbs
  74.  
  75. :Exe_Qbbs:
  76.   e:
  77.   cd \qbbs
  78.   quickbbs -b%baud% -E0
  79.   goto After_qbbs
  80.  
  81. :restart
  82.   e:
  83.   cd \qbbs
  84.   quickbbs -R -E0
  85.   goto After_qbbs
  86.  
  87. :After_qbbs
  88.   if errorlevel 254 goto RemoteDos
  89.   if errorlevel 202 goto verify
  90.   if errorlevel 170 goto QMX
  91.   if errorlevel  5 goto net_echo
  92.   if errorlevel  4 goto echo_only
  93.   if errorlevel  3 goto net_only
  94.   goto done
  95.  
  96. :QMX                    ; one way to do it
  97.   e:
  98.   cd \qbbs
  99.   raqmx286
  100.   MV BAT*.* \DBridge\files
  101.   goto restart
  102.  
  103. :RemoteDos
  104.   e:
  105.   cd \qbbs
  106.   DM pcb14 * \qbbs\
  107.   MakePort 1
  108.   DoorWay Com1  /v:d /b:z /s: /g:ON /c:dos
  109.   cd \qbbs
  110.   goto ReStart
  111.  
  112. :net_echo       ; put packing commands (Qecho) here
  113. :echo_only
  114. :net_only
  115.  
  116.   goto done
  117.  
  118. :done
  119.   e:
  120.   cd \qbbs
  121.   echo Returning to DB...
  122.   goto start
  123.  
  124. rem Come here on bad errors or to exit
  125. :end
  126.