home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / boyan1.zip / PURSUIT.BSC < prev    next >
Text File  |  1989-02-01  |  6KB  |  108 lines
  1. \\ PURSUIT 4.0 for use with BOYAN 4.0.
  2. \\ Completely automate PC-Pursuit logons!
  3. \\ Please read Appendix B of the BOYAN documentation for instructions.
  4.  
  5.  
  6. \\ The following 3 lines run if you use <Alt-R> to "Run" the PURSUIT script.
  7. \CA-[\DM[No carrier - PURSUIT script aborted.]\AB] \\ abort if no carrier.
  8. @{~~~D{                     \\ disconnects from previous city node
  9. \GB[GO]                     \\ skips LOGON block
  10.  
  11.  
  12. |LOGON                      \\ this block runs when you first reach Telenet
  13. \ST[Logging into PC-Pursuit...] \\ display a status message
  14. ~~~~                        \\ 2-second pause
  15. \IE+%MS,2400[@|{]           \\ if modem speed=2400, send "@" else send <CR>
  16. ~D~{                        \\ send "D" to reach Terminal= prompt
  17. \WF[TERMINAL=]D1{           \\ respond to prompt with  D1 <CR>
  18. \MV0[115]                   \\ Place shortcut macro #115 into %V0
  19. \II+PCP,%V0[\GB[SaveMacs]]  \\ If "PCP" is there, then go get started!
  20. \AL2[0]                     \\ Otherwise sound a brief alarm...
  21. \WP[1]                      \\ Wait for input to pause for 1 second.
  22. \DM23[  BOYAN can't find your PC-Pursuit ID and password.   ]\\ display
  23. \DM24[Please enter them now, or press <ESC> to abort script.]\\ message
  24. \KO[60]                     \\ Give user 60 seconds to respond to prompt
  25. \KV0`PCPxxxxx,yyyyzzzz[Your codes: ]
  26. \IV0+PCPxxxxx,yyyyzzzz[\AB] \\ Abort script if user didn't change default!
  27.                             \\ Otherwise save codes in macro # 115.  These
  28. \SM115[%V0]                 \\ will be "remembered" for all future logons.
  29. \GB[SaveMacs]
  30.  
  31.  
  32. |SaveMacs    \\      Save dialing and auto-macros:
  33. \MV5[1]      \\ save macro 1 (dial prefix) in variable 5
  34. \MV6[2]      \\ save macro 2 (dial suffix) in variable 6
  35. \MV7[7]      \\ save macro 7 (after disconnect) in variable 7
  36. \MV8[6]      \\ save macro 6 (after connect) in variable 8
  37. \SV9[%FD]    \\ store current .FON directory name in variable 9
  38. \SM7[\SC"[PURSUIT;Restore"]]
  39.              \\ instruct BOYAN to restore all these after disconnecting!
  40. \GB[GO]      \\ continue to "GO" block
  41.  
  42.  
  43. |GO
  44. \EC-\ZS                     \\ turn local ECho off and clear screen
  45. {                           \\ send <Return>
  46. \TO[5]\WF[@]                \\ wait 5 seconds for "@" prompt
  47. \IW-[\DM24[ No Telenet @ prompt found!.]\AB]    \\ abort if no "@" found.
  48. \WP[1]                      \\ wait for @'s to stop...
  49. \QC                         \\ clears the queue
  50. \FD[PURSUIT]                \\ switches to Pursuit city nodes FON directory
  51. \IE+%MS,1200[\BL[SetDial1200]]  \\ set city node dialing commands depending
  52. \IE+%MS,2400[\BL[SetDial2400]]  \\ on whether modem speed is 1200 or 2400
  53. \SM6[\SC"[PURSUIT;InitNode"]]\\means block "InitNode" will automatically run
  54.                             \\ ... as soon as you connect to a city node
  55. \CC-                        \\ don't Check for dialing despite Carrier
  56. \DM19[        Connected to PC-Pursuit!        ] \\ if "@" is found, then
  57. \DM20[        Ready to dial CITY nodes.       ] \\ display brief welcome
  58. \DM21[ <Alt-D>:  dial a city node directly    ] \\ message ...
  59. \DM22[ <Alt-Q>, <Return>:  add nodes to the   ]
  60. \DM23[        redialing queue to auto-redial  ]
  61. \DM24[ <Alt-H>:  hangup (quit PC-Pursuit)     ]
  62. \AB                                             \\ and abort the script!
  63.  
  64. |SetDial1200
  65. \SM1[\CS"[12"]C D/]  \\ sets 1200 baud dialing prefix = \CS[12]C D/
  66. \SM2[/12,\"%"{]      \\ sets 1200 baud dialing suffix = /12,\%{
  67.  
  68. |SetDial2400         \\ enables dialing of both 1200 and 2400 baud nodes
  69.                      \\ after connecting to Telenet at 2400 baud.
  70. \SM1[\SV0"["%MS"]\LV0"[2"]\SM2"[/"%V0,\"""%"""{"]\CS"[24"]C D/]
  71. \\ In effect, macro #1 rewrites macro #2 each time you dial a node!
  72. \\ (This is about as complicated as a macro can possibly be.)
  73.  
  74. |InitNode    \\ this block runs automatically after you connect to a city.
  75. \ZS          \\ Clear screen
  76. ~~ATZ{       \\ Initialize PC-Pursuit modem.
  77. \WP[1]       \\ Wait for input to pause
  78. \IF+MANUAL ANSWER[\WF[*]I{]        \\ send "I" to defeat bug in PC-Pursuit
  79. \IE+%MS,1200[\SM1[\CS"[12"]ATDT]]  \\ Set PC-Pursuit dialing prefix (1200)
  80. \IE+%MS,2400[\SM1[\CS"[24"]ATDT]]  \\ Set PC-Pursuit dialing prefix (2400)
  81. \SM2["{]                           \\ Set PC-Pursuit dialing suffix
  82. \FE+`%F:%SF.FON`[\FD[%SF.FON]|\FD[%V9]]  \\ Load your new .FON directory.
  83.              \\ For example, if node (%SF) is ILCHI, then load ILCHI.FON.
  84. \DM20[        Connected to %SF Node!        ]
  85. \DM21[      Ready to dial LOCAL numbers.      ] \\ display brief help
  86. \DM22[ <Alt-D>:  normal local dialing         ] \\ message ...
  87. \DM23[ <Alt-Q>:  redialing within this node   ]
  88. \DM24[ <Alt-R>,<Return>: SELECT NEW CITY NODE ]
  89. \QC          \\ Clears queue;
  90. \SM6[%V8]    \\ Resets your "after connect" macro to normal.
  91.  
  92.  
  93. |Restore     \\ this block runs automatically after you disconnect entirely
  94. \SM1[%V5]    \\ from PC-Pursuit.  It resets your dialing macros and phone
  95. \SM2[%V6]    \\ directory to what they were before you started PC-Pursuing.
  96. \SM7[%V7]
  97. \SM6[%V8]
  98. \FD[%V9]
  99. \QC\CC+      \\ Finally, the queue is cleared and Carrier Checking is ON.
  100. \DM19[                                        ]
  101. \DM20[      ┌──────────────────────────┐      ] \\ display
  102. \DM21[      │ PC-Pursuit disconnected. │      ] \\ message ...
  103. \DM22[      └──────────────────────────┘      ]
  104. \DM23[                                        ]
  105. \DM24[                                        ]
  106. \MA[7]       \\ The new (restored) auto-macro #7 is run.
  107.              \\ All set to do normal local dialing again!
  108.