(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
---------------
* Origin: The Lakeside Connection! Lakeside, California (1:202/1317.0)
|