!script for Dialog
!
!skip dialling if we have a Datapac port...
IF	CLASS "DP3000" GOTO S1
!
DIAL	92900213
TYPE	"Connecting through Datapac...^"
SEND	"..^"
INPUT	2 5 "DATAPAC"
IFNOT	TIMEOUT GOTO S1
!
SEND	"..^"
INPUT	2 5 "DATAPAC"
IFNOT	TIMEOUT GOTO S1
ABORT	"^^No 'DATAPAC' response - Contact Computer Services^^"
!
LABEL S1
SET	PAUSE 1
SEND	"PR 1 3110 4150004804^"
SET	PAUSE 0
INPUT	2 8 "LOGON"
IFNOT	TIMEOUT GOTO S3
ABORT	"^^No 'logon' response - Contact Computer Services^^"
!
LABEL S3
TYPE	"Logging in...^"
SEND	"xxxxx^"
INPUT	2 4 "PASSWORD"
IFNOT	TIMEOUT GOTO S4
ABORT	"^^No 'password' response - Contact Computer Services^^"
!
LABEL S4
SEND	"ppppp^"
INPUT	1 4 "ppppp"
SET	VIEW
TYPE	"Connected to Dialog^"
CONNECT