ALAN,
#5 ....Used to perform mailrun's on Markmail BBS systems
Rick
; This script is designed to logon to a BBS using the MarkMail door, enter
; MarkMail, download a mail packet and then upload any waiting reply packets.
; Since PC-Board systems can change the name of the MarkMail door (i.e One
; BBS may call it MM and another MarkM) a string has been added to the
; beginning of the script called MailDoor, before you run the script be sure
; to enter the name of the MarkMail Door in the Quotes. In the example
; you will note that the name MM is used followed by ^M for pressing
; ENTER. Leave the ^M for enter in your quoted string!
;
; For proper operation you must have entered your name and password in
; the QmodemPro phonebook entry.
TurnON   8_BIT                      ; These Are Our Terminal Settings
TurnOFF  LINEFEED                   ; For This Session
TurnOFF  XON/XOFF
TurnON   NOISE
TurnOFF  MUSIC
TurnON   SCROLL
TurnOFF  PRINT
TurnOFF  SPLIT
TurnON   STATUSLN
TurnOFF  DOORWAY
STRING   MailDoor
                                   ; *****************************
Assign   MailDoor  "MM^M"          ; The Name Of The MarkMail Door
                                   ; Replace the MM and leave the ^M
TimeOut  45
When     "Languages Avail" "1^M"    ; This is For PC-Boards That Support
                                    ; Multi Languages, 1 Should Be The
                                    ; English Default.
When     "this correct" "Y^M"       ; In Case It Verifies Your UserName
When     "More?" "n^M"              ; In Case Of More? Prompts
When     "(Enter)" "^M"             ; In Case Of Enter To Continue Prompts
When     "graphics (" "Y^M"         ; In Case Of Graphics Prompts
When     "Protocol Type" "Z^M"      ; MarkMail's Protocol Prompt
WaitFor  "first name"
Delay    100
Send     "$USERID^M"
Waitfor  "Password"
Delay    100
Send     "$PASSWORD^M"
WaitFor  "Board Command"
Delay    100
Send     "$MailDoor"
WaitFor  "MarkMail Command?"
If $GETMAIL DOWNLOADMAIL         ; If flag to get mail set, goto dl section
DOWNFINISHED:                    ; Label for finished download
IF $SENDMAIL UPLOADMAIL          ; If flag to send set, goto ul section
UPSUCCESS:                       ; label for finished upload
TimeOut  30 EXITSYSTEM
DELETEF  $REPPATH$PACKET.REP
WaitFor  "MarkMail Command?"
Delay    100
Send     "G^M"
Exit                             ; End of script after dl & ul
UPLOADMAIL:                      ; Upload REP section
TimeOut  60
Delay    100
Send     "U^M"
WaitFor  "Aborts Transfer"
Delay    500
UPLOAD Z $REPPATH$PACKET.REP
IF $SUCCESS UPSUCCESS               ; If upload successful, goto label
GOTO UPLOADMAIL                     ; If NOT successful, do it again
                                    ; Download QWK section
DOWNLOADMAIL:
When     "no messages" DOWNFINISHED
TimeOut  500
Delay    100
Send     "D^M"
WaitFor  "Receive this"
Delay    100
Send     "Y^M"
WaitFor  "Aborts Transfer"
(Continued to next message)
---
 * QMPro 1.53 * I came. I saw. I charged it to my Ex-Wife's account.
--- WILDMAIL!/WC v4.12 
---------------