home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zzmail.zip / EXEQMDL.SCR next >
Text File  |  1989-05-14  |  5KB  |  210 lines
  1.         ; This is an edited version of qmml6.scr; edited to remove
  2.         ; choices so it is useful for automated downloads of Qmail
  3.         ; from PCBoard 14.x
  4.         ; Be sure your DSZ is set up so it returns to Qmodem after a D/L
  5.         ; To use:
  6.         ; With your editor edit all the ASSIGN variables
  7.         ;    Be sure the door is set for the Qmail door you want
  8.         ; Reset the DIAL line so it conforms to the QM.fon line you
  9.         ; want on your dialing directory.
  10.         ; Be sure your phone directory line does not have a script
  11.         ; attached-don't use the same line as your logon script
  12.         ; Place this file in your Qmodem script directory
  13.  
  14.         ;Once the above is done, use a command line such as:
  15.         ;    QMODEM /S=exedl.scr
  16.         ; and the script should dial, download your mail and sign off
  17.         ; Naturally you can rename the script and modify it for other
  18.         ;   boards.
  19.  
  20.  
  21.  
  22.  
  23.                           ;This scr downloads only from execnet
  24.  
  25. TURNON   8_BIT            ;This series of entries sets up the
  26. TURNOFF  LINEFEED         ;Qmodem operating environment.
  27. TURNOFF  XON/XOFF
  28. TURNOFF  NOISE
  29. TURNOFF  MUSIC
  30. TURNON   SCROLL
  31. TURNOFF  PRINT
  32. TURNOFF  ECHO
  33. ;
  34. EGA   43
  35. DIAL "20"
  36.                           ;The string command sets text strings to
  37.                           ;be used as variables in the script.
  38. ;
  39. String   QWKFILE REPFILE QWKPATH REPPATH DOOR XFER QPATH FNAME LNAME
  40.  
  41. ASSIGN   QWKFILE   execnet.QWK        ; Enter the name of QWK file for system
  42. ASSIGN   REPFILE   execnet.REP        ; Enter the name of REP file for system
  43. ASSIGN   QWKPATH   C:\QMODEM\DL\     ; Enter DRIVE:\PATH to DOWNLOAD directory
  44. ASSIGN   REPPATH   C:\QMODEM\DL\     ; Enter DRIVE:\PATH to UPLOAD directory
  45. ASSIGN   DOOR      5                 ; Enter the number of System QwikMail Door
  46. ASSIGN   XFER      Z                 ; Enter the letter of the Protocol to use
  47. ASSIGN   QPATH     C:\QMODEM\DL\     ; Enter the DRIVE:PATH to your reader
  48. ASSIGN   FNAME     TED               ; Enter your first name
  49. ASSIGN   LNAME     CROCKETT          ; Enter your last name
  50. ;
  51.  
  52.  
  53. TimeOut  240      ; Set WAITFOR timeout to 240 seconds
  54.  
  55.  
  56. WHEN
  57. WHEN     "Press (Enter) to continue?"       "^M"
  58. WHEN     "graphics (Enter)=no?"             "y Q^M"
  59. WHEN     "What is your first name?"         "$FNAME $LNAME $PASSWORD^M"
  60. WHEN     "More (Y), (N), (NS)"              "N^M"
  61. WHEN     "Enter Language #"                 "^M"
  62. WHEN     "Conference members (Enter)=no?"   "^M"
  63. WHEN     "(H)elp, More?"                    "N^M"
  64. WHEN     "Since 'Last Read' (Enter)=yes?"   "N^M"
  65.  
  66. WAITFOR "Command" dump
  67. DELAY   100
  68. GOTO Startc
  69.  
  70.  
  71. start:
  72.   CLRSCR
  73.   PUTSCR
  74.   SEND "n^M"
  75.   WAITFOR  "Command?" dump
  76.   DELAY    100
  77.   SEND     "OPEN $DOOR^M"
  78.  
  79.   WHEN
  80.   WHEN "you *MUST* begin by" config
  81.   WAITFOR  "Command?" dump
  82.   DELAY    100
  83.   GOTO reDOWNLOAD
  84.  
  85.  
  86. ReDOWNLOAD:
  87.   SEND     "D^M"
  88.   WHEN
  89.   WHEN     "nothing was found"  DoRepsNow
  90.   WAITFOR  "receive this packet (Y or N)?"  dump
  91.   DELAY    100
  92.   SEND     "Y^M"
  93.  
  94.   WAITFOR  "transfer of"
  95.   WAITFOR  "$QWKFILE" dump
  96.   DELAY    300
  97.   SEND     "^M"
  98.  
  99.   DOWNLOAD $XFER $QWKPATH$QWKFILE
  100.   IF       $SUCCESS  DoRepsNow
  101.   GOTO     ReDOWNLOAD
  102.  
  103.   UpSection:
  104.   WAITFOR  "Command?"  dump
  105.   DELAY    100
  106.  
  107.   DoRepsNow:
  108.   WHEN
  109.   EXIST    $QPATH$REPFILE  SendEm
  110.   GOTO     AllDone
  111.  
  112. SendEm:
  113.   DELAY    1000
  114.   SEND     "^M"
  115.   WAITFOR  "Command?"  dump
  116.   SEND     "U^M"
  117.   DELAY    100
  118.   WAITFOR  "Ready to receive" dump
  119.   WAITFOR  "$REPFILE"  dump
  120.   PAUSE    1000
  121.   UPLOAD   $XFER $QPATH$REPFILE
  122.   IF       $FAIL  UpSection
  123.   DOS      "copy $QPATH$REPFILE $QPATHlatest.rep"
  124.   DOS      "del $QPATH$REPFILE"
  125.   GOTO     AllDone
  126.  
  127. startc:
  128.   SEND     "OPEN $DOOR^M"
  129.   dagain:
  130.   WHEN
  131.   WHEN "you *MUST* begin by" config
  132.   WAITFOR  "Command?" dump
  133.   DELAY    100
  134.   GOTO DNLDONLY
  135.  
  136.  
  137. DNLDONLY:
  138.   SEND     "D^M"
  139.   WHEN
  140.   WHEN     "nothing was found"  Alldone
  141.   WAITFOR  "receive this packet (Y or N)?"  dump
  142.   DELAY    100
  143.   SEND     "Y^M"
  144.  
  145.   WAITFOR  "transfer of"
  146.   WAITFOR  "$QWKFILE"
  147.   DELAY    200
  148.   SEND     "^M"
  149.  
  150.   DOWNLOAD $XFER $QWKPATH$QWKFILE
  151.   IF       $SUCCESS  Alldone
  152.   GOTO     dagain
  153.  
  154. Startd:
  155.   CLRSCR
  156.   PUTSCR
  157.   SEND "n^M"
  158.   WAITFOR  "Command?" dump
  159.   DELAY    100
  160.   SEND     "OPEN $DOOR^M"
  161.   WHEN
  162.   WHEN "you *MUST* begin by" config
  163.   WAITFOR  "Command?" dump
  164.   DELAY    100
  165.   GOTO uponly
  166.   uponly:
  167.   WHEN
  168.   EXIST    $QPATH$REPFILE  Sendthem
  169.   SEND  "^M"
  170.   GOTO     AllDone
  171.  
  172. Sendthem:
  173.   SEND     "U^M"
  174.   DELAY    100
  175.   WAITFOR  "Ready to receive" dump
  176.   WAITFOR  "$REPFILE"  dump
  177.   PAUSE    1000
  178.   UPLOAD   $XFER $QPATH$REPFILE
  179.   IF       $FAIL  Uponly
  180.  
  181. AllDone:
  182.   WAITFOR  "Command?"  dump
  183.   PAUSE    1000
  184.   SEND     "G^M"
  185.   PAUSE    2000
  186.   HANGUP
  187.   SYSTEM   Y
  188.   EXIT
  189.  
  190. Dump:
  191.   HANGUP
  192.   EXIT
  193.  
  194. config:
  195.         GETSCR
  196.         CLRSCR
  197.         COLORBG 7
  198.         COLORFG 4
  199.         BOX 10,2,70,7
  200.         CLRSCR
  201.         DISPLAYLN  "        Your must first configure your Qmail Packet"
  202.         DISPLAYLN  "      Please configure your packet before leaving Qmail"
  203.         DISPLAYLN  "              Script will end in 10 seconds     "
  204.         DELAY 10000
  205.         COLORBG 0
  206.         COLORFG 14
  207.         CLRSCR
  208.         PUTSCR
  209.         EXIT
  210.