home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / T.ZIP / PCP.S24 < prev    next >
Encoding:
Text File  |  1988-06-02  |  1.4 KB  |  87 lines
  1. /* General-purpose PC-Pursuit dialing script for use with Opus 1.10 or later */
  2. /* Tries once at 2400 bps (if possible), and then once at 1200 bps           */
  3. /* This is an EXAMPLE script.  Modify it for your own needs                  */
  4.  
  5.  
  6. init
  7. baud
  8.  
  9. :telenet
  10. /* Insert your local Telenet access phone number into the next line */
  11. xmit ~~AT|~~ATS0=0X4DTtelenet|
  12. pattern 0 CONNECT
  13. pattern 1 RING
  14. pattern 2 TONE
  15. pattern 3 BUSY
  16. wait
  17. if 0 goahead
  18. goto end
  19.  
  20. :goahead
  21. xmit ~~~~~~|~D~|
  22. pattern 0 =
  23. pattern 1
  24. pattern 2
  25. pattern 3
  26. wait 10
  27. xmit D1|
  28. pattern 0 @
  29. wait 10
  30.  
  31. xmit C ~
  32. areacode
  33. xmit /
  34. speed
  35. /* Insert your PC-Pursuit username into the next line (ALL CAPS!!) */
  36. xmit ,USERNAME|
  37. pattern 0 =
  38. wait 10
  39. /* Insert your PC-Pursuit password into the next line (ALL CAPS!!) */
  40. xmit PASSWORD|
  41. pattern 0 CONNECTED
  42. pattern 1 BUSY
  43. wait 20
  44. if 0 gotit
  45. if bps1200 giveup
  46. if bps300 giveup
  47. xmit HANGUP|~~v~^
  48. baud 1200
  49. goto telenet
  50.  
  51. :gotit
  52. xmit ~~|~~I|~~ATZ|
  53. pattern 0 OK
  54. pattern 1
  55. wait 10
  56. xmit |@|
  57. pattern 0 @
  58. wait 10
  59. xmit SET 1:0|
  60. wait 10
  61. xmit CONT|~~ATZ|
  62. pattern 0 OK
  63. wait 10
  64. /* Next line should equal "xmit ^E|" / "xmit \005|" / "xmit "+chr$(5)+"|" */
  65. xmit |
  66. pattern 0 *
  67. wait 10
  68.  
  69. xmit D
  70. phone
  71. xmit |
  72. pattern 0 LINE
  73. pattern 1 BUSY
  74. pattern 2 FAILED
  75. wait
  76. if 1 giveup
  77. if 2 giveup
  78.  
  79. xmit ~~  ||
  80. pattern 0 name:
  81. pattern 1 Sea
  82. pattern 2 SEA
  83. pattern 3 later.
  84. wait
  85. xmit ~~~~
  86. session
  87.