TIP: Click on subject to list as thread! ANSI
echo: qmodem_user
to: ALLEN HANEY
from: FRED JOHNSON
date: 1996-03-19 14:46:00
subject: Qmodem Pro Script

AH>That is the one thing I don't understand Larry. We have two applications
AH>which in are separately configurable..What I have been trying to do is
AH>separate misc. compressed downloads from my offline packets..It just
AH>seems like a less confusing way to handle it..I really cannot understand
AH>why two non-seamless applications should have directory options which
AH>be separate, independent functions and they aren't..:) I guess that is
AH>really my frustration as I have lived with the status quo for some time.
AH>I just got a notion to try and change that, so far no luck...I have
AH>improved one function in that I now upload *.rep from \qmpro\upload.
AH>Now I'm trying my best to et zips to to one directory and QWK to go
AH>to another..Me thinks I joust with windmills..
   Allen, if this help you, let me know.
    This Script writen for a PC Board BBS.  You'll need to EDIT, it to
  for the BBS you're calling...
__________________________________________________________________________
;This is Script Qmodem Pro for DOS v.1.5x
;    ";" = REM,
;*  When = Every time the Script sees the data in the first set of quoits,
;          it sends the data in the last set.
;*****  BEFORE USE THE SCRIPT, DO THE FOLLOWING:   ***********
;   *  Put your name or alias into the USERID box.
;   *  Put your password into the PASSWORD box.
;   *  Put the "name of packet from the BBS" into the PACKET box.
TimeOut  240       ; Set Waitfor for 240 sec. or 4 min.
When     "What is your first name?" "$USERID^M"
When     "Password (Dots will echo)?" "$PASSWORD^M"
When     "Press (Enter) to continue?" "^M"
When     "(H)elp, More?" "N^M"
Waitfor  "Message Base Since `Last Read' (Enter)=yes?"
Delay    100
Send     "N^M"
IF $SENDMAIL UPLOADMAIL    ; Qmodem checks for reply mail, if so, Uploads
UPFINISHED:                ; it.  The ONLY when there mail to upload, these
                           ; two lines will do anything
_______________________
WAITFOR "Aborts Transfer"
Delay    100
DOWNLOAD Z C:\MAIL\$PACKET.QWK ; This line will send your mail to "C:\MAIL"
                               ;     -- You can change it to any DIR
_______________________
****  Put from "UPLOADMAIL:" down at the end of your Script.
_______________________
UPLOADMAIL:                    ; If you don't have reply mail to Uploads,
Waitfor  "Main Board Command?" ;  the script will not carry out anything
Delay    100                   ;  below  "UPLOADMAIL:".
Send     "QWK U^M"
WAITFOR "Aborts Transfer"
UPLOAD Z $REPPATH$PACKET.REP ; Uploads the packet in Qmodem's "PACKET" box.
IF $SUCCESS UPSUCCESS        ; Line checks to see if upload was OK.
GOTO UPLOADMAIL         ; Line uploads packet again if it was a bad upload.
UPSUCCESS:
TimeOut  240 EXITSYSTEM
DELETEF  $REPPATH$PACKET.REP ; Line Deletes reply mail after a successful
GOTO UPFINISHED              ; Upload.  And return to "UPFINISHED:" and
                             ; finsh the rest of the Script.
__________________________________________________________________________
    I hope this will help you.
                                  Later...
                                           Fred
 * SLMR 2.1 * Whoever thought up Non-Alcohol beer was way too drunk!
--- PCBoard (R) v15.22/M 2
---------------
* Origin: The French Quarter 504-891-1388 Fido:1:396/44 (1:396/44)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.