##
##  Dial up a V.32 modem with a Telebit T1600 modem
##
xmit "\xAT S50=6 S94=2 E1\r"
{
    alternate
	recv "OK" 5
    alternate
	xmit "\xAT S50=6 S94=2 E1\r"
	recv "OK" 5
    alternate 
	xmit "\xAT S50=6 S94=2 E1\r"
	recv "OK" 5
    alternate 
	xmit "\xAT S50=6 S94=2 E1\r"
	recv "OK" 5
    alternate 
	log "Failed to get attention of modem"
	abort
}
xmit "\rATDT$1\r"
mark
{
    alternate
	recv "CONNECT 9600" "CONNECT 7200" "CONNECT 4800" "BUSY" "NO CARRIER" "NO DIALTONE" "ERROR" 55
    alternate
	log "Modem Timeout"
	abort
}
{
    alternate
	replay
	recv "CONNECT 9600" 0
	go
    alternate
	replay
	recv "CONNECT 7200" 0
	log "Fallback to 7200 baud"
	go
    alternate
	replay
	recv "CONNECT 4800" 0
	log "Fallback to 4800 baud"
	go
    alternate
	replay
	recv "BUSY" 0
	log "Busy"
    alternate 
	replay
	recv "NO CARRIER" 0
	log "No carrier"
    alternate 
	replay
	recv "NO DIALTONE" 0
	abort
    alternate
	replay
	recv "ERROR" 0
	log "Error received from modem"
}
abort
