head     1.2;
branch   ;
access   ;
symbols  ;
locks    ; strict;
comment  @# @;


1.2
date     93.01.27.10.55.00;  author ks;  state Exp;
branches ;
next     1.1;

1.1
date     93.01.14.07.21.11;  author ks;  state Exp;
branches ;
next     ;


desc
@@


1.2
log
@New comments.
@
text
@##
##  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
@


1.1
log
@Initial revision
@
text
@d2 1
a2 2
##  Have a Telebit T3000 or a Telebit T1600 modem dial a Telebit T1600 modem
##  via phone number $1.
@
