!
@ANSWER
@HANGUP
EXIT 0
!
@ORIGINATE
!
CHRDELAY 1
!
PAUSE 2
WRITE "\13"
PAUSE 2
WRITE "\13"
!
MATCHCLR
MATCHSTR 1 11 " username> "
MATCHREAD 300
WRITE "\13"
!
@LABEL 10
MATCHCLR
MATCHSTR 1 11 " username> "
MATCHREAD 300
NOTE "Connect script couldn't match \34 username> \34" 3
JUMP 99
!
@LABEL 11
IFSTR 11 12 "<Guest>"
IFSTR 11 12 ""
PAUSE 1
WRITE "^u\13"
JUMP 13
!
@LABEL 12
ASK 0 "Please enter name: "
WRITE "^*\13"
!
@LABEL 13
MATCHCLR
MATCHSTR 1 14 " password>"
MATCHREAD 300
NOTE "Connect script couldn't match \34 password>\34" 3
JUMP 99
!
@LABEL 14
IFSTR 12 15 ""
PAUSE 1
WRITE "^p\13"
JUMP 16
!
@LABEL 15
ASK 1 "Please enter password: "
WRITE "^*\13"
!
@LABEL 16
MATCHCLR
MATCHSTR 1 17 "-OK> "
MATCHREAD 300
NOTE "Connect script couldn't match \34-OK> \34" 3
JUMP 99
!
@LABEL 17
PAUSE 1
WRITE "set port ppp charmap a0000\13"
!
@LABEL 18
MATCHCLR
MATCHSTR 1 19 "-OK> "
MATCHREAD 300
NOTE "Connect script couldn't match \34-OK> \34" 3
JUMP 99
!
@LABEL 19
PAUSE 1
WRITE "set port ppp enable\13"
!
@LABEL 90
PAUSE 1
EXIT 0
!
@LABEL 99
PAUSE 60
EXIT -6002 "Connection script failed."