home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
comm
/
boyan1.zip
/
PURSUIT.BSC
< prev
next >
Wrap
Text File
|
1989-02-01
|
6KB
|
108 lines
\\ PURSUIT 4.0 for use with BOYAN 4.0.
\\ Completely automate PC-Pursuit logons!
\\ Please read Appendix B of the BOYAN documentation for instructions.
\\ The following 3 lines run if you use <Alt-R> to "Run" the PURSUIT script.
\CA-[\DM[No carrier - PURSUIT script aborted.]\AB] \\ abort if no carrier.
@{~~~D{ \\ disconnects from previous city node
\GB[GO] \\ skips LOGON block
|LOGON \\ this block runs when you first reach Telenet
\ST[Logging into PC-Pursuit...] \\ display a status message
~~~~ \\ 2-second pause
\IE+%MS,2400[@|{] \\ if modem speed=2400, send "@" else send <CR>
~D~{ \\ send "D" to reach Terminal= prompt
\WF[TERMINAL=]D1{ \\ respond to prompt with D1 <CR>
\MV0[115] \\ Place shortcut macro #115 into %V0
\II+PCP,%V0[\GB[SaveMacs]] \\ If "PCP" is there, then go get started!
\AL2[0] \\ Otherwise sound a brief alarm...
\WP[1] \\ Wait for input to pause for 1 second.
\DM23[ BOYAN can't find your PC-Pursuit ID and password. ]\\ display
\DM24[Please enter them now, or press <ESC> to abort script.]\\ message
\KO[60] \\ Give user 60 seconds to respond to prompt
\KV0`PCPxxxxx,yyyyzzzz[Your codes: ]
\IV0+PCPxxxxx,yyyyzzzz[\AB] \\ Abort script if user didn't change default!
\\ Otherwise save codes in macro # 115. These
\SM115[%V0] \\ will be "remembered" for all future logons.
\GB[SaveMacs]
|SaveMacs \\ Save dialing and auto-macros:
\MV5[1] \\ save macro 1 (dial prefix) in variable 5
\MV6[2] \\ save macro 2 (dial suffix) in variable 6
\MV7[7] \\ save macro 7 (after disconnect) in variable 7
\MV8[6] \\ save macro 6 (after connect) in variable 8
\SV9[%FD] \\ store current .FON directory name in variable 9
\SM7[\SC"[PURSUIT;Restore"]]
\\ instruct BOYAN to restore all these after disconnecting!
\GB[GO] \\ continue to "GO" block
|GO
\EC-\ZS \\ turn local ECho off and clear screen
{ \\ send <Return>
\TO[5]\WF[@] \\ wait 5 seconds for "@" prompt
\IW-[\DM24[ No Telenet @ prompt found!.]\AB] \\ abort if no "@" found.
\WP[1] \\ wait for @'s to stop...
\QC \\ clears the queue
\FD[PURSUIT] \\ switches to Pursuit city nodes FON directory
\IE+%MS,1200[\BL[SetDial1200]] \\ set city node dialing commands depending
\IE+%MS,2400[\BL[SetDial2400]] \\ on whether modem speed is 1200 or 2400
\SM6[\SC"[PURSUIT;InitNode"]]\\means block "InitNode" will automatically run
\\ ... as soon as you connect to a city node
\CC- \\ don't Check for dialing despite Carrier
\DM19[ Connected to PC-Pursuit! ] \\ if "@" is found, then
\DM20[ Ready to dial CITY nodes. ] \\ display brief welcome
\DM21[ <Alt-D>: dial a city node directly ] \\ message ...
\DM22[ <Alt-Q>, <Return>: add nodes to the ]
\DM23[ redialing queue to auto-redial ]
\DM24[ <Alt-H>: hangup (quit PC-Pursuit) ]
\AB \\ and abort the script!
|SetDial1200
\SM1[\CS"[12"]C D/] \\ sets 1200 baud dialing prefix = \CS[12]C D/
\SM2[/12,\"%"{] \\ sets 1200 baud dialing suffix = /12,\%{
|SetDial2400 \\ enables dialing of both 1200 and 2400 baud nodes
\\ after connecting to Telenet at 2400 baud.
\SM1[\SV0"["%MS"]\LV0"[2"]\SM2"[/"%V0,\"""%"""{"]\CS"[24"]C D/]
\\ In effect, macro #1 rewrites macro #2 each time you dial a node!
\\ (This is about as complicated as a macro can possibly be.)
|InitNode \\ this block runs automatically after you connect to a city.
\ZS \\ Clear screen
~~ATZ{ \\ Initialize PC-Pursuit modem.
\WP[1] \\ Wait for input to pause
\IF+MANUAL ANSWER[\WF[*]I{] \\ send "I" to defeat bug in PC-Pursuit
\IE+%MS,1200[\SM1[\CS"[12"]ATDT]] \\ Set PC-Pursuit dialing prefix (1200)
\IE+%MS,2400[\SM1[\CS"[24"]ATDT]] \\ Set PC-Pursuit dialing prefix (2400)
\SM2["{] \\ Set PC-Pursuit dialing suffix
\FE+`%F:%SF.FON`[\FD[%SF.FON]|\FD[%V9]] \\ Load your new .FON directory.
\\ For example, if node (%SF) is ILCHI, then load ILCHI.FON.
\DM20[ Connected to %SF Node! ]
\DM21[ Ready to dial LOCAL numbers. ] \\ display brief help
\DM22[ <Alt-D>: normal local dialing ] \\ message ...
\DM23[ <Alt-Q>: redialing within this node ]
\DM24[ <Alt-R>,<Return>: SELECT NEW CITY NODE ]
\QC \\ Clears queue;
\SM6[%V8] \\ Resets your "after connect" macro to normal.
|Restore \\ this block runs automatically after you disconnect entirely
\SM1[%V5] \\ from PC-Pursuit. It resets your dialing macros and phone
\SM2[%V6] \\ directory to what they were before you started PC-Pursuing.
\SM7[%V7]
\SM6[%V8]
\FD[%V9]
\QC\CC+ \\ Finally, the queue is cleared and Carrier Checking is ON.
\DM19[ ]
\DM20[ ┌──────────────────────────┐ ] \\ display
\DM21[ │ PC-Pursuit disconnected. │ ] \\ message ...
\DM22[ └──────────────────────────┘ ]
\DM23[ ]
\DM24[ ]
\MA[7] \\ The new (restored) auto-macro #7 is run.
\\ All set to do normal local dialing again!