--------------- FIDO MESSAGE AREA==> TOPIC: 248 QMODEM USER Ref: CCT00005 Date: 08/22/95 From: RICK PUMPHREY Time: 02:18am \/To: ALAN AYCOCK (Read 7 times) Subj: #5 - MARKMAIL.SCR 1/2 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 * Origin: The Lakeside Connection! Lakeside, California (1:202/1317.0) --------------- FIDO MESSAGE AREA==> TOPIC: 248 QMODEM USER Ref: CCT00006 Date: 08/22/95 From: RICK PUMPHREY Time: 02:18am \/To: ALAN AYCOCK (Read 7 times) Subj: #5 - MARKMAIL.SCR 2/2 (Continued from previous message) Delay 100 DOWNLOAD Z $QWKPATH IF $SUCCESS DOWNFINISHED ; If successful, goto label GOTO DOWNLOADMAIL ; If NOT successful, do it again --- * QMPro 1.53 * I came. I saw. I charged it to my Ex-Wife's account. --- WILDMAIL!/WC v4.12 * Origin: The Lakeside Connection! Lakeside, California (1:202/1317.0) --------------- FIDO MESSAGE AREA==> TOPIC: 248 QMODEM USER Ref: CCT00007 Date: 08/22/95 From: RICK PUMPHREY Time: 02:37am \/To: ALAN AYCOCK (Read 7 times) Subj: #6 - MSI-MAIL.SCR 1/2 ALAN, This mailrun script is used to logon to MSI BBS (Mustang Software) Rick **************************************************************************** ;This is a script to make unattended mail runs from a BBS thru a batch file ;using Q-Modem Pro. You will need to "customize" this script to suit your ;needs. I would not recommend setting the redial limit more than 10 attempts ;otherwise, you will get an error "TOO MANY WHEN'S". ; TURNON 8_BIT TURNOFF LINEFEED TURNOFF NOISE TURNOFF MUSIC TURNON SCROLL TURNOFF PRINT TURNOFF ECHO TURNOFF SPLIT TURNON STATUSLN TURNOFF DOORWAY STRING QWKFILE REPFILE QWKPATH REPPATH TELNUM LIMIT STRING INITIAL DOOR XFER NAME HOSTNAME ASSIGN HOSTNAME "MUSTANG SOFTWARE" ;The BBS you want to call ASSIGN QWKFILE MUSTANG.QWK ;The name of .QWK packet ASSIGN REPFILE MUSTANG.REP ;The name of the .REP packet ASSIGN QWKPATH C:\QWK\ ;Your .QWK download directory ASSIGN REPPATH C:\REP\ ;Your .REP upload directory ASSIGN DOOR T ;Maybe "T" for TomCat ASSIGN XFER Z ;Your download protocol ASSIGN NAME "NAME Password" ;Your Node name and password ASSIGN TELNUM "ATDT 1-805-873-2400^M";The BBS phone # you're calling ASSIGN LIMIT 7 ;# of times you want to re-dial ASSIGN INITIAL "AT&C1&D2E0^M" ;Your modem init. string SETCOMM 19200 8 NONE 1 ;---------------------------- Initialize the Modem ---------------------- INIT: SEND "ATH0^M" DELAY 1000 ASSIGN 0 $LIMIT CLRSCR DISPLAY "Initializing Modem ... " DELAY 1000 SEND "$INITIAL" WAITFOR "OK" ;----------------------------- Dial the Board --------------------------- GETON: WHEN "BUSY" AGAIN WHEN "NO CARRIER" AGAIN PAUSE 2000 DECR 0 IF "$0" < "1" GETOUT TIMEOUT 75 GETON CLRSCR DISPLAYLN "Attempting to connect with $HOSTNAME" DISPLAYLN "Dial attempts left are $0" DISPLAYLN "Dialing string: $TELNUM" DELAY 100 SEND "$TELNUM" WAITFOR "CONNECT" GOTO ONTHESYSTEM AGAIN: PAUSE 1000 SEND "ATH1^M" PAUSE 5000 GOTO GETON ;-------------------- We have connected to the System ------------------ ONTHESYSTEM: WHEN "first name" "*$NAME^M" WHEN "ontinue, [" "C^M" WHEN "view the bulletin menu" "N^M" WHEN "[ENTER] to continue" "^M" WHEN "NO CARRIER" GETOUT TIMEOUT 600 GETOUT SEND "^M" WAITFOR "MAIN MENU" DELAY 100 SEND "M^M" DELAY 100 SEND "^M" WAITFOR "MESSAGE MENU" DELAY 100 SEND "$DOOR^M" ;-------------------- Call for the Download of the Mail Packet --------- DOWNSECTION: DL: SEND "^M" WAITFOR "wcMAIL COMMAND" DELAY 100 SEND "D^M" WHEN "to download!" UPSECTION (Continued to next message) --- * QMPro 1.53 * When I'm 70, I want to be named in a paternity suit. --- WILDMAIL!/WC v4.12 * Origin: The Lakeside Connection! Lakeside, California (1:202/1317.0) --------------- FIDO MESSAGE AREA==> TOPIC: 248 QMODEM USER Ref: CCT00008 Date: 08/22/95 From: RICK PUMPHREY Time: 02:37am \/To: ALAN AYCOCK (Read 7 times) Subj: #6 - MSI-MAIL.SCR 2/2 (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 * Origin: The Lakeside Connection! Lakeside, California (1:202/1317.0)