Category : Communication (modem) tools and utilities
Archive   : PRO-ROBO.ZIP
Filename : PROG-DOW.RS

TITLE "Programmers Get Qwk Packet"
; The numbers on the next lines don't actually do anything. They are
; only added to increase the readability of the script. Robocomm
; always numbers parameters in the order they are encountered in
; the file.

PARAMETER 1 "Enter 1st File Name/Number to GET"
PARAMETER 2 "Enter 2nd File Name/Number to GET"
PARAMETER 3 "Enter 3rd File Name/Number to GET"
PARAMETER 4 "Enter 4st File Name/Number to GET"
PARAMETER 5 "Enter 5th File Name/number to GET"
PARAMETER 6 "Enter 6th File Name/Number to GET"
PARAMETER 7 "Enter 7th File Name/Number to GET"
PARAMETER 8 "Enter 8th File Name/Number to GET"
PARAMETER 9 "Enter 9th File Name/Number to GET"
ENDPARAMS

TIMEOUT 120

IF NOT CONNECTED GOTO NotOn

WHEN "No, Continuous ]" Send "N"
WHEN "to continue" Send "|"
WHEN "Read Command" SEND "Q"
WHEN "Help ]" SEND "X|"
WHEN "Hold, Reply, Quit ]" SEND "Q"

; Send a bunch of to get through the other prompts
; without modifications

SEND "||"
WAITFOR "Main Command" FAILURE HANGUP
; Change to File Area
MESSAGE "Changing to File Area"
SEND "F"


Send "||"
WAITFOR "File Command"

; Getting File 1
:GetFile1
IF EMPTY "%P1%" GOTO GetFile2
Message "Initiating Download of %P1% "
Send "D"
Waitfor "to finish :"
Message "Requesting %P1% file"
IF NOT EMPTY "%P1%" SEND "%P1%|"
CLEAR
WHEN "name or number." GOTO NoFile1
SEND "|"
WAITFOR "Transfer, Quit]"
Message "Sending Enter To Start Download"
SEND "|"
Waitfor "Procedure Now."
Message "Starting Protocol"
Download "%DLDIR%%P1%" Using "%BBS20%"
IF ERRORLEVEL MESSAGE "Download of %P1% Failed with Protocol Error"
WAITFOR "File Command"
SEND "||"
GOTO GetFile2

:NoFile1
MESSAGE "File %P1% is not on board"
SEND "||"

:GetFile2
IF EMPTY "%P2%" GOTO GetFile3
Message "Initiating Download of %P2%"
SEND "D"
Waitfor "to finish :"
Message "Requesting %P2% file"
IF NOT EMPTY "%P2%" SEND "%P2%|"
CLEAR
WHEN "name or number." GOTO NoFile2
SEND "|"
WAITFOR "Transfer, Quit]"
Message "Sending Enter To Start Download"
SEND "|"
Waitfor "Procedure Now."
Message "Starting Protocol"
Download "%DLDIR%%P2%" Using "%BBS20%"
IF ERRORLEVEL MESSAGE "Download of %P2% Failed with Protocol Error"
WAITFOR "File Command"
SEND "||"
GOTO GetFile3

:NoFile2
MESSAGE "File %P2% is not on board"
SEND "||"

:GetFile3
IF EMPTY "%P3%" GOTO GetFile4
Message "Initiating Download of %P3%"
SEND "D"
Waitfor "to finish :"
Message "Requesting %P3% file"
IF NOT EMPTY "%P3%" SEND "%P3%|"
CLEAR
WHEN "name or number." GOTO NoFile3
SEND "|"
WAITFOR "Transfer, Quit]"
Message "Sending Enter To Start Download"
SEND "|"
Waitfor "Procedure Now."
Message "Starting Protocol"
Download "%DLDIR%%P3%" Using "%BBS20%"
IF ERRORLEVEL MESSAGE "Download of %P3% Failed with Protocol Error"
WAITFOR "File Command"
SEND "||"
GOTO GetFile4

:NoFile3
MESSAGE "File %P3% is not on board"
SEND "||"

:GetFile4
IF EMPTY "%P4%" GOTO GetFile5
Message "Initiating Download of %P4%"
SEND "D"
Waitfor "to finish :"
Message "Requesting %P4% file"
IF NOT EMPTY "%P4%" SEND "%P4%|"
CLEAR
WHEN "name or number." GOTO NoFile4
SEND "|"
WAITFOR "Transfer, Quit]"
Message "Sending Enter To Start Download"
SEND "|"
Waitfor "Procedure Now."
Message "Starting Protocol"
Download "%DLDIR%%P4%" Using "%BBS20%"
IF ERRORLEVEL MESSAGE "Download of %P4% Failed with Protocol Error"
WAITFOR "File Command"
SEND "||"
GOTO GetFile5

