home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / BAUD4.T < prev    next >
Encoding:
Text File  |  1993-04-04  |  895 b   |  30 lines
  1.     :: BAUD4.T Revised 4-4-93
  2.     :: For modems that always lock baud rate
  3.     ::
  4.     set home "/host";  cd; ena -d; pS10
  5.     if "m" echo "Characters Received from Modem"
  6.     if "!m" echo "NO characters received from Modem"
  7.     if "!c" echo "NO Carrier Detect from Modem"
  8.     if "c" echo "Carrier Detect from Modem"
  9.     pat
  10.     pat 1l "CONNECT"; pat 2l "NO CARRIER"
  11.     pat 3l "ONLINE"
  12.     pe-15        : abend if 15 errors received
  13.     wait -EF40;  dis -E
  14.     if "!c" echo "No Carrier Detect from Modem"
  15.     if "hCONNECT" sets s9 "%t %y";  ss y "[0-9]+"; estimate 0 z0
  16.     if "hCARRIER" sets s9 "%t %y";  ss y "[0-9]+"; estimate 0 z0
  17.     if "az0<1200" z pw1024; sleep 30;  goto chmnp
  18.     if "az0<2400" z pw3072; sleep 20;  goto chmnp
  19.     if "az0<9600" z pw6144; sleep 10;  goto chmnp
  20.     pw0
  21.     if !2 goto chmnp
  22.     o
  23.     kill
  24.     : create -+ rings; timestamp; nolog close
  25.     fail
  26. chmnp:    while "!c&&L<8" echo "SLOW CD" sleep 2
  27.     dis -d
  28.     return
  29.  
  30.