home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
FEMNET93.ZIP
/
QMPRO.FEM
< prev
Wrap
Text File
|
1993-01-02
|
6KB
|
176 lines
; Originally written for PCB systems [ Phil Gordemer of
; Compu-Data (609) 232-1245; Ray Novino of RunWay (215)623-6203 ]
; This script was re-written for use on Wildcat! 3.x based bbs systems.
; This script has been edited to work with the new WILDCAT! 3.5 version
; bbs software to cover the changes in the prompts used.
; Known locking problems have been fixed; if you have any problems or
; any questions contact Bill Dennison @ (215)788-4339 1:273/216
;
;
;
; FEATURES:
;
; 1. Will dial phone for a limited of times and giveup.
; 2. Assumes any stop of 5 minutes is a lockup and disconnects
; the phone.
; 3. Confirms messages were actually inserted and resends if needed.
; 4. Creates a capture file of entire session and dialing attempts.
; 5. If carrier is dropped, does NOT attempt to redial so as
; not to get involved in a loop of calling, dropping carrier
; and recalling for hours on end...
; 6. Will delete the .REP file after a successful upload.
; 7. Can handle pre-packed mail from the host
; 8. Resets modem and takes it off hook before returning to DOS
;
; This script assumes that you have your color selections turned OFF
; and that your screen size is set to 0 (always non-stop).
; One of the definitions is "DOOR" which is the command you use to access
; the TOMCAT mail door on the bbs. Please check this, as I have
; it currently set to "T" for TOMCAT (WC 3.5 default) but you may see it
; as "N" for "NETMAIL" or "D" for "DOWNLOAD"
; If at anytime carrier is dropped the script will just finish. In
; other scripts, we have had the script redial and try again only to be
; caught in an endless loop of redialing and getting dropped. Since a
; Capture file is created, you can review that and if you see a problem
; can manually dial in.
;
; Make sure you update the variables in the definitions section below
; which are defined between the lines marked with "########"
; ------------------------------------------------------------------------
; --------------------------- DEFINITIONS -------------------------
TurnOn 8_BIT
TurnOff LINEFEED
TurnOff XON/XOFF
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 "Lotu!" ; name of host system
Assign QWKFILE LOTU!.QWK ; name of QWK file
Assign REPFILE LOTU!.REP ; name of REP file
Assign QWKPATH D:\QMODEM\DOWNLOAD\ ; DRIVE:\PATH of QWK file
Assign REPPATH D:\QMODEM\DOWNLOAD\ ; DRIVE:\PATH of REP file
Assign DOOR D ; menu selection for Mail Door
Assign XFER Z ; Transfer Protocol
Assign NAME "LOGON BBS PASSWORD" ; My name & password
Assign TELNUM "ATDT 9149610398^M" ; dial string (ADD 1 IF REQUIRED)
Assign LIMIT 100 ; # of times to dial
Assign INITIAL "AT^M" ; Modem init string
SetComm 38400 8 NONE 1 ; Communications Parameters
Capture LOTU!.CAP ; Name of capture file
; ######################################################################
;---------------------------- Initialize the modem ----------------------
INIT:
Delay 1000
Assign 0 $LIMIT
ClrScr
Display "Initializing modem .. "
Delay 1000
Send "$INITIAL"
Waitfor "OK"
;----------------------------- Dial the Board ---------------------------
GETON:
When
When "BUSY" AGAIN
When "NO DIAL TONE" 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 9000
goto GETON
;-------------------- We have connected to the system ---------------------
ONTHESYSTEM:
WHEN "[N]onStop?" "N^M"
when "won't mind." "^M"
WHEN "What is your first name" "!$NAME^M^M"
WHEN "ontinue" "C^M"
WHEN "Would you like to view" "N^M"
When "NO CARRIER" GETOUT
timeout 1500 GETOUT
;------------------------ Call for the download of the packet ----------------
DOWNSECTION:
DL:
Waitfor "TOMCAT MENU"
Delay 100
Send "D^M"
When
When "to download!" UPSECTION
When "NO CARRIER" GETOUT
Waitfor "oodbye when done"
Delay 1000
Send "Y^M"
When
When "Insufficient time" UPSECTION
Waitfor "Start"
Delay 100
Download $XFER $QWKPATH$QWKFILE
DELAY 2000
;-------------------------- Lets upload the replies ---------------------
UPSECTION:
SEND "^M"
When
When "NO CARRIER" GETOUT
Waitfor "TOMCAT MENU"
Delay 100
Exist $REPPATH$REPFILE SENDEM
Goto ALLDONE
SENDEM:
Send "U^M"
Delay 100
WAITFOR "Start"
Pause 1000
Upload $XFER $REPPATH$REPFILE
When "Transfer UNSUCCESSFUL!" UPSECTION
Dos "Del $REPPATH$REPFILE"
;--------------------------- Lets get out of here ----------------------
ALLDONE:
Waitfor "TOMCAT MENU"
Delay 100
Send "G^M"
Pause 5000
GETOUT:
Hangup
Send "ATZ^M^~^~^~^~^~^~ATH1M0^M"
System Y
Exit