home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
n
/
nenet107.zip
/
EAGLE.SCR
< prev
next >
Wrap
Text File
|
1992-09-05
|
6KB
|
137 lines
; SAMPLE SCRIPT FOR NE-Net, *.QWK, Qmodem
; This script has to be modified with your paths, etc
; Note: 401-732-5290 Compucom 9600 or 2400MNP, 5295 v32b/HST, 5298 HST/v32bis
; Hub is closed 4-6am for netmail transfers
TurnOn 8_BIT SCROLL
TurnOff LINEFEED XON/XOFF NOISE MUSIC PRINT ECHO
String QWKFILE REPFILE QWKPATH REPPATH ATTEMPTS ; Definitions which need to
String NAME XFER UDONE DDONE DOOR ; be replaced with your
; pertinant data below!
Assign ATTEMPTS 3 ; Number of dialing attempts
Assign QWKFILE EAGLE.QWK ; Name of the .QWK file
Assign QWKPATH d:\COMM ; Location of your .QWK file
Assign REPFILE EAGLE.REP ; Name of the .REP file
Assign REPPATH d:\COMM ; Location of your .REP file
Assign NAME "SAMPLE BBS Password" ; Your BBS Name and Password on BBS
Assign DOOR "QMAIL4 D;Y;U;G" ; Open QMail 4.0 and send parameters
Assign XFER Z ; Protocol to transfer with
Assign UDONE N ; Upload done?
Assign DDONE N ; Download done?
DOS "DEL C:\NE_LAST"
CAPTURE C:\NE_LAST ; Turn capture on
Restart: ; Go here if the connection gets broken...
If $ONLINE SkipD ; Skip the dial if already online
Loop0:
If "$ATTEMPTS" = "0" EndGame ; If we've dialed this many times let's quit
Decr ATTEMPTS ; Decrement the number of dialing attempts
TimeOut 30 Loop$ATTEMPTS ; Set the timeout to 30 seconds
Send "ATM0DT1-401-732-5290^M" ; Dial the number
WaitFor "CONNECT" ; Wait for the timeout amount until connected
If $ONLINE SkipD ; If already online then goto SkipD
Loop2:
Decr ATTEMPTS ; Decrement the number of dialing attempts
TimeOut 30 Loop$ATTEMPTS ; Set the timeout to 30 seconds
Send "ATDT 1-401-732-5290^M" ; Dial the number
WaitFor "CONNECT" ; Wait for the timeout amount until connected
If $ONLINE SkipD ; If already online then goto SkipD
Loop1:
Decr ATTEMPTS ; Decrement the number of dialing attempts
TimeOut 30 Loop$ATTEMPTS ; Set the timeout to 30 seconds
Send "ATDT 1-401-732-5295^M" ; Dial the ALTERNATE number for final try
WaitFor "CONNECT" ; Wait for the timeout amount until connected
If $ONLINE SkipD ; If already online then goto SkipD
SkipD:
TimeOut 200 QQ ; Set Waitfor timeout to 200 seconds.
Goto TOP ; Jump to the start of the main body.
QQ: ; Something timed out
If $OffLine Restart ; are we offline? If so, restart script
Send "^M" ; Send a <CR> in case prompt disappeared
If "$DDONE" = "N" DownSection ; Go do Download again
If "$UDONE" = "N" DoRepsNow ; Go do Upload again
Goto EndGame ; Both xfers were ok but we
; didn't get offline yet
TOP: ; Main Body of the QMail Script
; answers to prompts
When
When "Press (Enter) to continue?" "n^M"
When "graphics (Enter)=no?" "Y Q NS Mail Script in Progress^M"
When "What is your first name?" "$NAME^M"
When "messages since" "N^M"
When "'Last Read' (Enter)=yes?" "N^M"
When "Conference members (Enter)=no?" "N^M"
When "More (Y), (N), (NS)" "N^M"
When "Enter Language #" "2^M"
When "(H)elp, More?" "N^M"
When "correct? (Y)" "Y^M"
When "NO CARRIER" Restart ;(a Goto Label)
Waitfor "Command?" ; Waitfor the Enest prompt and then
Delay 100 ; send the command to open the Qmail door
Send "OPEN $DOOR^M"
DownSection:
When ; Begin the download or goto either
When "<AUTOSTART>" "^M" ; the beginning because we got
When "NO CARRIER" Restart ; disconnected or goto
When "<NO TRANSFER>" DoRepsNow ; the REP section because there's no
When "<DLASK>" "Y^M" ; mail or goto download incoming mail
Waitfor "<DOWNLOAD>" ; Wait for the dl prompt and begin
Delay 100 ; downloading our mail
Downld $XFER $QWKPATH$QWKFILE
If $SUCCESS SuccessDown ; If we get a dl then continue
Goto DownSection ; otherwise try again
SuccessDown:
Assign DDONE Y ; Download was successful
Goto DoRepsNow ; Go send the replies
DoRepsNow:
When
When "NO CARRIER" Restart ; Try again because we got disconnected
Exist $REPPATH$REPFILE SendEm ; otherwise goto send the replies
Goto AllDone ; We finished...let's BOOGIE!
SendEm: ; there are replies to send!
TimeOut 20 UpEm ; If we timeout let's try to upload
Waitfor "<DL SUCCESS>" ; again and wait for acknowledgement
Pause 1000
UpEm:
When
When "<COMMAND>" "U^M" ; Send the upload command and
Upld $XFER $REPPATH$REPFILE ; begin the upload of replies
If $FAIL DoRepsNow ; If we fail goto try again
Assign UDONE Y ; If the Upload of REP is OK
goto AllDone ; let's get outta here!
AllDone:
pause 3000
DOS "COPY $REPPATH$REPFILE c:\" ; Let's make a copy of our reps
DOS "DEL $REPPATH$REPFILE" ; but move them so we don't upload
; them again (duplicates stink!)
Hangup ; Hangup the modem
goto EndGame ; and quit Qmodem
EndGame:
CAPTURE OFF ; Turn the capture off and
System Y ; Exit Qmodem
Exit ; End of Script