home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMMUNIC / ZCM_SCRP.ZIP / BAUD2.T < prev    next >
Encoding:
Text File  |  1989-11-21  |  1.5 KB  |  48 lines
  1.     pf20
  2.     if iMODEM,TB pf40
  3.     set home "/host";  cd; ena -d; pS10
  4.     if "m" echo "Characters Received from Modem"
  5.     if "!c" echo "NO Carrier Detect from Modem"
  6.     if "!m" echo "NO characters received from Modem"
  7.     if "c" echo "Carrier Detect from Modem"
  8.     pat 1 "CONNECT\r\n"; pat 2 "NO CARRIER"
  9.     pat 5 "CONNECT 1200"; pat 6 "CONNECT 2400"
  10.     pat 10 "ONLINE 300"; pat 12 "NO CARRIER"
  11.     pat 15 "ONLINE 1200"; pat 16 "ONLINE 2400"
  12.     pat 17 "CONNECT FAST"; pat 18 "CONNECT 300"
  13.     pe-5
  14.     wait -E;  dis -E
  15.     if "!c" echo "No Carrier Detect from Modem"
  16.     if "hCONNECT" sets s9 "%t %y" : save connect info
  17.     if "1||10|18" speed 300 z pw1024;  goto chmnp
  18.     if "5||15" speed 1200 z pw3072;  goto chmnp
  19.     if "6||16" speed 2400 z pw6144;  goto chmnp
  20.     if 17 pS60 z pw0;  dis -d; return
  21.     if n put "ATS50=0\r"; wait -F25; dis -E
  22.     if 17 pS60 dis -d; return
  23.     o; kill
  24.     : create -+ rings; timestamp; nolog close
  25.     fail
  26. chmnp:    echo "CHECKING FOR MNP"
  27.     while "!c&&L<8" echo "SLOW CD" sleep 2
  28.     dis -d
  29.     if "!h[ /]REL|CONTROL" sleep 20
  30.     if iMODEM,MM224E speed 9600 handshake on return
  31.     if "!h[ /]REL" echo "NO MNP";  return
  32.     pat 1 OK
  33.     if "!iMODEM,TB" goto chmnp1
  34.     echo "Best not to mess with h/s for TB MNP";  return
  35.     mput "+++"; wait -f3
  36.     putw "ATS66=1\r"
  37.     putw "ATS51=5 S58=2 S68=2 \r"
  38.     speed 19200
  39.     putw "ATO\r"
  40.     handshake on
  41.     return
  42. chmnp1:    echo "MNP && UNSUPPORTED Modem Type"; return
  43.  
  44. :: BAUD2.T Revised 06-24-88
  45. :: For Hayes compatible modem set for extended result messages
  46. :: CONNECT FAST is used by the TELEBIT TrailBlazer modem
  47. :: CONTROL is part of Hayes 9600 result code
  48.