home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #2 / RBBS_vol1_no2.iso / 001g / genie.scr < prev    next >
Text File  |  1989-03-01  |  1KB  |  38 lines
  1.      ;
  2.      ; This script accesses a free online demo of GENIE via a toll-free
  3.      ; 800# using the Hayes modem dialing command. You must run this
  4.      ; script using the QMODEM Alt-F command, since it includes a phone
  5.      ; number.
  6.      ;
  7.      ; This script can be linked to a Phone Book entry or executed
  8.      ; with the Alt-F command.
  9.      ;
  10.  
  11. Clrscr
  12. Note ****  Calling GEnie!  ****
  13. Note
  14.  
  15. Turnoff Linefeed 8_Bit
  16. Turnon  Echo
  17. Timeout 60 Failed                ; Goto label FAILED if there are problems
  18.  
  19. If      $ONLINE  Skip            ; If linked, goto label Skip
  20. Setcomm 8 None 1
  21. Send    "ATDT 1-800-638-8369^M"   ; Call the toll-free 800#
  22. Waitfor "CONNECT"                ; Wait until modem returns CONNECT
  23. Delay   500
  24. Flush   ALL
  25.  
  26. Skip:                            ; Jump here if Linked Script
  27. Send    "^~H^~H"                   ; Get GEnie's attention
  28. Waitfor "U#="                    ; Look for the Password Prompt
  29.  
  30.  
  31. Send    "XJM11873,QMODEM^M"       ; Send your ID and Password
  32. Return
  33.  
  34.  
  35. Failed:                          ; In case of failure (TIMEOUT)...
  36. Note    **  Logon to GEnie failed **
  37. Return
  38.