home *** CD-ROM | disk | FTP | other *** search
/ Everyones Internet / EV1NET.ISO / mac / DATA / 1025.scp < prev    next >
Encoding:
Text File  |  1997-12-18  |  1.1 KB  |  85 lines  |  [TEXT/ttxt]
  1. !
  2. @ANSWER
  3. @HANGUP
  4. EXIT 0
  5. !
  6. @ORIGINATE
  7. !
  8. CHRDELAY 1
  9. !
  10. @LABEL 10
  11. PAUSE 1
  12. WRITE "\13"
  13. !
  14. @LABEL 11
  15. MATCHCLR
  16. MATCHSTR 1 12 "annex: "
  17. MATCHREAD 300
  18. NOTE "Connect script couldn't match \34annex: \34" 3
  19. JUMP 99
  20. !
  21. @LABEL 12
  22. PAUSE 1
  23. WRITE "4\13"
  24. !
  25. @LABEL 13
  26. MATCHCLR
  27. MATCHSTR 1 14 "login: "
  28. MATCHREAD 300
  29. NOTE "Connect script couldn't match \34login: \34" 3
  30. JUMP 99
  31. !
  32. @LABEL 14
  33. IFSTR 11 15 "<Guest>"
  34. IFSTR 11 15 ""
  35. PAUSE 1
  36. WRITE "^u\13"
  37. JUMP 16
  38. !
  39. @LABEL 15
  40. ASK 0 "Please enter name: "
  41. WRITE "^*\13"
  42. !
  43. @LABEL 16
  44. MATCHCLR
  45. MATCHSTR 1 17 "Password: "
  46. MATCHREAD 300
  47. NOTE "Connect script couldn't match \34Password: \34" 3
  48. JUMP 99
  49. !
  50. @LABEL 17
  51. IFSTR 12 18 ""
  52. PAUSE 1
  53. WRITE "^p\13"
  54. JUMP 19
  55. !
  56. @LABEL 18
  57. ASK 1 "Please enter password: "
  58. WRITE "^*\13"
  59. !
  60. @LABEL 19
  61. MATCHCLR
  62. MATCHSTR 1 20 "Selection: "
  63. MATCHREAD 300
  64. NOTE "Connect script couldn't match \34Selection: \34" 3
  65. JUMP 99
  66. !
  67. @LABEL 20
  68. PAUSE 1
  69. WRITE "P\13"
  70. !
  71. @LABEL 21
  72. MATCHCLR
  73. MATCHSTR 1 90 " is "
  74. MATCHREAD 300
  75. NOTE "Connect script couldn't match \34 is \34" 3
  76. JUMP 99
  77. !
  78. @LABEL 90
  79. PAUSE 1
  80. EXIT 0
  81. !
  82. @LABEL 99
  83. PAUSE 60
  84. EXIT -6002 "Connection script failed."
  85.