!CONNECT SCRIPT FOR HAYES MODEM
!
TYPE	"Enabling Hayes modem...^"
SEND	"ATZ^"
INPUT	1 2 "OK"
IFNOT	TIMEOUT GOTO DIAL
ABORT	"^^Unable to contact modem - Contact Computer Services^^"
!
LABEL DIAL
TYPE	"Dialling...^"
SEND	"ATDT"
SEND	#
SEND	"^"
INPUT	2 18 "CONNECT" "NO CARRIER" "ERROR"
IF	1 GOTO ANSWERED
IF	2 GOTO NO_ANS
IF	3 GOTO ERROR
ABORT	"^^No response to dialling - Contact Computer Services^^"
!
LABEL NO_ANS
ABORT	"^^Line busy^^"
!
LABEL ERROR
ABORT	"^^Dialling error - Contact Computer Services^^"
!
LABEL ANSWERED
TYPE	"Answered...^"
!finished dialling