IBM H80 Series manual Appendix D. Modem Configurations193

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,
	ignore "ð\r" timeout 1		#	Disable responses.
	done
condin:	send	"ATZQðT\r"	# Reset to factory defaults.
	ignore "ð\r" or "OK\r\n" timeout 2		# Ignore modem response.
	send	"ATEðT\r"	# Initialize modem: Echo OFF,
	expect "ð\r" or "OK\r\n" timeout 2		#	Enable responses (Numeric),
	send	"ATQðVðT\r"	#	Limit response codes.
	expect "ð\r" timeout 2		# Confirm commands successful.
	send	"ATSð=2\r"	# Set AutoAnswer ON
	expect "ð\r" timeout 2		# Confirm command successful.
	done
waitcall: ignore		"2\r" timeout 1	# Ignore first ring.
expect		"2\r" timeout 1ð	# Pick up second ring
			#	or timeout.
			# Expect a connection response.
expect "16\r" or "15\r" or "14\r" or "12\r" or			"1ð\r" or "5￿\r" or "1\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.
			# %R = paging number
	expect "ð\r" timeout 6ð		# Confirm successful command.
	delay 2		# Wait before hanging up.
	send	"ATHðT\r"		# Hang up.
	expect "ð\r" timeout 2		# Confirm successful command.
	done
ripo:	send	"ATZQðT\r"	# Reset to factory defaults.
	ignore "ð\r" or "OK\r\n" timeout 2		# Ignore modem response.
	send	"ATEðT\r"	# Initialize modem: Echo OFF,
	expect "ð\r" or "OK\r\n" timeout 2		#	Enable responses (Numeric),
	send	"ATQðVðT\r"	#	Limit response codes.
	expect "ð\r" timeout 2		# Confirm commands successful.
	send	"ATSð=ð\r"	# Set AutoAnswer OFF
	expect "ð\r" timeout 2		# Confirm command successful.
	done		# RI Power On enabled.
error:			# Handle unexpected modem
			#	responses.

expect "8\r" or "7\r" or "6\r" or "4\r" or "3\r" delay 2

done

Appendix D. Modem Configurations193