home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / kermit / ker_scp3.arc / TCOMM.SCP < prev    next >
Text File  |  1988-09-10  |  3KB  |  62 lines
  1. Comment    TCOMM.SCP to log on to a TCOMM BBS
  2. ;v1.0, early 1988
  3. ;
  4. ;Fire up PC-Kermit, setting your port, terminal emulation, etc.
  5. ;either thru the MSKERMIT.INI file or manually.
  6. ;Then, at the Kermit prompt, give Kermit the following command:
  7. ;    Kermit-MS> take tcomm.scp
  8. ;Kermit will run the following script file.
  9. ;
  10. ;Tested with SEMPER BBS, Fayetteville NC, and should work with all other
  11. ;TCOMM BBS's.  If not, read TOADSCRP.DOC for suggestions on how to build
  12. ;your own Kermit script file.
  13. ;
  14. ;This works fine with PC-Kermit v2.29 and up.  It does NOT use the more
  15. ;powerful script language available with the latest (v2.31).
  16. ;(Haven't figured it all out yet!)
  17. ;David Kirschbaum
  18. ;Toad Hall
  19. ;kirsch@braggvax.ARPA
  20. ;
  21. ;Substitute the baud rate you want here:
  22. SET BAUD 2400;            set baud to 2400 for TCOMM
  23. CLEAR;                flush any junk at the port
  24. SET TAKE OFF;            don't display Take file commands as we go
  25. SET INPUT TIMEOUT-ACTION QUIT;    quit script if proper answers do not appear
  26. OUTPUT \10;            Send a CR to the modem to get a new line
  27. OUTPUT AT\13;            see if modem is alive
  28. INPUT OK;            look for its normal response
  29. OUTPUT ATDP 867-7493\13;    Tell the modem to dial the number
  30. INPUT 25 CONNECT;        wait for phone to be answered
  31. PAUSE 1;            wait 1 sec for modem to get ready
  32. SET INPUT TIMEOUT PROCEED;    ignore timeouts from here on
  33. ;Like most BBS's, TCOMM displays all sorts of introductory stuff before
  34. ;it begins the login sequence.
  35. ;We'll tell Kermit to wait until the "Press any key to continue" prompt
  36. ;(or whatever).
  37. INPUT 30 continue: ;        look for TCOMM's login sequence
  38. OUTPUT \13;            Just send a CR
  39. ;TCOMM BBSs determine your comm program's capabilities by a tricky
  40. ;login test .. displaying various graphic chars, cursor positioning,
  41. ;etc., and querying you as to what displayed.
  42. ;All that graphics and flashy stuff just slows down the operation
  43. ;(So far as I'm concerned), so I just tell TCOMM I'm a dumb terminal.
  44. ;(Or maybe ANSI .. I forget.)
  45. ;
  46. INPUT 30 Why)? ;        do you see the "1"
  47. OUTPUT Y\13;            yes, we see that
  48. INPUT 30 Why)? ;        do you see the other "1"
  49. OUTPUT N\13;            nope, no graphics
  50. INPUT 30 last name: ;        Wait for the end of TCOMM's name prompt
  51. ;                (TCOMM takes first and last name together)
  52. ;Substitute your name here .. case immaterial:
  53. OUTPUT david kirschbaum\13;    Send our user name
  54. INPUT 30 echo): ;        Wait for the end of TCOMM's password prompt
  55. ;Substitute your password here (I think case matters):
  56. OUTPUT password\13;        Send the password
  57. ;
  58. ;Kermit will drop you back at its command line.
  59. ;Enter "c" to go into "connect" or terminal mode,
  60. ;and you can continue with your TCOMM session.
  61. ;(Expect some bulletins or whatever in a second or two.)
  62.