home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
q
/
qscripts.zip
/
AUTO.SCR
next >
Wrap
Text File
|
1992-04-16
|
3KB
|
95 lines
;
;AUTO.SCR:
;This script will automate your mail run in conjunction with a linked
;script for each BBS whose number appears in the list below. You will need
;to edit this file to suit your particular BBS needs.
;
string DialCommand ; command to pass to Dial
string brd1 brd2 brd3 brd4 brd5 ; this example uses 5 boards
string entry1 entry2 entry3 entry4 entry5 ; number in the FON file
assign brd1 "NO" ; has the bbs been serviced?
assign brd2 "NO"
assign brd3 "NO"
assign brd4 "NO"
assign brd5 "NO"
assign entry1 "xxx-xxxx" ; BBS #1
assign entry2 "xxx-xxxx" ; BBS #2
assign entry3 "xxx-xxxx" ; BBS #3
assign entry4 "xxx-xxxx" ; BBS #4
assign entry5 "xxx-xxxx" ; BBS #5
;You can add more boards by following the examples above. Simply continue to
;add brd# and entry# strings.
TopOfLoop:
Assign DialCommand " " ; reset the dial command
Try5:
If "$brd5" <> "NO" Try4
Assign DialCommand "t$entry5 $DialCommand"
Try4:
If "$brd4" <> "NO" Try3
Assign DialCommand "t$entry4 $DialCommand"
Try3:
If "$brd3" <> "NO" Try2
Assign DialCommand "t$entry3 $DialCommand"
Try2:
If "$brd2" <> "NO" Try1
Assign DialCommand "t$entry2 $DialCommand"
Try1:
If "$brd1" <> "NO" TestCommand
Assign DialCommand "t$entry1 $DialCommand"
TestCommand:
If "$DialCommand" = " " AllDone
Dial "$DialCommand" ; tag the entries to dial
If "$NUMBER" = "$entry1" Mark1
If "$NUMBER" = "$entry2" Mark2
If "$NUMBER" = "$entry3" Mark3
If "$NUMBER" = "$entry4" Mark4
If "$NUMBER" = "$entry5" Mark5
Goto BigTimeError
Mark1:
Assign brd1 "YES"
Goto DoScript
Mark2:
Assign brd2 "YES"
Goto DoScript
Mark3:
Assign brd3 "YES"
Goto DoScript
Mark4:
Assign brd4 "YES"
Goto DoScript
Mark5:
Assign brd5 "YES"
Goto DoScript
BigTimeError:
Note Script aborted, or connected to an entry that was in error
Exit
DoScript:
Script $Script ; execute the script attached to the connected #
; Make SURE your scripts attached to the entries
; end with the command RETURN instead of EXIT!
Pause 3000 ; let the comm buffer drain
Goto TopOfLoop ; Done with this call, go back and start dialing!
AllDone:
Note All numbers have been called!
Exit