!DISCONNECT SCRIPT FOR RIXON MODEM
!
TYPE	"^Disconnecting...^"
TYPE	"Contacting modem...^"
WAIT	11
SEND	"!!!"
INPUT	1 3 "$"
IFNOT	TIMEOUT	GOTO S1
!
!try again with XOFF to stop remote end:
TYPE	"Trying again...^"
SEND	19
WAIT	20
SEND	"!!!"
INPUT	1 3 "$"
IFNOT	TIMEOUT	GOTO S1
TYPE	"^^Unable to contact modem for disconnect - Contact Computer Services^^"
GOTO	END
!
LABEL S1
TYPE	"Hanging up...^"
SEND	"X"
INPUT	1 3 "OFF-LINE"
IFNOT	TIMEOUT GOTO S2
TYPE	"^^Unable to hang up modem (1) - Contact Computer Services^^"
GOTO	END
!
LABEL S2
SEND	"^"
INPUT	1 3 "$"
IFNOT	TIMEOUT GOTO S3
TYPE	"^^Unable to hang up modem (2) - Contact Computer Services^^"
GOTO END
!
LABEL S3
TYPE	"Switching off modem...^"
SEND	"Q"
INPUT	2 3 "SIGN-OFF"
IFNOT	TIMEOUT GOTO END
TYPE	"^^Unable to switch off modem - Contact Computer Services^^"
GOTO	END
!
LABEL END
!drop out of script...