home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / sharware / komunik / QMODEM / ALLSCRPT.ZIP / GENIE.SCR < prev    next >
Text File  |  1986-02-22  |  1KB  |  47 lines
  1. .THIS IS A STAND-ALONE SCRIPT; USE ALT-F TO RUN IT
  2.  
  3. .This script accesses a free online demo of GENIE via a toll-free 800#
  4. .using the Hayes modem dialing command. You must run this script using
  5. .the QMODEM Alt-F command, since it includes a phone number.
  6.  
  7. .As of 2/17/86: GENIE sign-up fee is 18.00. The non-prime access fees 
  8. .(if you sign up) are 5.00/hr @ 300/1200 baud or 15.00/hr @ 2400 baud
  9.  
  10. .If you already use GENIE, you can modify this script for normal access
  11. .by changing linking to a phone directory entry or changing the phone number,
  12. .and changing the Account# and Password to your own
  13.  
  14. NOTE ** CALLING GENIE (GENERAL ELECTRIC NETWORK FOR INFORMATION EXCHANGE) **
  15.  
  16. .Provide your own echo and use xon/xoff; set TIMEOUT to 60 seconds
  17. TURNON ECHO
  18. TURNOFF LINEFEED
  19.  
  20. .Goto the label FAILED if there are problems
  21. TIMEOUT 60 FAILED
  22.  
  23. .Set 7 bit word, even parity, 1 stop bit, and 1200 baud (D) or 300 baud (A)
  24. SETCOMM D
  25.  
  26. .Call the toll-free 800#, using Hayes command ATDT
  27. SEND "ATDT 1-800-638-8369{"
  28.  
  29. .Wait until modem returns CONNECT 
  30. WAITFOR "CONNECT"
  31.  
  32. .Send the three H's and CR to establish 'handshake' with GENIE
  33. SEND "HHH{"
  34.  
  35. .Wait for the first GENIE prompt
  36. WAITFOR "U#="
  37.  
  38. .Send Demo Account# (5JM11999) & Demo Password (GENIE)
  39. SEND "5JM11999,GENIE{"
  40. RETURN
  41.  
  42. .In case of failure (TIMEOUT)...
  43. FAILED:
  44. ** LOGON TO GENIE FAILED **
  45. RETURN
  46. 
  47.