home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / zmodem / zcommexe.zip / TUF_FONS.T < prev    next >
Text File  |  1991-12-28  |  19KB  |  329 lines
  1.     Tough Phones 4.05 -- San Antonio local phone directory
  2.     
  3.     RLW mods 28 Dec 91 for attendees, Telecommunications Seminar presented
  4.     by The Fors at San Antonio, Texas
  5.  
  6.     - presently setup for ZComm, Hayes 2400b modem, VGA gas plasma screen;
  7.       modem speeds in phone directory are set for 2400 bps and 1200 bps now.
  8.     - you'll have to do your thing for 9600 + in setup and phone directory...
  9. ::
  10. ::
  11. ::  -= A lean and mean platform for Pro-YAM and ZComm by Bob Willoughby =-
  12. ::
  13. ::    (...leaner and meaner if you decide to eliminate the cribsheet...)
  14. ::
  15. ::
  16. ::  This script is a plain ASCII text file, so you can edit or view it.  It
  17. ::  does require minor editing prior to use.  If that idea gives you the
  18. ::  willies, get started with Michael Ash's excellent PHOMAST.T script and
  19. ::  come back to Tough Phones for other ideas later.  Please go to the bottom
  20. ::  of this file for additional remarks.
  21. ::
  22. ::  Note:  To use this 'tuf_fons.t' script be sure to include the DOS command
  23. ::  'set phones=[path]\tuf_fons.t' in your autoexec.bat file to tell YAM or
  24. ::  ZComm where to find the script.
  25. ::
  26. ::  Or you can do it the way I do.  I do not use the DOS environment variable
  27. ::  to define the name and location of the phone directory script - I find it
  28. ::  easier or more direct to simply rename my YAM scripts 'phones.t' and my
  29. ::  ZComm scripts 'phomast.t' because those are the names the two programs are
  30. ::  looking for.  Then when I install the SNP (serial number password), I use
  31. ::  the install program to define the location of phones.t or phomast.t. 
  32. ::  Sorry, I'm old fashioned and a creature of habit -- and I suppose I am
  33. ::  not environmentally sound, at least so far as DOS is concerned...
  34. ::
  35. ::  I actively use both YAM and ZComm, so I put YAM into c:\yam and ZComm into
  36. ::  c:\zcomm; and I use a subdirectory called \tmp in both of those program
  37. ::  directories to store the log files that I have YAM and ZComm maintain.  By
  38. ::  the way, an unregistered copy of ZComm will not maintain logs.
  39. ::  
  40. ::  Don't be concerned with menu and function key differences between
  41. ::  tuf_fons.t and phomast.t when you run them -- they differ because Mike
  42. ::  and I have different approaches to telecommunications.  That is an
  43. ::  important point - Pro-YAM and ZComm let you assign your function keys to
  44. ::  do whatever you want them to do, and it is surprisingly easy.  So, one
  45. ::  of the reasons this small script is tossed into the pot is to provide
  46. ::  additional examples of script writing which you can plagiarize.
  47. ::
  48. ::  The key thing to keep in mind about scripts is that they are quite
  49. ::  dynamic.  Times change, modems change, your phone directories change,
  50. ::  and none of this stuff is locked in concrete.
  51. ::
  52. ::  A comment about comments -- after you understand this script, all lines
  53. ::  that begin with a double colon "::" may be deleted to save space and
  54. ::  speed things up (...faster load time and less sifting for Pro-YAM or
  55. ::  ZComm to do).  Also, you can scrub the cribsheet menu when you no longer
  56. ::  need that sort of quick reference crutch.  Then you can use the F3 key
  57. ::  for some other purpose.
  58. ::
  59. ::  "Commenting out" a line is simply placing a colon at the beginning of the
  60. ::  line so the comm program will not "read" that line in the script and do
  61. ::  what it says to do.  "Uncommenting" a line is just the opposite - it
  62. ::  involves deleting the colon at the beginning of the line so the script
  63. ::  can read the command(s) on that line and use them to run the program.
  64. ::
  65. ::  Well, lets get on with the actual script that does the work...
  66.  
  67. setup   port 1          :for COM1
  68.         : port 2        :for COM2
  69.         ena -d          :suppress the Carrier Lost msg during setup
  70.         pv-1            :Verbose OFF (-1 shows none; 50 shows all)
  71.         pa10000         :works fine with a 386DX at 20mhz
  72.  
  73. set:  : putw "ATE0X4V1 S7=20 S11=55 S0=0\r"    :a typical modem setup string
  74.       putw "AT&Y0\r"                   :set Hayes 2400b stored config profile 0
  75.       putw "AT E1 L0 M1 S7=25 S9=04 S10=10 S11=50 S25=3\r"  :Hayes 2400b parms, RLW
  76.       ::putw "AT E1 L0 M3 S9=07 S10=15 S11=55 S25=5\r"      :Hayes 2400b parms, RLW
  77.             ::M0 disable spkr
  78.             ::M3 disable spkr when rcv carrier signal & while modem is dialing
  79.             ::L0 or L1 low spkr volume
  80.         : putw "AT L0 V1 X4\r"             :set Hayes 2400 external modem, RLW
  81.         : putw "AT V1\r"                   :set Hayes 1200 external modem, RLW
  82.  
  83.         pd1                     : turn on time stamping
  84.         pi40                    : set redial for 40 seconds
  85.         set mprefix ATDT        : Tone Dial
  86.         : set mprefix ATDT1170, : Tone Dial plus call wait defeat, San Antonio
  87.         set l "1"; set m "1"
  88.         set quitcmd \003\336off\r       :press Alt-Q to set up auto log off
  89.                                         :when a long file xfr is finished
  90.  
  91.     ::  Note:  I like the following color setup with EGA/VGA color monitors,
  92.     ::         so I just uncomment the color setup and the display warpdrive
  93.     ::         lines below as well as comment out the monochrome line when
  94.     ::         I use a VGA monitor.  I reverse the foregoing procedure when I
  95.     ::         use a gas plasma screen.
  96.  
  97.         : if dc p*15 p@79 pn31 pr30 pu15 ps14       :color setup
  98.         : display warpdrive               :if CGA monitor, leave this line
  99.                                         :commented out
  100.  
  101.         : if dc pn15 pr112 pu15 ps7 p*7 p@7       :for std monochrome monitor
  102.  
  103.         if dc pn15 pr15 pu15 ps7 p*7 p@7        :more legible for gas plasma
  104.                                                   :VGA 16 gray scale screen
  105.                                                   :on Toshiba 5200.  "pn7" is
  106.                                                   :better on Toshiba 3200SX.
  107.  
  108.         set disks "abcde"
  109.  
  110.         display bell=visual    :Comment this line out if you like to be nagged!
  111.                                :: (commenting out line above turns on the beep)
  112.  
  113.         echo "Resetting Function Keys"; reskeys
  114.  
  115.         set f3 "@gosub qref"            ::Call Quick Reference Screen
  116.         set f4 "@kermit rb"             ::receive Super Kermit download
  117.         set f5 "@accept s2 Send_ASCII_Msg: f -p %s2"
  118.         : set f6 "@accept s3 Send_Z_MT: sz -rm /yam/%s3"  :send file in /yam
  119.                                                  :dir via Zmodem MobyTurbo
  120.                   : above line for use w/YAM - Comment it out if using ZComm
  121.         set f6 "@accept s3 Send_Z_MT: sz -rm /zcomm/%s3" :send file in /zcomm
  122.                                                  :dir via Zmodem MobyTurbo
  123.                   : uncomment above line if using ZComm
  124.         set f7 "@accept s4 Receive_CRCX: rc %s4"
  125.         set f8 "@accept s5 Send_CRCX: sx %s5"
  126.         set f9 "@keys"                   ::display func key assignments
  127.         : set helpfile "@!yhp \yam\umanh.hlp main"; set f10 "@help"
  128.                   : above line for use w/YAM - Comment it out if using ZComm
  129.         set helpfile "@!yhp \zcomm\zmanh.hlp zmain"; set f10 "@help"
  130.                   : uncomment above line if using ZComm
  131.         set fa1 "@gosub dir_chk"
  132.         set fa2 "@accept s6 Start_Capture_file_named: ; create -S %s6"
  133.         set fa3 "@write; close"             :write and close capture file
  134.         set fa5 "@kill; call -40 omen24"
  135.         set fa6 "@kill; call -40 buerg_1"
  136.         set fa7 "@kill; call -40 sands24"
  137.         set fa8 "@kill; call -40 apco_2"
  138.         set fa9 "@kill; call -40 blach24"
  139.         set fa10 "@kill; call -40 olde24"
  140.         set fa11 "@kill; call -40 mb_1"
  141.         set fa12 "@kill; call -40 shane24"
  142.  
  143.         : set calllog /yam/tmp/calllog  :Comment out this line if using ZComm
  144.         : set rxlog /yam/tmp/rxlog      :Comment out this line if using ZComm
  145.         : set txlog /yam/tmp/txlog      :Comment out this line if using ZComm
  146.         : set tmp /yam/tmp              :Comment out this line if using ZComm
  147.  
  148.     :: Presently set for unregistered shareware version of ZComm; uncomment
  149.     :: the next three lines after you register ZComm in order to create log
  150.     :: files in the /tmp subdirectory.  The unregistered shareware version
  151.     :: of ZComm can not make log files - it also has a very small circular
  152.     :: buffer (scrollback buffer).  Registration expands the circular
  153.     :: to a truly useful size!
  154.  
  155.         : set calllog /zcomm/tmp/calllog  :Uncomment this line if using ZComm
  156.         : set rxlog /zcomm/tmp/rxlog      :Uncomment this line if using ZComm
  157.         : set txlog /zcomm/tmp/txlog      :Uncomment this line if using ZComm
  158.         set tmp /zcomm/tmp              :Uncomment this line if using ZComm
  159.  
  160.         set adlopts rm     : makes Zmodem AutoDownload xfrs use the "r"
  161.                            : (resume/Crash Recovery) option along with
  162.                            : MobyTurbo mode of Zmodem.
  163.  
  164.  
  165. ::            This is an opening msg re the quick reference cribsheet.
  166. ::            Comment out the next three lines to skip the opening msg.
  167.  echo ""
  168.  echo "                    Press F3 for Quick Reference                       "
  169.  echo ""
  170.  
  171. qref  cls      :subroutine for quick reference "cribsheet" screen
  172.  echo "                                                                       "
  173.  echo "                   Bob's Pro-YAM/ZComm Cribsheet                       "
  174.  echo "                                                                       "
  175.  echo "F1  Exit Circular Buffer            F2  Enter Circular Buffer          "
  176.  echo "F3  This Cribsheet                  F4  Receive Kermit Download        "
  177.  echo "F5  Send ASCII Text                 F6  Send Zmodem Upload             "
  178.  echo "F7  Receive CrcXmodem Download      F8  Send CrcXmodem Upload          "
  179.  echo "F9  Show All Key Assignments        F10  Flashup Help Processor        "
  180.  echo "Alt-1  Get DOS Command prompt       Alt-2  Get YAM Command prompt      "
  181.  echo "                                                                       "
  182.  echo "                   -->  Capture File Routines <--                      "
  183.  echo "aF1  Chk capture files called _?_   aF2  Start a new capture file      "
  184.  echo "aF3  Close an open capture file                                        "
  185.  echo "                                                                       "
  186.  echo "                 --> Some Bulletin Board Systems <--                   "
  187.  echo "aF5  Telegodzilla..Chuck Forsberg   aF6  VOR BBS          ...Vern Buerg"
  188.  echo "aF7  Sands Pro BBS ..Steve Shelton  aF8  APCO       ...Robert Schoenert"
  189.  echo "aF9  Computer Connections .Blacher  aF10 Olde Guard     ...Dick Fochler"
  190.  echo "aF11 Motherboard   ...Julie Buerg   aF12 Commando Spt    ...Shane Stump"
  191.  echo "                                                                       "
  192.  echo "        To get out of ZComm, enter 'off' at the command prompt.        "
  193.  echo "Emergency EXIT - Enter 'ALT N' to Nuke it; then enter 'bye' to hang up!"
  194.  echo ""
  195.  
  196. dir_chk
  197.   accept s7 "\r\n\t Directory of which capture files?:"
  198.   lput "\r\n"
  199.   dirx %s7.*    ::Couldn't get DOS to substitute variable here so used YAM cmd
  200.   lput "\r\n"
  201.   return
  202.  
  203.  
  204. ::
  205. ::                  --- PHONE DIRECTORY ENTRIES ---
  206. ::
  207. omen24          speed 2400  %l-503-621-3746 ena -E;t -8g :home
  208. omen12          speed 1200  %l-503-621-3746 ena -E;t -8g :home
  209. : omen-voice    %l-503-621-3406\;                        : The Fors
  210. olde24          speed 2400  684-4470 ena -E;t -8g  :subscribe
  211. olde12          speed 1200  684-4470 ena -E;t -8g  :subscribe
  212. sands24         speed 2400  1-713-961-6604 ena -E;t -8g  :public
  213. sands12         speed 1200  1-713-961-6604 ena -E;t -8g  :public
  214. apco_1          speed 2400  496-5558 ena -E;t -8g  :member Node 1
  215. apco_2          speed 2400  496-5559 ena -E;t -8g  :member Node 2
  216. apco_112        speed 1200  496-5558 ena -E;t -8g  :member Node 1
  217. apco_212        speed 1200  496-5559 ena -E;t -8g  :member Node 2
  218. shane_1      speed 2400  670-1809 ena -EyZ;t -8g  :home, Back & Forth
  219. shane_112       speed 1200  670-1809 ena -EyZ;t -8g  :home, Back & Forth
  220. shane_2      speed 2400  670-0954 ena -EyZ;t -8g  :home, Back & Forth
  221. shane_212       speed 1200  670-0954 ena -EyZ;t -8g  :home, Back & Forth
  222. buerg_4         speed 2400  1-707-778-8817 ena -E;t -8g  :subscriber Node 4
  223. buerg_3         speed 2400  1-707-778-8749 ena -E;t -8g  :subscriber Node 3
  224. buerg_2         speed 2400  1-707-778-8936 ena -E;t -8g  :subscriber Node 2
  225. buerg_1         speed 2400  1-707-778-8944 ena -E;t -8g  :VOR BBS, public node
  226. buerg412        speed 1200  1-707-778-8817 ena -E;t -8g  :subscriber Node 4
  227. buerg312        speed 1200  1-707-778-8749 ena -E;t -8g  :subscriber Node 3
  228. buerg212        speed 1200  1-707-778-8936 ena -E;t -8g  :subscriber Node 2
  229. mb_1            speed 2400  1-707-778-8841 ena -E;t -8g  :public Node 1
  230. mb_2            speed 2400  1-707-778-8743 ena -E;t -8g  :public Node 2
  231. mb_112          speed 1200  1-707-778-8841 ena -E;t -8g  :public Node 1
  232. mb_212          speed 1200  1-707-778-8743 ena -E;t -8g  :public Node 2
  233. blach24        speed 2400  1-202-547-2008 ena -E;t -8g  :Robert Blacher
  234. blach12        speed 1200  1-202-547-2008 ena -E;t -8g  :Robert Blacher
  235. doane24         speed 2400  1-314-569-3176 ena -E;t -8g  :ag info svc, pay
  236. doane12         speed 1200  1-314-569-3176 ena -E;t -8g  :ag info svc, pay
  237. ::
  238. ::                     -= END OF PHONE DIRECTORY =-
  239.  
  240.  
  241. ::                Bob's Slick Manual Capture File Gambit
  242. ::
  243. ::  Capture file directory information routine -- capture files are located in
  244. ::  /yam directory, and are named according to the bbs called... e.g. mb.007
  245. ::  for motherboard file number 007.  Please see cribsheet for function keys
  246. ::  used in this script as well as the function key assignments in setup.  I
  247. ::  do not use a routine to automatically create capture files when I log
  248. ::  onto a system because I do not necessarily want a capture every time.  I
  249. ::  usually look first - if there are only three or four new messages that
  250. ::  are of no interest and there are no new files that are interesting, I do
  251. ::  not open a capture file for that particular comm session.  On the other
  252. ::  hand, if there are lots of msgs I have not read and/or new files that
  253. ::  attract my attention, I will check my current capture files with Alt-F1
  254. ::  and enter the filename for the board I am logged onto (e.g. 'olde' for
  255. ::  Olde Guard) to determine the last capture file number used; then I use
  256. ::  Alt-F2 to start a new capture file with the next capture file number.
  257. ::  For example, if the last filename for Olde Guard was olde.081, I hit
  258. ::  Alt-F2 and then enter 'olde.082' to kick off the next capture file in
  259. ::  the Olde Guard sequence with stripping of ascii/ansi characters (well,
  260. ::  most of them) activated.  Before I log off, I use Alt-F3 to close the
  261. ::  current sesssion capture file.  Naturally, the function key assignments
  262. ::  I use are arbitrary - if you want to do capture files in this manner, the
  263. ::  function key assignments and the labeling in the cribsheet are easily
  264. ::  changed to fit your script.  Mike Ash has a different approach in
  265. ::  phomast.t to use autologon scripts and to create capture files
  266. ::  automatically.  This explanation is only provided to give an example of a
  267. ::  different approach...  with *you* in the driver's seat.
  268.  
  269. ::
  270. ::                               REMARKS
  271. ::
  272. ::  A few remarks about my Tough Phones Script, if you don't mind...  heck,
  273. ::  lets face it, if you've read this far, you're already hooked <smile>:
  274. ::
  275. ::  I use a pared down version of Tough Phones every day that is a big,
  276. ::  bad 100 or so lines and about 5,200 bytes long (I modify it all the
  277. ::  time, so the size varies a little).  Thats it -- all of it, the whole
  278. ::  enchilada!  It dispenses with the memory kicker Cheatsheet menu included
  279. ::  with this script, all commenting was eliminated, and I even sent this
  280. ::  philosophical remarks section (timeless prose though it is) to the
  281. ::  big bit bin in the sky.  All that remains in my little script is the
  282. ::  setup section, a few function key assignments, and my phone directory --
  283. ::  it does not call any external subroutine scripts and like this Tough
  284. ::  Phones Script, it has no automated features.  And, it is FAST!!
  285. ::
  286. ::  Incidentally, I would use automated logon subroutines if I had accounts
  287. ::  with CompuServe or the other timesharing outfits.
  288. ::
  289. ::  I have examined and written Pro-YAM and ZComm scripts for several
  290. ::  years and I finally decided that all I really want a script to do is
  291. ::  to fire up YAM with a few basic parameters and a phone directory.
  292. ::  Then I just light YAM's afterburners and take manual control with
  293. ::  YAM's rich command set.  I get a lot of enjoyment out of direct
  294. ::  interaction with YAM and ZComm because they are marvelously flexible --
  295. ::  I don't need or crave any more than that.  So my trimmed down version
  296. ::  of this Tough Phones Script serves my individual needs quite well.  Yes,
  297. ::  it is a Spartan approach to telecommunications, but that is the way I
  298. ::  like it.  If you want a little bedrock to use as a starting point for
  299. ::  your more sophisticated script routines, be my guest.  That is why
  300. ::  I am making Tough Phones available.
  301. ::
  302. ::  Please understand that Tough Phones is a purely personal working script
  303. ::   -- it was not designed to teach script writing or to "cover all the
  304. ::  bases" for beginners.  If you want to kickstart YAM or ZComm and burn
  305. ::  rubber right out of the blocks, you need to get things up and running
  306. ::  with Michael Ash's excellent PHOMAST.T script which is distributed
  307. ::  with Pro-YAM and ZComm or available separately as PHOMAST6.ZIP.
  308. ::
  309. ::  Writing scripts is a lot of fun and it is very satisfying.  Many examples
  310. ::  are available in SCRIPTS.ZOO and DIALERS.ZIP which you can download from
  311. ::  Chuck Forsberg's Telegodzilla - they are in the /scripts subdirectory.
  312. ::
  313. ::  For more information, I strongly urge you to bite the bullet -- study
  314. ::  the Professional YAM manual that is furnished when you register either
  315. ::  Pro-YAM or ZComm.  Or at least read the shareware ZCOMMDOC.ZIP file
  316. ::  <..gasp..>!  You have to come to grips with the manual if you really
  317. ::  want to get the maximum benefit and power out of Pro-YAM or ZComm.  Yeah,
  318. ::  thats right...  you *know* deep down inside that is what you have to do.
  319. ::
  320. ::  In addition, you might want to subscribe to the Olde Guard (512-684-4470),
  321. ::  a bulletin board system in San Antonio, Texas that is a hangout for
  322. ::  several skillful Pro-YAM and ZComm users who enjoy swapping YAM yummies,
  323. ::  helping each other solve problems, and telling tall tales about tele-
  324. ::  communications ...<grin>.  Have a good day...
  325. ::
  326. ::                                  ...Bob
  327. ::
  328. ::++++++++++++++++++++++++++++ Thats All Folks! ++++++++++++++++++++++++++++::
  329.