!DISCONNECT SCRIPT FOR HAYES-COMPATIBLE MODEM
!
TYPE	"^Disconnecting...^"
TYPE	"Contacting modem...^"
WAIT	11
SEND	"+++"
INPUT	1 3 "OK"
IFNOT	TIMEOUT	GOTO S1
!
!try again with XOFF to stop remote end:
TYPE	"Trying again...^"
SEND	19
WAIT	20
SEND	"+++"
INPUT	1 3 "OK"
IFNOT	TIMEOUT	GOTO S1
!if modem doesn't respond, maybe it is already in command mode: carry on...
!
LABEL S1
TYPE	"Hanging up...^"
SEND	"ATH^"
INPUT	1 3 "OK"
IFNOT	TIMEOUT GOTO END
TYPE	"^^Unable to hang up modem - Contact Computer Services^^"
GOTO	END
!
LABEL END
!drop out of script...