(Continued from previous message)
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
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           ALLDONE
SENDEM:
SEND           "U^M"
DELAY          100
WAITFOR        "Start"
PAUSE          1000
UPLOAD         $XFER $REPPATH$REPFILE
WHEN           "Transfer UNCESSFUL!"     UPSECTION
DOS            "DEL $REPPATH$REPFILE
GOTO           LEAVE                         ;Change to ALLDONE if
;                                             auto logoff is set to no
;--------------------------- Lets get out of Here ----------------------
LEAVE:                                       ;In case you have
WAITFOR        "Thank you for calling"       ;auto logoff set to
PAUSE          100                           ;yes
SEND           "ATZ^M^~^~^~^~^~^~ATH1M0^M"   ;
SYSTEM         Y                             ;
EXIT
ALLDONE:
SEND           "^M"
WAITFOR        "wcMAIL COMMAND"
DELAY          100
SEND           "G^M"
PAUSE          5000
GETOUT:
HANGUP
SEND           "ATZ^M^~^~^~^~^~^~ATH1M0^M"
SYSTEM         Y
EXIT
---
 * QMPro 1.53 * When I'm 70, I want to be named in a paternity suit.
--- WILDMAIL!/WC v4.12 
---------------