:NoFile4
MESSAGE "File %P4% is not on board"
SEND "||"

:GetFile5
IF EMPTY "%P5%" GOTO GetFile6
Message "Initiating Download of %P5%"
SEND "D"
Waitfor "to finish :"
Message "Requesting %P5% file"
IF NOT EMPTY "%P5%" SEND "%P5%|"
CLEAR
WHEN "name or number." GOTO NoFile5
SEND "|"
WAITFOR "Transfer, Quit]"
Message "Sending Enter To Start Download"
SEND "|"
Waitfor "Procedure Now."
Message "Starting Protocol"
Download "%DLDIR%%P5%" Using "%BBS20%"
IF ERRORLEVEL MESSAGE "Download of %P5% Failed with Protocol Error"
WAITFOR "File Command"
SEND "||"
GOTO GetFile6

:NoFile5
MESSAGE "File %P5% is not on board"
SEND "||"

:GetFile6
IF EMPTY "%P6%" GOTO GetFile7
Message "Initiating Download of %P6%"
SEND "D"
Waitfor "to finish :"
Message "Requesting %P6% file"
IF NOT EMPTY "%P6%" SEND "%P6%|"
CLEAR
WHEN "name or number." GOTO NoFile6
SEND "|"
WAITFOR "Transfer, Quit]"
Message "Sending Enter To Start Download"
SEND "|"
Waitfor "Procedure Now."
Message "Starting Protocol"
Download "%DLDIR%%P6%" Using "%BBS20%"
IF ERRORLEVEL MESSAGE "Download of %P6% Failed with Protocol Error"
WAITFOR "File Command"
SEND "||"
GOTO GetFile7

:NoFile6
MESSAGE "File %P6% is not on board"
SEND "||"

:GetFile7
IF EMPTY "%P7%" GOTO GetFile8
Message "Initiating Download of %P7%"
SEND "D"
Waitfor "to finish :"
Message "Requesting %P7% file"
IF NOT EMPTY "%P7%" SEND "%P7%|"
CLEAR
WHEN "name or number." GOTO NoFile7
SEND "|"
WAITFOR "Transfer, Quit]"
Message "Sending Enter To Start Download"
SEND "|"
Waitfor "Procedure Now."
Message "Starting Protocol"
Download "%DLDIR%%P7%" Using "%BBS20%"
IF ERRORLEVEL MESSAGE "Download of %P7% Failed with Protocol Error"
WAITFOR "File Command"
SEND "||"
GOTO GetFile8

:NoFile7
MESSAGE "File %P7% is not on board"
SEND "||"

:GetFile8
IF EMPTY "%P8%" GOTO GetFile9
Message "Initiating Download of %P8%"
SEND "D"
Waitfor "to finish :"
Message "Requesting %P8% file"
IF EMPTY "%P1%" GOTO GetFile9
IF NOT EMPTY "%P8%" SEND "%P8%|"
CLEAR
WHEN "name or number." GOTO NoFile8
SEND "|"
WAITFOR "Transfer, Quit]"
Message "Sending Enter To Start Download"
SEND "|"
Waitfor "Procedure Now."
Message "Starting Protocol"
Download "%DLDIR%%P8%" Using "%BBS20%"
IF ERRORLEVEL MESSAGE "Download of %P8% Failed with Protocol Error"
WAITFOR "File Command"
SEND "||"
GOTO GetFile9

:NoFile8
MESSAGE "File %P8% is not on board"
SEND "||"

:GetFile9
IF EMPTY "%P9%" GOTO GetFile10
Message "Initiating Download of %P9%"
SEND "D"
Waitfor "to finish :"
Message "Requesting %P9% file"
IF NOT EMPTY "%P9%" SEND "%P9%|"
CLEAR
WHEN "name or number." GOTO NoFile9
SEND "|"
WAITFOR "Transfer, Quit]"
Message "Sending Enter To Start Download"
SEND "|"
Waitfor "Procedure Now."
Message "Starting Protocol"
Download "%DLDIR%%P9%" Using "%BBS20%"
IF ERRORLEVEL MESSAGE "Download of %P9% Failed with Protocol Error"
WAITFOR "File Command"
SEND "||"
GOTO GetFile10

:NoFile9
MESSAGE "File %P9% is not on board"
SEND "||"

:GetFile10

SEND "|||"
WAITFOR "File Command"
SEND "Q"
Exit 0

:NotOn
Message "Make Sure SCript to Execute After Log On"
Message "is Set in BBs Systems"
Exit 1