home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / T.ZIP / PCP.S12 < prev    next >
Encoding:
Text File  |  1988-06-02  |  1.4 KB  |  97 lines
  1. /* 1200/2400 Baud PC-Pursuit dialing script for Opus 1.10 or Binkley 1.50 */
  2. /* This is an EXAMPLE script.  There is no SUGGESTION that it will work   */
  3. /* in any real situation.  */
  4.  
  5.  
  6. /* Delete INIT for Binkley */
  7. INIT
  8. BAUD
  9.  
  10. /* Insert your local Telenet access phone number into the next line */
  11.  
  12. Xmit ATS0=0X4DTTelenetPhone|
  13. pattern 0 1200
  14. pattern 1 2400
  15. pattern 2 RING
  16. pattern 3 BUSY
  17. pattern 4 NO
  18. wait 30
  19. if 0 go1200
  20. if 1 go2400
  21. goto end
  22.  
  23. :go1200
  24. baud 1200
  25. xmit ~|~D~|
  26. pattern 0 =
  27. pattern 1
  28. pattern 2
  29. pattern 3
  30. pattern 4
  31. wait 10
  32. xmit D1|
  33. pattern 0 @
  34. wait 10
  35.  
  36. xmit C ~
  37. areacode
  38. xmit /12
  39. goto common
  40.  
  41. :go2400
  42. baud 2400
  43. xmit ~~~~@~~~~D~~~~|
  44. pattern 0 =
  45. pattern 1
  46. pattern 2
  47. pattern 3
  48. pattern 4
  49. wait 10
  50. xmit D1|
  51. pattern 0 @
  52. wait 10
  53.  
  54. xmit C ~
  55. areacode
  56. xmit /24
  57.  
  58. :common
  59. /* Insert your PC-Pursuit username and password in next line (ALL CAPS!!) */
  60. xmit ,USERNAME,PASSWORD|
  61. pattern 0 CONNECTED
  62. pattern 1 @
  63. wait 20
  64. if 1 giveup
  65.  
  66. xmit ~~|~~I|~~ATZ|
  67. pattern 0 OK
  68. pattern 1
  69. wait 10
  70. xmit |@|
  71. pattern 0 @
  72. wait 10
  73. xmit SET 1:0|
  74. wait 10
  75. xmit CONT|~~ATZ|
  76. pattern 0 OK
  77. wait 10
  78. /* Next line should equal "xmit ^E|" / "xmit \005|" / "xmit "+chr$(5)+"|" */
  79. xmit |
  80. pattern 0 *
  81. wait 10
  82.  
  83. xmit D
  84. phone
  85. xmit |
  86. pattern 0 LINE
  87. pattern 1 *
  88. wait 30
  89. if 1 giveup
  90.  
  91. session
  92. goto exit
  93.  
  94. :giveup
  95. xmit @|~~~~Hangup|
  96. :exit
  97.