| send "+++" | # Assure command mode. |
| delay 2 | # Allow mode switching delay. |
| send "ATH0T\r" | # Set modem |
|
| # (i.e., hang up). |
| ignore "0\r" or "OK\r" timeout 2 | # Ignore modem response. |
| send "ATE0Q1\r" | # Initialize modem: Echo OFF, |
| ignore "0\r" timeout 1 | # Disable responses. |
|
| |
| done |
|
condin: | send "AT&F&E2E0T\r" | # Reset to factory defaults. |
|
| # Reliable mode |
|
| # Echo off |
| ignore "0\r" or "OK\r\n" timeout 2 | # Ignore modem response. |
| send "AT&E12&E14\r" | # Disable pacing |
|
| # Disable data compression |
| expect "0\r" or "OK\r\n" timeout 2 | # Confirm commands successful |
| send "AT&SF1&S0S9=1\r" | # DSR independent of CD. |
|
| # Force DSR on. |
|
| # CD respond time=100ms |
| expect "0\r" or "OK\r\n" timeout 2 | # Confirm commands successful. |
| send "ATV0S0=2\r" | # Numberic response code |
|
| # Answer on 2nd ring |
| expect "0\r" timeout 2 | # Confirm commands successful. |
| done |
|
waitcall: | ignore "2\r" timeout 1 | # Ignore first ring. |
| expect "2\r" timeout 10 | # Pickup 2nd ring or timeout |
|
| # Expect a connection response. |
| expect "33\r" or "31\r" or "28\r" or "26\r" or "24\r" or "21\r" or | |
"19\r" or "13\r" or "12\r" or "1\r" busy "7\r" |
| |
| timeout 60 |
|
| done |
|
page: | send "ATDT%N,,,,%R;\r" | # %N = pager call center number |
|
| # Add enough commas to wait for |
|
| # time to enter paging number. |
|
| # %R = paging number |
| expect "0\r" timeout 60 | # Confirm successful command. |
| delay 2 | # Wait before hanging up. |
| send "ATH0\r" | # Hang up. |
| expect "0\r" timeout 2 | # Confirm successful command. |
| done |
|
ripo: | send "AT&F&E2E0T\r" | # Reset to factory defaults. |
|
| # Reliable mode |
|
| # Echo off |
| ignore "0\r" or "OK\r\n" timeout 2 | # Ignore modem response. |
| send "AT&E12&E14\r" | # Disable pacing |
|
| # Disable data compression |
| expect "0\r" or "OK\r\n" timeout 2 | # Confirm successful command. |
| send "AT&SF1&S0S9=1\r" | # DSR independent of CD. |
|
| # Force DSR on. |
|
| # CD respond time=100ms |
| expect "0\r" or "OK\r\n" timeout 2 | # Confirm commands successful. |
| send "ATV0S0=0\r" | # Numeric response code |
|
| # Auto Answer OFF |
| expect "0\r" timeout 2 | # Confirm commands successful. |
| done | # |
error: |
| # Handle unexpected modem |
|
| # responses. |
expect "8\r" or "7\r" or "6\r" or "4\r" or "3\r" delay 2
done