From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRDGW1::MITECH!GJC" 26-JUL-1989 18:47
To:	MRGATE::"ARISIA::EVERHART"
Subj:	No Subject

Received: from bu-it.BU.EDU by DRYCAS.CLUB.CC.CMU.EDU; Wed, 26 Jul 89 18:27 EDT
Received: from BUITA.BU.EDU by bu-it.BU.EDU (5.58/4.7) id AA06178; Wed, 26 Jul
 89 18:27:04 EDT
Received: by buita.bu.edu (3.2/4.7) id AA05193; Wed, 26 Jul 89 18:27:07 EDT
Received: by mitech.com (DECUS UUCP w/Smail); Wed, 26 Jul 89 17:10:47 EDT
Date: Wed, 26 Jul 89 17:10:47 EDT
From: gjc@mitech.com
To: vmsnet@DRYCAS.CLUB.CC.CMU.EDU
Message-Id:  <8907262227.AA05193@buita.bu.edu>
X-Vms-Mail-To: UUCP%"vmsnet@drycas.club.cc.cmu.edu"

############## here is the file dial.myhayes ######################

! George Carrette, Mitech Corporation.
! Ok, here is my contribution to the art of modem script-files.
! The additional feature here is to recognize and log all the possible
! combinations of connection baud rate.
!
! My modem happens to be a DIGCOM Systems Inc model 9624 LE ($795 list)
! which is a V.32 (9600 baud full-duplex) capable modem
! with MNP class 5 error correction and data compression.
! But this should work for any AT command set modem.
!
! Setup (saved in NVRAM with AT&W):
!  AT*Q3  retrain then adapt baud rate
!  AT*F3  RTS/CTS flow contol
!  AT&D3  DTR low causes reset to NVRAM values
!  AT&B2  DSR follows normal RS-232
!  AT*E0  disable MNP EC (by default, but dialup scripts can change this)
!  ATQ1   no command response messages
!  ATE0   no echo
!
! turns on command echo and command response messages, then dials.
!
	zero
	flush
	ifblind	blindwake

wakemodem:
	count
	ifgtr	cantwake	4
	send			ATQ0E1\rAT\r
	timeout	wakemodem	2000
	expect	dialnumber	OK

cantwake:
	logerr	Can't wake modem MYHAYES
	failed

blindwake:
	count
	ifgtr	dialnumber	4
	send			AT\r
	goto	blindwake

dialnumber:
        log dialing, no MNP
	send			ATDT
	dial
	flush
	send			\r
	timeout	timeout		0
	ifcarr	conn0
	expect	nocarrier	NO CARRIER
	expect	busy		BUSY
	expect	conn1		CONNECT\r
	expect	conn2		CONNECT EC\r
	expect	conn3		CONNECT 1200\r
	expect	conn4		CONNECT 1200 EC\r
	expect	conn5		CONNECT 2400\r
	expect	conn6		CONNECT 2400 EC\r
	expect	conn7		CONNECT 4800\r
	expect	conn8		CONNECT 4800 EC\r
	expect	conn9		CONNECT 9600\r
	expect	conn10		CONNECT 9600 EC\r
         
conn0:	log	OK: [DCD]
	success
conn1:	log	OK: [CONNECT]
	success
conn2:	log	OK: [CONNECT EC]
	success
conn3:	log	OK: [CONNECT 1200]
	success
conn4:	log	OK: [CONNECT 1200 EC]
	success
conn5:	log	OK: [CONNECT 2400]
	success
conn6:	log	OK: [CONNECT 2400 EC]
	success
conn7:	log	OK: [CONNECT 4800]
	success
conn8:	log	OK: [CONNECT 4800 EC]
	success
conn9:	log	OK: [CONNECT 9600]
	success
conn10:	log	OK: [CONNECT 9600 EC]
	success


timeout:
	logerr	Timeout awtg response or carr after dial string
	failed

nocarrier:
	logerr	Modem reported NO CARRIER
	failed

busy:
	logerr	Modem reported BUSY
	failed



############## here is the file hangup.myhayes ######################

! George Carrette, Mitech Corporation.
! hangup.myhayes -- send ATZ to reset to NVRAM values.
! The dropping of DTR takes care of this already in most cases
! but not all.

        log hangup.myhayes
	flush
	send	ATH\r
	send	ATZ\r
	success