home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / SCRIPTS.ZIP / BAUD2.T < prev    next >
Encoding:
Text File  |  1991-05-04  |  2.0 KB  |  57 lines
  1.     set home "/host";  cd; ena -d; pS10
  2.     if "m" echo "Characters Received from Modem"
  3.     if "!m" echo "NO characters received from Modem"
  4.     if "!c" echo "NO Carrier Detect from Modem"
  5.     if "c" echo "Carrier Detect from Modem"
  6.     pat
  7.     pat 1l "CONNECT\r\n"; pat 2l "NO CARRIER"
  8.     pat 5l "CONNECT 1200"; pat 6l "CONNECT 2400"
  9.     pat 10l "ONLINE 300"; pat 12l "NO CARRIER"
  10.     pat 15l "ONLINE 1200"; pat 16l "ONLINE 2400"
  11.     pat 17l "CONNECT FAST"; pat 18l "CONNECT 300"
  12.     pat 19l "CONNECT 9600";  pat 20l "CT 14400"
  13.     pe-15        : abend if 15 errors received
  14.     wait -EF40;  dis -E
  15.     if "!c" echo "No Carrier Detect from Modem"
  16.     if "hCONNECT" sets s9 "%t %y";  ss y "[0-9]+"; estimate 0 z0
  17.     if iMODEM,hst.t if "h[ /]REL|ARQ|CONTROL" dis -d; handshake on; return
  18.     if "1||10|18" speed 300 z pw1024;  goto chmnp
  19.     if "5||15" speed 1200 z pw3072;  goto chmnp
  20.     if "6||16" speed 2400 z pw6144;  goto chmnp
  21.     if iMODEM,hst.t if 19 speed 9600; z pw0;  goto chmnp
  22.     if 19 z pw0;  goto chmnp
  23.     if 17 pS60 z pw0;  dis -d; return
  24.     if iMODEM,tb.t if n put "ATS50=0\r"; wait -F25; dis -E
  25.     if iMODEM,tb.t if 17 pS60 dis -d; return
  26.     o
  27.     kill
  28.     : create -+ rings; timestamp; nolog close
  29.     fail
  30. chmnp:
  31.     if iMODEM,mm224e.t speed 9600 handshake on goto estr
  32.     if iMODEM,mmv32.t speed 19200 handshake on goto estr
  33.     echo "CHECKING FOR MNP"
  34.     while "!c&&L<8" echo "SLOW CD" sleep 2
  35.     dis -d
  36.     if "!h[ /]REL|ARQ" echo "NO MNP";  goto estr
  37.     if iMODEM,hst.t handshake on;  goto estr
  38.  
  39.     if "!iMODEM,tb.t" goto chmnp1
  40.     echo "Best not to mess with h/s for TB MNP";  return
  41.     pat 1 OK
  42.     mput "+++"; wait -f3
  43.     putw "ATS66=1\r"
  44.     putw "ATS51=5 S58=2 S68=2 \r"
  45.     speed 19200
  46.     putw "ATO\r"
  47.     handshake on
  48.     return
  49. chmnp1:    echo "MNP && UNSUPPORTED Modem Type"; return
  50. estr:    estimate 0 z0        :: record true baud rate
  51.     return
  52.  
  53. :: BAUD2.T Revised 5-3-91  For 17.78+
  54. :: For Hayes compatible modem set for extended result messages
  55. :: CONNECT FAST is used by the TELEBIT TrailBlazer modem
  56. :: CONTROL is part of Hayes 9600 result code
  57.