@echo off
cls
goto start
rem ;*************************************************************************
rem ;
rem ;This batchfile is for echoing the modem connect strings from FrontDoor to
rem ;PCBoard. I use it here at Murphys / Sweden and it works fine. Below is how
rem ;I fool my FD 2.00 to accept different connect speeds. Look at 1275 - its
rem ;needed to work correctly. With the new FD2.01 it shall be possible to send
rem ;the required errorlevels / connectstrings needed.
rem ;
rem ;I have also seen something strange. My FD is locked at 38400 with BNU170
rem ;fossil driver. If a user logs on to FD with 14400bps - it echoes %1 38400
rem ;but PCB due to myu /c:14400 writes it on the status line. *BUT* if it's
rem ;a user running ErrorCorrectiong Modem - and I let him run /c:14400 /ERR - then
rem ;PCB shows suddenly 38400E
rem ;
rem ;This might be something withing PCB - I have asked David abt it. All connect
rem ;speeds above 7200bps with /ERR on is showned as 38400E. With alt-H you can 
rem ;however see that the Carrier Speed is for example 9600 12000 14400bps.
rem ;
rem ;The program NXTEVENT is echoing the %3 from FD so PCB does know when to 
rem ;reject users from the BBS due to some external events in FD. The POS program
rem ;is made to check up %4 for /ARQ or other Errorcorrecting strings. If found -
rem ;exits with errorlevel 1.
rem ;
rem ;
rem ;Best wishes - Peter laur / sysop *M*U*R*P*H*Y*S* PCBoard BBS - Sweden.
rem ;
rem ;
rem ;r   Terminal   Modem   Printer   Ma
rem ;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸Í
rem ;±ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ Messages ¸³±
rem ;±³                              ³³±
rem ;±³ 300         CONNECT|         ³³±
rem ;±³ 1200        CONNECT 1200     ³³±
rem ;±³ 1275        CONNECT 7200     ³¾±
rem ;±³ 2400        CONNECT 2400     ³±±
rem ;±³ 4800        CONNECT 4800     ³±±
rem ;±³ 9600        CONNECT 9600     ³±±
rem ;±³ 19200       CONNECT 12000    ³±±
rem ;D³ 38400       CONNECT 14400    ³±±
rem ;±³ Error       ERROR            ³±±
rem ;m³ Busy        BUSY             ³er
rem ;±³ No Carrier  NO CARRIER       ³±±
rem ;±³ Ok          OK               ³±±
rem ;±³ Ring        RING|            ³±±
rem ;±³ No Dialtone NO DIAL          ³±±
rem ;±³ No Answer   NO ANSWER        ³±±
rem ;±³ Voice       VOICE            ³±±
rem ;±³                              ³±±
rem ;±ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;±±
rem ;
rem ;*************************************************************************
:start
nxtevent c:\pcb\pcboard.dat %3

pos %4 /Arq
if errorlevel 1 goto testing
pos %4 /Mnp
if errorlevel 1 goto testing
pos %4 /Lapm
if errorlevel 1 goto testing
pos %4 /V42bis
if errorlevel 1 goto testing

if '%1' == '38400' goto 14400bps
if '%1' == '14400' goto 14400bps
if '%1' == '12000' goto 12000bps
if '%1' == '9600'  goto 9600bps
if '%1' == '1275'  goto 7200bps
if '%1' == '4800'  goto 4800bps
if '%1' == '2400'  goto 2400bps
if '%1' == '1200'  goto 1200bps
if '%1' == '300'   goto 300bps

:testing
if '%1' == '38400' goto 14400arq
if '%1' == '14400' goto 14400arq
if '%1' == '12000' goto 12000arq
if '%1' == '9600'  goto 9600arq
if '%1' == '1275'  goto 7200arq
if '%1' == '4800'  goto 4800arq
if '%1' == '2400'  goto 2400arq
if '%1' == '1200'  goto 1200arq
if '%1' == '300'   goto 300arq
goto end

:14400arq
cd\pcb
board /c:14400 /ERR

:14400bps
cd\pcb
board /c:14400

:12000arq
cd\pcb
board /c:12000 /ERR

:12000bps
cd\pcb
board /c:12000

:9600arq
cd\pcb
board /c:9600 /ERR

:9600bps
cd\pcb
board /c:9600

:7200arq
cd\pcb
board /c:7200 /ERR

:7200bps
cd\pcb
board /c:7200

:4800arq
cd\pcb
board /c:4800 /ERR

:4800bps
cd\pcb
board /c:4800

:2400arq
cd\pcb
board /c:2400 /ERR

:2400bps
cd\pcb
board /c:2400

:1200arq
cd\pcb
board /c:1200 /ERR

:1200bps
cd\pcb
board /c:1200

:300arq
cd\pcb
board /c:300arq

:300bps
cd\pcb
board /c:300

:end
cd c:\fd
runfd