!script for Dec Professional ARIS
!
DIAL	912155429458
SET	VIEW
SET	PAUSE 10
SEND	"^^^"
TYPE	"Please be patient...^"
INPUT	3 10 "ARIS" "FRODO" "continue" "code :"
IF	1 GOTO S1
IF	2 GOTO S1
IF	3 GOTO S2
IF	4 GOTO S3
SEND	"^^^"
TYPE	"Waiting for response from ARIS...^"
INPUT	3 10 "ARIS" "FRODO" "continue" "code :"
IF	1 GOTO S1
IF	2 GOTO S1
IF	3 GOTO S2
IF	4 GOTO S3
SEND	"^^^"
TYPE	"Still waiting...^"
INPUT	3 20 "ARIS" "FRODO" "continue" "code :"
IF	1 GOTO S1
IF	2 GOTO S1
IF	3 GOTO S2
IF	4 GOTO S3
ABORT	"No 'ARIS' response - Contact Computer Services^^"
!
LABEL S1
TYPE	"Contacting ARIS...^"
SET	PAUSE 0
!
LABEL S1A
INPUT	3 20 "continue" "code :"
IF	1 GOTO S2
IF	2 GOTO S3
ABORT	"No 'code' prompt - Contact Computer Services^^""
!
LABEL S2
TYPE	"^No need to press return: it's programmed in the script.^"
SET	PAUSE 0
SEND	"^"
GOTO	S1A
!
LABEL S3
SET	PAUSE 0
SET	NOVIEW
TYPE	"Logging in...^"
SEND	"xxxxxx^"		!enter your name here
INPUT	4 30 "number :"
IF	1 GOTO S4
ABORT	"No 'number' prompt - Contact Computer Services^^""
!
LABEL S4
SEND	"nnnn^"			!enter your number here
CONNECT