home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
zcm_scrp.zip
/
BAUD2.T
< prev
next >
Wrap
Text File
|
1989-11-21
|
2KB
|
48 lines
pf20
if iMODEM,TB pf40
set home "/host"; cd; ena -d; pS10
if "m" echo "Characters Received from Modem"
if "!c" echo "NO Carrier Detect from Modem"
if "!m" echo "NO characters received from Modem"
if "c" echo "Carrier Detect from Modem"
pat 1 "CONNECT\r\n"; pat 2 "NO CARRIER"
pat 5 "CONNECT 1200"; pat 6 "CONNECT 2400"
pat 10 "ONLINE 300"; pat 12 "NO CARRIER"
pat 15 "ONLINE 1200"; pat 16 "ONLINE 2400"
pat 17 "CONNECT FAST"; pat 18 "CONNECT 300"
pe-5
wait -E; dis -E
if "!c" echo "No Carrier Detect from Modem"
if "hCONNECT" sets s9 "%t %y" : save connect info
if "1||10|18" speed 300 z pw1024; goto chmnp
if "5||15" speed 1200 z pw3072; goto chmnp
if "6||16" speed 2400 z pw6144; goto chmnp
if 17 pS60 z pw0; dis -d; return
if n put "ATS50=0\r"; wait -F25; dis -E
if 17 pS60 dis -d; return
o; kill
: create -+ rings; timestamp; nolog close
fail
chmnp: echo "CHECKING FOR MNP"
while "!c&&L<8" echo "SLOW CD" sleep 2
dis -d
if "!h[ /]REL|CONTROL" sleep 20
if iMODEM,MM224E speed 9600 handshake on return
if "!h[ /]REL" echo "NO MNP"; return
pat 1 OK
if "!iMODEM,TB" goto chmnp1
echo "Best not to mess with h/s for TB MNP"; return
mput "+++"; wait -f3
putw "ATS66=1\r"
putw "ATS51=5 S58=2 S68=2 \r"
speed 19200
putw "ATO\r"
handshake on
return
chmnp1: echo "MNP && UNSUPPORTED Modem Type"; return
:: BAUD2.T Revised 06-24-88
:: For Hayes compatible modem set for extended result messages
:: CONNECT FAST is used by the TELEBIT TrailBlazer modem
:: CONTROL is part of Hayes 9600 result code