home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
q
/
qscripts.zip
/
QMAILPCB.SCR
< prev
next >
Wrap
Text File
|
1992-04-16
|
2KB
|
78 lines
;
; QMAILPCB.SCR
; Qmodem 4.5/5.01 script for PCBoards using QMail 4.
; Script edited on 04/02/92
;
Graphics ANSI
TurnON 8_BIT
TurnOFF LINEFEED
TurnOFF XON/XOFF
TurnOFF NOISE
TurnOFF MUSIC
TurnON SCROLL
TurnOFF PRINT
TurnOFF ECHO
TurnOFF SPLIT
TurnOFF BS_DEL
WHEN
TimeOut 30 OUT
When "(Enter)=no" "N Q NS^M"
WHEN "(Enter)==>NO?" "^M"
Waitfor "first name?"
Delay 5
Send "Xxxxx Xxxxxx^M"
Waitfor "(Dots will echo)?"
Delay 5
FKey 12 ;Ensure your password is in the dialing directory entry for
;each board, and that your F12 is defined as $PASSWORD^M
WHEN
WHEN "More?" "n^M"
WHEN "(Enter)?" "^M"
WHEN "Press any key to continue..." "^M"
WHEN "Press (Enter) to continue" "^M"
WHEN "'Last Read' (Enter)=yes" "n^M"
WHEN "NO CARRIER" GONZO
Waitfor "Main Board Command"
Delay 5
Send "open XX^M"
Timeout 800 FINISH
Waitfor "Qmail Command"
Delay 5
Exist C:\Qmodem\Upload\<BBSName>.REP NEXT
GOTO CONTINUE
NEXT:
Send "U^M"
Delay 1000
Upload Z C:\Qmodem\Upload\<BBSName>.REP
Waitfor "Qmail Command"
CONTINUE:
Delay 5
Send "D;Y;G^M"
When "<REPEAT>" DLAGAIN
DLAGAIN:
Waitfor "<DOWNLOAD>"
DOWNLOAD Z C:\Qmodem\Download\<BBSName>.QW*
GOTO FINISH
LOGOFF:
Delay 3000
Send "G^M"
FINISH:
Waitfor "NO CARRIER"
GONZO:
Return
OUT:
HANGUP
Waitfor "NO CARRIER"
Return