home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / modem / qtmes.scr < prev    next >
Encoding:
Text File  |  1993-06-08  |  8.8 KB  |  172 lines
  1.  
  2. ;A version of QTMES.SCR - by Rob Friedman
  3. ;
  4. ;--updated 12/31/89
  5. ;
  6. ; This now includes a few little scripts I use to dial Starlink nodes
  7. ;as well as a few ADAM BBS's. I originally attempted to have the script
  8. ;capture the messages on the ADAM-NET boards, but the random Private 
  9. ;Mail feature was something I couldn't figure out. So.. it's now written
  10. ;to call them individually <the different BBS scripts>.
  11. ;
  12. ;I've used this script below to get me to Computer Club. The first 
  13. ;number is dialed..and if busy, dials the second number. Use with the 
  14. ;ESC-X command  in QTERM..<whatever version your using>. This script 
  15. ;now is corrected. It will NOT dial the first number if the second is 
  16. ;busy. I had thought it might, but the scripts are only read in order.
  17. ;It now goes to the Club forum, and captures all the new messages in 
  18. ;sections 9 and 10, then logs off.
  19. ;
  20. ;See below for alternates
  21. ;
  22. ;Remember to edit to your specs. as in Phone numbers, UID, and Password
  23. ;edit out all lines with the ";"
  24. ;  Enjoy..
  25. ;          Rob Friedman (Sysop ADAM CP/M)
  26. --------------------------------------------
  27. !b2400 8n1                    ;sets baud and parity
  28. !k2Rob Friedman(Sysop Adam CP/M)        ;sets keys
  29. !k5Rob Friedman                    ;"
  30. !k176072,417\r                    ;"
  31. %ATZ\r%OK\r\n%%5%                ;resets Modem to make sure
  32. %ATDT2944190\r%CONNECT 2400\r\n%%%9%7        ;dials 1st # and checks
  33. %ATZ\r%OK\r\n%%5%                ;resets if 1st # n/g
  34. %ATDT9322088\r%CONNECT 2400\r\n%%%        ;dials 2nd #
  35. %\d\x03%\r\n%                    ;hits ^C
  36. %%D: %                        ;waits for I.D: prompt
  37. %76702,417\r%ord: %                ;sends# ,looks for PW
  38. %PASS/WORD\r\n\r\n%!%                ;sends PW, looks for !
  39. %g club\r%Forum    !%                ;sends G CLUB, looks for Forum !
  40. !f cis.mes 6 rea thr new sec:9,10;scr\r     ;opens a catch file CIS.MES and
  41.                         ;reads all the newest files in
  42.                         ;secs 9 and 10 <see text>
  43. %\r%Forum !%                    ;sends <cr>, waits for Forum !
  44. %off\r%NO CARRIER\r\n%                ;Logs off CIS, waits for NO
  45.                         ;CARRIER from modem
  46. !,                        ;hangs up via ATH0 string
  47. !a                        ;rings bell to wake you up
  48. --------------------------------------------
  49. ;and your there!!
  50. ;
  51. ;If you only want to use it to logon to CIS and go to Club, stop it at 
  52. ;the %g club\r%Forum !% line. That would duplicate the original QTCIS.SCR
  53. ;
  54. ;If you want to get files slightly differently, please note that these
  55. ;are the standard CIS commands being used. If your section options are
  56. ;set to only the sections you want, you can omit the "sec:9,10" part.
  57. ;If you want older messages, change the "new" to "day:#" where # equals
  58. ;the number of days from where you want to start. Hence, if I want to get
  59. ;the messages not only from today, but from 2 days previously, even if
  60. ;I've seen them before, I would use the string "days:2". The ";scr" string
  61. ;gives the next command while in the one line. It tells CIS that you want
  62. ;the messages to SCRoll continually, without stopping. The "6" in the
  63. ;command string means that the file will keep capturing until it hits a
  64. ;timeout of 6 seconds, and then will close the file.
  65. ;
  66. ;The whole idea of this is to automate the capture of messages, and
  67. ;shorten your time on CIS and save $$. I'll be working on an answering
  68. ;messages script soon. A variation of this would DL a specific file
  69. ;from the LIBs. Be sure to read the QTERM.DOC, as well as the SCRIPTS.QTM
  70. ;file, both in the QTERM LBRs.
  71. ;
  72. ;
  73. ;Oh..I've added this little bit for the CPM section this 
  74. ;little script lets me go to the CPM forum from anywhere 
  75. ;else and grab the messages there.
  76. ;Of course it can be used instead of my other parts for Club.
  77. ;I call list it as QTCPM.STF
  78. -------------------------------------------------------
  79. %g cp/m\r%Forum    !%                                    ;      
  80. !f cpmcis.mes 6    rea thr    new sec:1-9,11-13;scr\r       ;
  81. %\r%Forum !%                                          ;
  82. !a                                                    ;
  83. -------------------------------------------------------
  84. ;I use the sections this way since i dont want the 16-32 bit stuff.
  85. ;It also rings the bell to get me back to the console
  86. ;
  87. ;Ok.. now let's leave CIS and use the Starlink network. Here are the 
  88. ;scripts I use to first dial, then the separate log-ons:
  89. ;This one is called QTSTAR.SCR
  90. ;All it does is connect with the local Tymenet node.
  91. --------------------------------------------
  92. !b 2400 8n1                                 ;again it sets the baud
  93. !k2Rob Friedman                             ;and the keys..
  94. !k176702,417\r                              ;..
  95. !k9STA101788:                               ;this key is my UID for Tymnet
  96. %ATZ\r%OK\r\n%%5%                           ;resets the modem <as above>
  97. %ATDT4810150\r%CONNECT 2400\r\n%%%9%7       ;dial's 1st # or..
  98. %ATZ\r%OK\r\n%%5%                           ;resets and...
  99. %ATDT4810442\r%CONNECT 2400\r\n%%%          ;dials 2nd #
  100. %\d\d\d\d\x41%in: %                         ;waits 8 sec. and sends A
  101. %%%                                         ;ends script with 3 %%%'s
  102. ---------------------------------------------
  103. ;again.. this does nothing but dial Tymnet. You can do any simple
  104. ;script this way <for dialing one or two numbers>
  105. ;
  106. ;Ok.. now we're on..and waiting at the prompt. We hit ESC-X
  107. ;and get the script to get us to the Starlink node, and the 
  108. ;BBS number and login. Next <or first> is the AAUG.SCR, for the 
  109. ;Akron Adam User's Group in Akron, OH. This is one of the best
  110. ;Adam & CP/M BBS's around. As a matter of fact, all these BBS's 
  111. ;I illustrate here are fast BBS's using Tony Morehen's TDOS, a 
  112. ;CP/M-compatible OS. And I recommend all of them. <In fact, I'm on
  113. ;all of them.> 
  114. --------------------------------------------
  115. %\x16STA101788:8740;XXPWXX\r%>%             ;This first sends a ^V, then
  116.                                             ;the UID string with the Starlink
  117.                                             ;node <8740>, my Password, and 
  118.                                             ;waits for the local prompt.
  119. %d 8824720\r%NEW>%30%%5%3                   ;Dials the phone number, and waits
  120.                                             ;for the prompt, or goes to next 
  121. %logout\r%in:%%%                            ;line and logs out.
  122. %%%%                                        ;The 3-4 %%%'s ends the script
  123. %26\r%word>%                                ;Sends the ID#, waits for prompt
  124. %YYPWYY\r%%%                                ;Sends the Password.
  125. --------------------------------------------
  126. ;The others are basically the same.. but for information, here 
  127. ;are the scripts for the nodes and numbers. The next is 
  128. ;AWAUG.SCR , for the Adam Washington Area Users Group <I hope>.
  129. --------------------------------------------
  130. %\x16STA101788:2262;XXPWXX\r%>%             ;All the same as above except
  131. %d 9225497\r%NEW>%30%%5%3                   ;for the node <here it's 2262>
  132. %logout\r%in:%%%%                           ;the phone # and...
  133. %%%%                                        ;
  134. %47\r%word>%                                ;My UID.
  135. %YYPWYY\r%%                                 ;
  136. --------------------------------------------
  137. ;The last one is SOCA.SCR for SOuthern California Adam <again I hope>
  138. --------------------------------------------
  139. %\x16STA101788:9184;XXPWXX\r%>%             ;Again.. the same. Node here is
  140. %d 7751603\r%NEW>%30%%5%3                   ;<9184>. And a different phone..
  141. %logout\r%in:%%%                            ;
  142. %%%%                                        ;
  143. %92\r%word>%                                ;and UID.
  144. %YYPWYY\r%%                                 ;
  145. --------------------------------------------
  146. ;The use of the ^V in front of the UID is to speed up the file transfers
  147. ;from the Starlink nodes. These are optional, but the DO increase 
  148. ;transmission speed. 
  149. ;The reason the time setting on these are 30 secs, is that sometimes.. it 
  150. ;will dial or ring a long time before Starlink says the number is busy. 
  151. ;On the default, the 15 secs will timeout before Starlink says so..hence it
  152. ;won't go to LOGOUT.
  153. ;
  154. ;Well.. I hope this helps some of you and you get to be proficient with 
  155. ;QTERM. Even though ZMP runs more options, I've found QTERM's scripts to 
  156. ;be really fast when dialing in.. and a real timesaver for use on CIS, as 
  157. ;well as a timesaver for dialing into Starlink. What with all those numbers
  158. ;and ID's to dial..whew. 
  159. ;
  160. ;A note here for NON-QTERM users who are on CIS. Please look at the CIS scripts.
  161. ;The commands I'm using are standard CIS commands, and can be used with ANY 
  162. ;modem program for fast capture of messages. Again.. having an external modem
  163. ;running at 1200b or 2400b really helps. And again.. these scripts for QTERM
  164. ;are for use with an external modem <unless you have adapted it for the 
  165. ;Sydmodem 1200 internal modem>.
  166. ;
  167. ;Enjoy it!
  168. ;Rob Friedman- Sysop ADAM CP/M 
  169. ;CompuServe Computer Club Forum
  170. ;   
  171.  
  172.