(Continued from previous message)
Delay    50
Note (5) sec. DELAY - Input required or AutoLogOff!!
Note You MUST abort this script to continue with other
Note tasks on $BOARD.     If not aborted, this script
Note will hang up in 5 seconds.
Note
Pause 5000
Note
Note You snooze, you lose, dude!
Note
Note Executing Automatic logoff procedure.
Note Disconnecting from $BOARD at $TIME on $DATE.
EXITSYSTEM:
When
When     "logoff"    "Y^M"
Send     "G^M"                      ; Send Hangup Command
Timeout 10 HANG_UP
Waitfor "NO CARRIER"
If $ONLINE HANG_UP
Pause 2000
Goto END_RUN
HANG_UP:
Hangup
Pause 3000
If $OFFLINE END_RUN
Note Failure to execute HANGUP sequence correctly.
Goto END_SCRIPT
END_RUN:
EXIST $QWKPATH$PACKET.QWK RUN_OLX
EXIST $MailBag RUN_OLX
Goto END_SCRIPT
RUN_OLX:
Fkey AF12
END_SCRIPT:
Exit                                ; Script Is Done.
;-------------------------- Let's upload the replies --------------------
UPLOADMAIL:                         ; Label For Upload Routine
Waitfor  "command:"                 ; TomCat!'s Main Menu
Note Uploading $PACKET.REP
Timeout  30                         ; Reset Timeout Value
Delay    500
Send     "U^M"                      ; Tell It To [D]ownload Mail
Delay 1000                          ; Pause
UPLOAD Z $REPPATH$PACKET.REP        ; Upload .REP Packet
IF $FAIL UPLOADMAIL                 ; If Unsucessful, try again
DELETEF $REPPATH$PACKET.REP         ; Delete .REP Packet
GOTO UPFINISHED                     ; Go on to next section
;------------------------ Call for the download of the packet --------
DOWNLOADMAIL:                       ; Download QWK Routine
Timeout  5000                       ; Timeout Value For Getting Messages
When
When "Nothing" DOWNFINISHED
When "NO CARRIER" END_SCRIPT
Waitfor  "command:"                 ; TomCat!'s Main Menu
Note Downloading $PACKET.QWK
Delay    500
Send     "D^M"                      ; Tell It To [D]ownload Mail
Waitfor  "this packet"              ; String To Start Download
Delay    500
Send     "Y^M"                      ; Send Yes To Download Packet
When
When "Insufficient time" EXITSYSTEM
When "NO CARRIER" END_SCRIPT
Waitfor  "Start"                    ;
Delay    100                        ;
Download Z $QWKPATH                 ; Download The .QWK Packet
Timeout 30
IF $FAIL DOWNLOADSECTION            ; If Not Successful Try Again
GOTO DOWNFINISHED                   ; Successful, Goto DOWNFINISHED
---
 * QMPro 1.53 * Hey Obe Won! Got any more of that Jell-O in the 'fridge?
--- WILDMAIL!/WC v4.12 
---------------