home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / bbs / femnet93.zip / QMODEM.FEM < prev    next >
Text File  |  1993-01-02  |  6KB  |  175 lines
  1. ;  Originally written for PCB systems [ Phil Gordemer  of
  2. ;  Compu-Data  (609) 232-1245; Ray Novino of RunWay (215)623-6203 ]
  3. ;  This script was re-written for use on Wildcat! 3.x based bbs systems.
  4. ;  This script has been edited to work with the new WILDCAT! 3.5 version
  5. ;  bbs software to cover the changes in the prompts used.
  6. ;  Known locking problems have been fixed;  if you have any problems or
  7. ;  any questions contact Bill Dennison @ (215)788-4339 1:273/216
  8. ;
  9. ;  
  10. ;
  11. ;       FEATURES:
  12. ;       
  13. ;  1. Will dial phone for a limited of times and giveup.
  14. ;  2. Assumes any stop of 5 minutes is a lockup and disconnects
  15. ;     the phone.
  16. ;  3. Confirms messages were actually inserted and resends if needed.
  17. ;  4. Creates a capture file of entire session and dialing attempts.
  18. ;  5. If carrier is dropped, does NOT attempt to redial so as
  19. ;     not to get involved in a loop of calling, dropping carrier
  20. ;     and recalling for hours on end...
  21. ;  6. Will delete the .REP file after a successful upload.
  22. ;  7. Can handle pre-packed mail from the host
  23. ;  8. Resets modem and takes it off hook before returning to DOS
  24. ;
  25. ; This script assumes that you have your color selections turned OFF
  26. ; and that your screen size is set to 0 (always non-stop).               
  27. ; One of the definitions is "DOOR" which is the command you use to access
  28. ; the TOMCAT mail door on the bbs.  Please check this,  as I have
  29. ; it currently set to "T" for TOMCAT (WC 3.5 default) but you may see it
  30. ; as "N" for "NETMAIL" or "D" for "DOWNLOAD"  
  31. ; If at anytime carrier is dropped the script will just finish.  In
  32. ; other scripts, we have had the script redial and try again only to be
  33. ; caught in an endless loop of redialing and getting dropped.  Since a
  34. ; Capture file is created, you can review that and if you see a problem
  35. ; can manually dial in.
  36. ;
  37. ;  Make sure you update the variables in the definitions section below
  38. ;  which are defined between the lines marked with "########"
  39. ;  ------------------------------------------------------------------------
  40.  
  41.  
  42. ; ---------------------------  DEFINITIONS  -------------------------
  43. TurnOn   8_BIT
  44. TurnOff  LINEFEED
  45. TurnOff  XON/XOFF
  46. TurnOff  NOISE
  47. TurnOff  MUSIC
  48. TurnOn   SCROLL
  49. TurnOff  PRINT
  50. TurnOff  ECHO
  51. TurnOFF  SPLIT
  52. TurnON   STATUSLN
  53. TurnOFF  DOORWAY
  54. String   QWKFILE REPFILE QWKPATH REPPATH TELNUM LIMIT
  55. String   INITIAL DOOR XFER NAME HOSTNAME
  56.  
  57. ; #####################################################################
  58. Assign   HOSTNAME  "LOTU!"          ; name of host system
  59. Assign   QWKFILE   LOTU!.QWK                ; name of QWK file
  60. Assign   REPFILE   LOTU!.REP                ; name of REP file
  61. Assign   QWKPATH   D:\QMODEM\DOWNLOAD\      ; DRIVE:\PATH of QWK file
  62. Assign   REPPATH   D:\QMODEM\DOWNLOAD\      ; DRIVE:\PATH of REP file
  63. Assign   DOOR      D                        ; menu selection for Mail Door
  64. Assign   XFER      Z                        ; Transfer Protocol
  65. Assign   NAME      "YOUR BBS PASSWORD"     ; My name & password
  66. Assign   TELNUM    "ATDT 9149610398^M"      ; dial string
  67. Assign   LIMIT     100                      ; # of times to dial
  68. Assign   INITIAL   "AT^M"                   ; Modem init string
  69. SetComm  38400 8 NONE 1                     ; Communications Parameters
  70. Capture  LOTU!.CAP                          ; Name of capture file
  71. ; ######################################################################
  72.  
  73.  
  74. ;---------------------------- Initialize the modem ----------------------
  75. INIT:
  76. Delay    1000
  77. Assign   0 $LIMIT
  78. ClrScr
  79. Display  "Initializing modem .. "
  80. Delay    1000
  81. Send     "$INITIAL"
  82. Waitfor  "OK"
  83.  
  84.  
  85. ;----------------------------- Dial the Board ---------------------------
  86. GETON:
  87. When
  88. When     "BUSY"         AGAIN
  89. When     "NO DIAL TONE" AGAIN
  90. When     "NO CARRIER"   AGAIN
  91. Pause    2000
  92. Decr     0
  93. If       "$0" < "1" GETOUT
  94. Timeout  75 GETON
  95. clrscr
  96. displayln "Attempting to connect with $HOSTNAME"
  97. displayln "Dial attempts left are $0"
  98. displayln "Dialing String: $TELNUM"
  99. delay    100
  100. Send     "$TELNUM"
  101. Waitfor  "CONNECT"
  102. goto     ONTHESYSTEM
  103.  
  104. AGAIN:
  105. pause    1000
  106. Send     "ATH1^M"
  107. Pause    9000
  108. goto     GETON
  109.  
  110.  
  111. ;-------------------- We have connected to the system ---------------------
  112. ONTHESYSTEM:
  113.  
  114. WHEN "[N]onStop?"                          "N^M"
  115. WHEN "What is your first name"              "!$NAME^M^M"
  116. WHEN "ontinue"                              "C^M"
  117. WHEN "Would you like to view"               "N^M"
  118. When     "NO CARRIER"                       GETOUT 
  119. timeout  1500 GETOUT
  120.  
  121. ;------------------------ Call for the download of the packet ----------------
  122. DOWNSECTION:
  123.  
  124. DL:
  125. Waitfor  "TOMCAT MENU"
  126. Delay    100
  127. Send     "D^M"
  128. When
  129. When "to download!"             UPSECTION
  130. When "NO CARRIER"               GETOUT
  131. Waitfor  "oodbye when done"
  132. Delay    1000
  133. Send     "Y^M"
  134. When
  135. When "Insufficient time"        UPSECTION
  136. Waitfor  "Start"
  137. Delay    100
  138. Download $XFER $QWKPATH$QWKFILE       
  139. DELAY 2000
  140.  
  141. ;-------------------------- Lets upload the replies ---------------------
  142. UPSECTION:
  143.  
  144. SEND "^M"
  145. When
  146. When     "NO CARRIER"   GETOUT
  147. Waitfor  "TOMCAT MENU"
  148. Delay    100
  149. Exist    $REPPATH$REPFILE  SENDEM
  150.  
  151. Goto     ALLDONE
  152.  
  153. SENDEM:
  154. Send     "U^M"
  155. Delay    100
  156. WAITFOR "Start"
  157. Pause    1000
  158. Upload   $XFER $REPPATH$REPFILE
  159. When     "Transfer UNSUCCESSFUL!"  UPSECTION
  160. Dos      "Del $REPPATH$REPFILE"   
  161.  
  162. ;--------------------------- Lets get out of here ----------------------
  163. ALLDONE:
  164. Waitfor  "TOMCAT MENU"
  165. Delay 100
  166. Send  "G^M"
  167.  
  168. Pause    5000
  169.  
  170. GETOUT:
  171. Hangup
  172. Send     "ATZ^M^~^~^~^~^~^~ATH1M0^M"
  173. System   Y
  174. Exit
  175.