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