##
##  Dial up a V.34 or lower modem with a US Robotics Courier V.everthing modem
##
xmit "\xAT Z\r"
{
    alternate
	recv "OK" 5
    alternate
	xmit "\xAT Z\r" 
	recv "OK" 5
    alternate 
	xmit "\xAT Z\r" 
	recv "OK" 5
    alternate 
	xmit "\xAT Z\r" 
	recv "OK" 5
    alternate 
	log "Failed to get attention of modem"
	abort
}
## xmit "\xAT E1\r"
## {
##    alternate
##	recv "OK" 5
##    alternate
##	xmit "\xAT E1\r" 
##	recv "OK" 5
##    alternate 
##	xmit "\xAT E1\r" 
##	recv "OK" 5
##    alternate 
##	log "Failed to configure modem"
##	abort
##}
xmit "ATD$1\r"
mark
{
    alternate
	recv "CONNECT" "NO CARRIER" "ERROR" "NO DIAL TONE" "BUSY" "VOICE" 60
    alternate
	log "Dial Timeout"
	abort
}
{
    alternate
	replay
	recv "CONNECT" 0
    alternate 
	replay
	recv "NO CARRIER" 0
	log "No carrier"
	abort
    alternate
	replay
	recv "ERROR" 0
	log "Error received from modem"
	abort
    alternate 
	replay
	recv "NO DIAL TONE" 0
	log "No dialtone"
	abort
    alternate
	replay
	recv "BUSY" 0
	log "Busy"
	busy
    alternate
	replay
	recv "VOICE" 0
	log "Voice"
	busy
    alternate
	log "usr-dial script error"
	abort
}
go
##
## Stuff for future development
##
{
    alternate
	recv "28800" "26400" "24000" "21600" "19200" "16800" "14400" "12000" "9600" "7200" "4800" "2400" "1200" 10
    alternate
	log "Unable to determine connect speed"
	abort
}
abort
{
    alternate
	replay
	recv "28800" 0
	log "Connect at 28800 bps"
    alternate
	replay
	recv "26400" 0
	log "Connect at 26400 bps"
    alternate
	replay
	recv "24000" 0
	log "Connect at 24000 bps"
    alternate
	replay
	recv "21600" 0
	log "Connect at 21600 bps"
    alternate
	replay
	recv "19200" 0
	log "Connect at 19200 bps"
    alternate
	replay
	recv "16800" 0
	log "Connect at 16800 bps"
    alternate
	replay
	recv "14400" 0
	log "Connect at 14400 bps"
    alternate
	replay
	recv "12000" 0
	log "Connect at 12000 bps"
    alternate
	replay
	recv "9600" 0
#	log "Connect at 9600 bps"
	go
    alternate
	replay
	recv "7200" 0
	log "Connect at 7200 bps"
    alternate
	replay
	recv "4800" 0
	log "Connect at 4800 bps"
    alternate
	replay
	recv "2400" 0
	log "Connect at 2400 bps"
    alternate
	replay
	recv "1200" 0
	log "Connect at 1200 bps"
}
## {
##     alternate
## 	recv "/ARQ" 1
##     alternate
## 	log "No error correction"
## 	abort
## }
## {
##     alternate
## 	recv "/V32" 0
## 	log "V.32 modulation"
##     alternate
## 	recv "/VFC" 0
## 	log "V.FC modulation"
##     alternate
## 	log "Unknown modulation"
## }
## {
##     alternate
## 	recv "/LAPM" 0
## 	log "V.42 error correction"
##     alternate
## 	log "Unknown error correction"
## }
## {
##     alternate
## 	recv "/V42BIS" 0
## 	log "V.42bis compression"
##     alternate
## 	log "Unknown compression"
## }
go
