home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / n / nenet107.zip / EAGLE.SCR < prev    next >
Text File  |  1992-09-05  |  6KB  |  137 lines
  1. ; SAMPLE SCRIPT FOR NE-Net, *.QWK, Qmodem
  2. ; This script has to be modified with your paths, etc
  3. ; Note: 401-732-5290 Compucom 9600 or 2400MNP, 5295 v32b/HST, 5298 HST/v32bis
  4. ;       Hub is closed 4-6am for netmail transfers
  5.  
  6. TurnOn   8_BIT SCROLL
  7. TurnOff  LINEFEED XON/XOFF NOISE MUSIC PRINT ECHO
  8.  
  9. String   QWKFILE REPFILE QWKPATH REPPATH ATTEMPTS   ; Definitions which need to
  10. String   NAME    XFER    UDONE   DDONE   DOOR       ; be replaced with your
  11.                                                     ; pertinant data below!
  12.  
  13. Assign   ATTEMPTS  3                     ; Number of dialing attempts
  14. Assign   QWKFILE   EAGLE.QWK             ; Name of the .QWK file
  15. Assign   QWKPATH   d:\COMM               ; Location of your .QWK file
  16. Assign   REPFILE   EAGLE.REP             ; Name of the .REP file
  17. Assign   REPPATH   d:\COMM               ; Location of your .REP file
  18. Assign   NAME      "SAMPLE BBS Password" ; Your BBS Name and Password on BBS
  19. Assign   DOOR      "QMAIL4 D;Y;U;G"      ; Open QMail 4.0 and send parameters
  20. Assign   XFER      Z                     ; Protocol to transfer with
  21. Assign   UDONE     N                     ; Upload done?
  22. Assign   DDONE     N                     ; Download done?
  23.  
  24. DOS "DEL C:\NE_LAST"
  25. CAPTURE C:\NE_LAST                 ; Turn capture on
  26. Restart:                           ; Go here if the connection gets broken...
  27. If $ONLINE SkipD                   ; Skip the dial if already online
  28.  
  29. Loop0:
  30. If "$ATTEMPTS" = "0" EndGame    ; If we've dialed this many times let's quit
  31. Decr ATTEMPTS                   ; Decrement the number of dialing attempts
  32. TimeOut 30 Loop$ATTEMPTS        ; Set the timeout to 30 seconds
  33. Send "ATM0DT1-401-732-5290^M"   ; Dial the number
  34. WaitFor "CONNECT"               ; Wait for the timeout amount until connected
  35. If $ONLINE SkipD                ; If already online then goto SkipD
  36.  
  37. Loop2:
  38. Decr ATTEMPTS                   ; Decrement the number of dialing attempts
  39. TimeOut 30 Loop$ATTEMPTS        ; Set the timeout to 30 seconds
  40. Send "ATDT 1-401-732-5290^M"    ; Dial the number
  41. WaitFor "CONNECT"               ; Wait for the timeout amount until connected
  42. If $ONLINE SkipD                ; If already online then goto SkipD
  43.  
  44. Loop1:
  45. Decr ATTEMPTS                   ; Decrement the number of dialing attempts
  46. TimeOut 30 Loop$ATTEMPTS        ; Set the timeout to 30 seconds
  47. Send "ATDT 1-401-732-5295^M"    ; Dial the ALTERNATE number for final try
  48. WaitFor "CONNECT"               ; Wait for the timeout amount until connected
  49. If $ONLINE SkipD                ; If already online then goto SkipD
  50.  
  51. SkipD:
  52. TimeOut  200  QQ                ; Set Waitfor timeout to 200 seconds.
  53. Goto     TOP                    ; Jump to the start of the main body.
  54.  
  55.  
  56. QQ:                             ; Something timed out
  57. If $OffLine Restart             ; are we offline?  If so, restart script
  58. Send "^M"                       ; Send a <CR> in case prompt disappeared
  59. If "$DDONE" = "N"  DownSection  ; Go do Download again
  60. If "$UDONE" = "N"  DoRepsNow    ; Go do Upload again
  61.  
  62. Goto EndGame                    ; Both xfers were ok but we
  63.                                 ; didn't get offline yet
  64.  
  65. TOP:                            ; Main Body of the QMail Script
  66.                                 ; answers to prompts
  67.  
  68. When
  69. When     "Press (Enter) to continue?"       "n^M"
  70. When     "graphics (Enter)=no?"             "Y Q NS Mail Script in Progress^M"
  71. When     "What is your first name?"         "$NAME^M"
  72. When     "messages since"                   "N^M"
  73. When     "'Last Read' (Enter)=yes?"         "N^M"
  74. When     "Conference members (Enter)=no?"   "N^M"
  75. When     "More (Y), (N), (NS)"              "N^M"
  76. When     "Enter Language #"                 "2^M"
  77. When     "(H)elp, More?"                    "N^M"
  78. When     "correct? (Y)"                     "Y^M"
  79. When     "NO CARRIER"                       Restart  ;(a Goto Label)
  80.  
  81. Waitfor  "Command?"             ; Waitfor the Enest prompt and then
  82. Delay    100                    ; send the command to open the Qmail door
  83. Send     "OPEN $DOOR^M"
  84.  
  85.  
  86. DownSection:
  87.  
  88. When                                  ; Begin the download or goto either
  89. When     "<AUTOSTART>"    "^M"        ; the beginning because we got
  90. When     "NO CARRIER"     Restart     ; disconnected or goto
  91. When     "<NO TRANSFER>"  DoRepsNow   ; the REP section because there's no
  92. When     "<DLASK>"        "Y^M"       ; mail or goto download incoming mail
  93.  
  94. Waitfor  "<DOWNLOAD>"                 ; Wait for the dl prompt and begin
  95. Delay    100                          ; downloading our mail
  96. Downld $XFER $QWKPATH$QWKFILE
  97. If       $SUCCESS  SuccessDown        ; If we get a dl then continue
  98. Goto     DownSection                  ; otherwise try again
  99.  
  100. SuccessDown:
  101. Assign   DDONE Y                      ; Download was successful
  102. Goto     DoRepsNow                    ; Go send the replies
  103.  
  104.  
  105. DoRepsNow:
  106. When
  107. When     "NO CARRIER"   Restart       ; Try again because we got disconnected
  108. Exist    $REPPATH$REPFILE  SendEm     ; otherwise goto send the replies
  109. Goto     AllDone                      ; We finished...let's BOOGIE!
  110.  
  111. SendEm:                               ; there are replies to send!
  112. TimeOut 20 UpEm                       ; If we timeout let's try to upload
  113. Waitfor  "<DL SUCCESS>"               ; again and wait for acknowledgement
  114. Pause    1000
  115.  
  116. UpEm:
  117. When
  118. When "<COMMAND>"   "U^M"              ; Send the upload command and
  119. Upld   $XFER $REPPATH$REPFILE         ; begin the upload of replies
  120. If       $FAIL  DoRepsNow             ; If we fail goto try again
  121. Assign   UDONE Y                      ; If the Upload of REP is OK
  122. goto AllDone                          ; let's get outta here!
  123.  
  124. AllDone:
  125. pause 3000
  126. DOS "COPY $REPPATH$REPFILE c:\"       ; Let's make a copy of our reps
  127. DOS "DEL $REPPATH$REPFILE"            ; but move them so we don't upload
  128.                                       ; them again  (duplicates stink!)
  129.  
  130. Hangup                                ; Hangup the modem
  131. goto EndGame                          ; and quit Qmodem
  132.  
  133. EndGame:
  134. CAPTURE OFF                           ; Turn the capture off and
  135. System   Y                            ; Exit Qmodem
  136. Exit                                  ; End of Script
  137.