(Continued from previous message)
GOTO           GETON
;-------------------- We have connected to the System ------------------
ONTHESYSTEM:
WAITFOR        "Press Escape"
Delay          300
Send           "^[^["
WAITFOR        "first name"
DELAY          100
SEND           "$NAME^M"
WHEN           "NO CARRIER"               GETOUT
TIMEOUT        100                        GETOUT
SEND           "^M"
;-------------------- Call for the Download of the Mail Packet ---------
DOWNSECTION:
DL:
DOS            "DEL $QWKPATH$QWKFILE
SEND           "^M"
WAITFOR        "wcMAIL command?"
DELAY          100
SEND           "D^M"
WHEN           "to download!"             UPSECTION
WHEN           "NO CARRIER"               GETOUT
WAITFOR        "oodbye when done"
DELAY          1000
SEND           "Y^M"
WHEN           "Insufficient time"        UPSECTION
WAITFOR        "Start"
DELAY          100
DOWNLOAD       $XFER $QWKPATH$QWKFILE
WHEN           "Transfer UNCESSFUL!"      DOWNSECTION
DELAY          200
;-------------------------- Lets Upload the Replies ---------------------
UPSECTION:
SEND           "^M"
WHEN           "NO CARRIER"               GETOUT
SEND           "^M"
WAITFOR        "wcMAIL command?"
DELAY          100
EXIST          $REPPATH$REPFILE           SENDEM
GOTO           GETOUT
SENDEM:
SEND           "U^M"
DELAY          100
WAITFOR        "Start"
PAUSE          1000
UPLOAD         $XFER $REPPATH$REPFILE
WHEN           "Transfer UNCESSFUL!"      UPSECTION
DOS            "DEL $REPPATH$REPFILE
GOTO           ALLDONE
;--------------------------- Lets get out of Here ----------------------
ALLDONE:
SEND           "^M"
WAITFOR        "wcMAIL command?"
GETOUT:
DELAY          500
SEND           "G^M"
PAUSE          100
SEND           "Y^M"
PAUSE          100
HANGUP
SEND           "ATZ^M^~^~^~^~^~^~ATH1M0^M"
SYSTEM         Y
EXIT
---
 * QMPro 1.53 * Humans: The species that should have never seen sheep.
--- WILDMAIL!/WC v4.12 
---------------