;
     ; This script accesses a free online demo of GENIE via a toll-free
     ; 800# using the Hayes modem dialing command. You must run this
     ; script using the QMODEM Alt-F command, since it includes a phone
     ; number.
     ;
     ; This script can be linked to a Phone Book entry or executed
     ; with the Alt-F command.
     ;

Clrscr
Note ****  Calling GEnie!  ****
Note

Turnoff Linefeed 8_Bit
Turnon  Echo
Timeout 60 Failed                ; Goto label FAILED if there are problems

If      $ONLINE  Skip            ; If linked, goto label Skip
Setcomm 8 None 1
Send    "ATDT 1-800-638-8369^M"   ; Call the toll-free 800#
Waitfor "CONNECT"                ; Wait until modem returns CONNECT
Delay   500
Flush   ALL

Skip:                            ; Jump here if Linked Script
Send    "^~H^~H"                   ; Get GEnie's attention
Waitfor "U#="                    ; Look for the Password Prompt


Send    "XJM11873,QMODEM^M"       ; Send your ID and Password
Return


Failed:                          ; In case of failure (TIMEOUT)...
Note    **  Logon to GEnie failed **
Return