;*************************************************************************
;* GENIE.ASP  (C) 1987 DATASTORM TECHNOLOGIES, INC.                      *
;*                                                                       *
;* A sample ASPECT script file for logging onto GEnie via local GENie    *
;* access number.                                                        *
;*                                                                       *
;*************************************************************************

ASSIGN S0 "555-1234"                ; Insert your local GEnie # here
ASSIGN S1 "uuuuuuuu,pppppp"         ; Insert your ID and password here

EMULATE ANSI               ; Select terminal emulation

IF NOT LINKED
   CLEAR
   MESSAGE "Calling GEnie"
   SET BAUD 1200                    ; Set line settings
   SET PARITY EVEN
   SET DATABITS 7
   SET DUPLEX HALF
   MDIAL S0                         ; Dial GEnie
ENDIF

PAUSE 4                             ; Pause
TRANSMIT "HHH^M"                    ; Send logon sequence
WAITFOR "U#="                       ; Wait for prompt
TRANSMIT S1                         ; Send user id/password
TRANSMIT "^M"                       ; Send CR