# 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 6ð
done
retry: send "A/" # Repeat the previous command.
# 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 6ð
done
disconnect:
delay 2 # Separate from previous data.
send "+++" # Assure command mode.
delay 2 # Allow mode switching delay.
send "ATHðT\r" # Set modem switch-hook down
# (i.e., hang up).
ignore "ð\r" or "OK\r" timeout 2 # Ignore modem response.
send "ATEðQ1\r" # Initialize modem: Echo OFF,
# Disable responses.
ignore "ð\r" timeout 1
done
condin: send "AT&F&E2EðT\r" # Reset to factory defaults.
# Reliable mode
# Echo off
ignore "ð\r" or "OK\r\n" timeout 2 # Ignore modem response.
send "AT&E12&E14\r" # Disable pacing
# Disable data compression
expect "ð\r" or "OK\r\n" timeout 2 # Confirm commands successful
send "AT&SF1&SðS9=1\r" # DSR independent of CD.
# Force DSR on.
# CD respond time=1ððms
expect "ð\r" or "OK\r\n" timeout 2 # Confirm commands successful.
send "ATVðSð=2\r" # Numberic response code
# Answer on 2nd ring
expect "ð\r" timeout 2 # Confirm commands successful.
done
waitcall: ignore "2\r" timeout 1 # Ignore first ring.
expect "2\r" timeout 1ð # 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 6ð
done
page: send "ATDT%N,,,,%R;\r" # %N = pager call center number
# Add enough commas to wait for
# time to enter paging number.
C-10 RS/6000 Enterprise Server Model H Series User's Guide