;A version of QTMES.SCR - by Rob Friedman ; ;--updated 12/31/89 ; ; This now includes a few little scripts I use to dial Starlink nodes ;as well as a few ADAM BBS's. I originally attempted to have the script ;capture the messages on the ADAM-NET boards, but the random Private ;Mail feature was something I couldn't figure out. So.. it's now written ;to call them individually . ; ;I've used this script below to get me to Computer Club. The first ;number is dialed..and if busy, dials the second number. Use with the ;ESC-X command in QTERM... This script ;now is corrected. It will NOT dial the first number if the second is ;busy. I had thought it might, but the scripts are only read in order. ;It now goes to the Club forum, and captures all the new messages in ;sections 9 and 10, then logs off. ; ;See below for alternates ; ;Remember to edit to your specs. as in Phone numbers, UID, and Password ;edit out all lines with the ";" ; Enjoy.. ; Rob Friedman (Sysop ADAM CP/M) -------------------------------------------- !b2400 8n1 ;sets baud and parity !k2Rob Friedman(Sysop Adam CP/M) ;sets keys !k5Rob Friedman ;" !k176072,417\r ;" %ATZ\r%OK\r\n%%5% ;resets Modem to make sure %ATDT2944190\r%CONNECT 2400\r\n%%%9%7 ;dials 1st # and checks %ATZ\r%OK\r\n%%5% ;resets if 1st # n/g %ATDT9322088\r%CONNECT 2400\r\n%%% ;dials 2nd # %\d\x03%\r\n% ;hits ^C %%D: % ;waits for I.D: prompt %76702,417\r%ord: % ;sends# ,looks for PW %PASS/WORD\r\n\r\n%!% ;sends PW, looks for ! %g club\r%Forum !% ;sends G CLUB, looks for Forum ! !f cis.mes 6 rea thr new sec:9,10;scr\r ;opens a catch file CIS.MES and ;reads all the newest files in ;secs 9 and 10 %\r%Forum !% ;sends , waits for Forum ! %off\r%NO CARRIER\r\n% ;Logs off CIS, waits for NO ;CARRIER from modem !, ;hangs up via ATH0 string !a ;rings bell to wake you up -------------------------------------------- ;and your there!! ; ;If you only want to use it to logon to CIS and go to Club, stop it at ;the %g club\r%Forum !% line. That would duplicate the original QTCIS.SCR ; ;If you want to get files slightly differently, please note that these ;are the standard CIS commands being used. If your section options are ;set to only the sections you want, you can omit the "sec:9,10" part. ;If you want older messages, change the "new" to "day:#" where # equals ;the number of days from where you want to start. Hence, if I want to get ;the messages not only from today, but from 2 days previously, even if ;I've seen them before, I would use the string "days:2". The ";scr" string ;gives the next command while in the one line. It tells CIS that you want ;the messages to SCRoll continually, without stopping. The "6" in the ;command string means that the file will keep capturing until it hits a ;timeout of 6 seconds, and then will close the file. ; ;The whole idea of this is to automate the capture of messages, and ;shorten your time on CIS and save $$. I'll be working on an answering ;messages script soon. A variation of this would DL a specific file ;from the LIBs. Be sure to read the QTERM.DOC, as well as the SCRIPTS.QTM ;file, both in the QTERM LBRs. ; ; ;Oh..I've added this little bit for the CPM section this ;little script lets me go to the CPM forum from anywhere ;else and grab the messages there. ;Of course it can be used instead of my other parts for Club. ;I call list it as QTCPM.STF ------------------------------------------------------- %g cp/m\r%Forum !% ; !f cpmcis.mes 6 rea thr new sec:1-9,11-13;scr\r ; %\r%Forum !% ; !a ; ------------------------------------------------------- ;I use the sections this way since i dont want the 16-32 bit stuff. ;It also rings the bell to get me back to the console ; ;Ok.. now let's leave CIS and use the Starlink network. Here are the ;scripts I use to first dial, then the separate log-ons: ;This one is called QTSTAR.SCR ;All it does is connect with the local Tymenet node. -------------------------------------------- !b 2400 8n1 ;again it sets the baud !k2Rob Friedman ;and the keys.. !k176702,417\r ;.. !k9STA101788: ;this key is my UID for Tymnet %ATZ\r%OK\r\n%%5% ;resets the modem %ATDT4810150\r%CONNECT 2400\r\n%%%9%7 ;dial's 1st # or.. %ATZ\r%OK\r\n%%5% ;resets and... %ATDT4810442\r%CONNECT 2400\r\n%%% ;dials 2nd # %\d\d\d\d\x41%in: % ;waits 8 sec. and sends A %%% ;ends script with 3 %%%'s --------------------------------------------- ;again.. this does nothing but dial Tymnet. You can do any simple ;script this way ; ;Ok.. now we're on..and waiting at the prompt. We hit ESC-X ;and get the script to get us to the Starlink node, and the ;BBS number and login. Next is the AAUG.SCR, for the ;Akron Adam User's Group in Akron, OH. This is one of the best ;Adam & CP/M BBS's around. As a matter of fact, all these BBS's ;I illustrate here are fast BBS's using Tony Morehen's TDOS, a ;CP/M-compatible OS. And I recommend all of them. -------------------------------------------- %\x16STA101788:8740;XXPWXX\r%>% ;This first sends a ^V, then ;the UID string with the Starlink ;node <8740>, my Password, and ;waits for the local prompt. %d 8824720\r%NEW>%30%%5%3 ;Dials the phone number, and waits ;for the prompt, or goes to next %logout\r%in:%%% ;line and logs out. %%%% ;The 3-4 %%%'s ends the script %26\r%word>% ;Sends the ID#, waits for prompt %YYPWYY\r%%% ;Sends the Password. -------------------------------------------- ;The others are basically the same.. but for information, here ;are the scripts for the nodes and numbers. The next is ;AWAUG.SCR , for the Adam Washington Area Users Group . -------------------------------------------- %\x16STA101788:2262;XXPWXX\r%>% ;All the same as above except %d 9225497\r%NEW>%30%%5%3 ;for the node %logout\r%in:%%%% ;the phone # and... %%%% ; %47\r%word>% ;My UID. %YYPWYY\r%% ; -------------------------------------------- ;The last one is SOCA.SCR for SOuthern California Adam -------------------------------------------- %\x16STA101788:9184;XXPWXX\r%>% ;Again.. the same. Node here is %d 7751603\r%NEW>%30%%5%3 ;<9184>. And a different phone.. %logout\r%in:%%% ; %%%% ; %92\r%word>% ;and UID. %YYPWYY\r%% ; -------------------------------------------- ;The use of the ^V in front of the UID is to speed up the file transfers ;from the Starlink nodes. These are optional, but the DO increase ;transmission speed. ;The reason the time setting on these are 30 secs, is that sometimes.. it ;will dial or ring a long time before Starlink says the number is busy. ;On the default, the 15 secs will timeout before Starlink says so..hence it ;won't go to LOGOUT. ; ;Well.. I hope this helps some of you and you get to be proficient with ;QTERM. Even though ZMP runs more options, I've found QTERM's scripts to ;be really fast when dialing in.. and a real timesaver for use on CIS, as ;well as a timesaver for dialing into Starlink. What with all those numbers ;and ID's to dial..whew. ; ;A note here for NON-QTERM users who are on CIS. Please look at the CIS scripts. ;The commands I'm using are standard CIS commands, and can be used with ANY ;modem program for fast capture of messages. Again.. having an external modem ;running at 1200b or 2400b really helps. And again.. these scripts for QTERM ;are for use with an external modem . ; ;Enjoy it! ;Rob Friedman- Sysop ADAM CP/M ;CompuServe Computer Club Forum ;  .