Category : Communication (modem) tools and utilities
Archive   : ZZMAIL2.ZIP
Filename : NEWDL.SCR

 
Output of file : NEWDL.SCR contained in archive : ZZMAIL2.ZIP
; This is an edited version of qmml6.scr; edited to remove
; choices so it is useful for automated downloads of Qmail
; from PCBoard 14.x
; Be sure your DSZ is set up so it returns to Qmodem after a D/L
; To use:
; With your editor edit all the ASSIGN variables
; Be sure the door is set for the Qmail door you want
; Reset the DIAL line so it conforms to the QM.fon line you
; want on your dialing directory.
; Be sure your phone directory line does not have a script
; attached-don't use the same line as your logon script
; Place this file in your Qmodem script directory

;Once the above is done, use a command line such as:
; QMODEM /S=newdl.scr
; and the script should dial, download your mail and sign off
; Naturally you can rename the script and modify it for other
; boards.




;This scr downloads only from execnet

TURNON 8_BIT ;This series of entries sets up the
TURNOFF LINEFEED ;Qmodem operating environment.
TURNOFF XON/XOFF
TURNOFF NOISE
TURNOFF MUSIC
TURNON SCROLL
TURNOFF PRINT
TURNOFF ECHO
;
DIAL "20" ;Your line on dialing directory
;The string command sets text strings to
;be used as variables in the script.
;
String QWKFILE REPFILE QWKPATH REPPATH DOOR XFER QPATH FNAME LNAME

ASSIGN QWKFILE execnet.QWK ; Enter the name of QWK file for system
ASSIGN REPFILE execnet.REP ; Enter the name of REP file for system
ASSIGN QWKPATH C:\QMODEM\DL\ ; Enter DRIVE:\PATH to DOWNLOAD directory
ASSIGN REPPATH C:\QMODEM\DL\ ; Enter DRIVE:\PATH to UPLOAD directory
ASSIGN DOOR 7 ; Enter the number of System QwikMail Door
ASSIGN XFER Z ; Enter the letter of the Protocol to use
ASSIGN QPATH C:\QMODEM\DL\ ; Enter the DRIVE:PATH to your reader
ASSIGN FNAME TED ; Enter your first name
ASSIGN LNAME CROCKETT ; Enter your last name
;


TimeOut 240 ; Set WAITFOR timeout to 240 seconds


WHEN
WHEN "Press (Enter) to continue?" "^M"
WHEN "graphics (Enter)=no?" "y Q^M"
WHEN "What is your first name?" "$FNAME $LNAME $PASSWORD^M"
WHEN "More (Y), (N), (NS)" "N^M"
WHEN "Enter Language #" "^M"
WHEN "Conference members (Enter)=no?" "^M"
WHEN "(H)elp, More?" "N^M"
WHEN "Since 'Last Read' (Enter)=yes?" "N^M"

WAITFOR "Command" dump
DELAY 100
GOTO Startc



startc:
SEND "OPEN $DOOR^M"
dagain:
WHEN
WHEN "you *MUST* begin by" config
WAITFOR "Command?" dump
DELAY 100
GOTO DNLDONLY


DNLDONLY:
SEND "D^M"
WHEN
WHEN "nothing was found" Alldone
WAITFOR "receive this packet (Y or N)?" dump
DELAY 100
SEND "Y^M"

WAITFOR "transfer of"
WAITFOR "$QWKFILE"
DELAY 200
SEND "^M"

DOWNLOAD $XFER $QWKPATH$QWKFILE
IF $SUCCESS Alldone
GOTO dagain


AllDone:
WAITFOR "Command?" dump
PAUSE 1000
SEND "G^M"
PAUSE 2000
HANGUP
SYSTEM Y
EXIT

Dump:
HANGUP
EXIT

config:
GETSCR
CLRSCR
COLORBG 7
COLORFG 4
BOX 10,2,70,7
CLRSCR
DISPLAYLN " Your must first configure your Qmail Packet"
DISPLAYLN " Please configure your packet before leaving Qmail"
DISPLAYLN " Script will end in 10 seconds "
DELAY 10000
COLORBG 0
COLORFG 14
CLRSCR
PUTSCR
EXIT


  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : ZZMAIL2.ZIP
Filename : NEWDL.SCR

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/