;*************************************************************************
;* BIX.ASP  (C) 1987 DATASTORM TECHNOLOGIES, INC.                        *
;*                                                                       *
;* A sample ASPECT script file for logging onto BIX via local Tymnet.    *
;*                                                                       *
;*************************************************************************

ASSIGN S0 "874-2771"     ; enter your local TYMNET number here
ASSIGN S1 "uuuuuuuuu"    ; enter your USERID here
ASSIGN S2 "ppppp"        ; enter your PASSWORD here

EMULATE ANSI               ; Select terminal emulation

WHEN ".More." "^M"

IF NOT LINKED
   CLEAR
   TIME S8 0
   DATE S9
   FATSAY 0 0 31 "Dialing BIX via Tymnet at %s on %s" S8 S9
   SET BAUD 1200        ; configure line settings
   SET PARITY EVEN
   SET DATABITS 7
   SET DUPLEX FULL
   MDIAL S0             ; Dial TYMNET
ENDIF

PAUSE 5                 ; Wait for network to wake up
TRANSMIT "a^M"          ; Send terminal ID
WAITFOR "user name:"    ; Wait for prompt
TRANSMIT "bix^M"        ; Request BIX
WAITFOR "Name?"         ; Wait for prompt
TRANSMIT S1             ; Send ID followed by
TRANSMIT "^M"           ; Carriage return
WAITFOR "Password:"     ; Wait for prompt
TRANSMIT S2             ; Send password followed
TRANSMIT "^M"           ; by carriage return
WAITFOR "You have"      ; Wait for prompt
WAITFOR ":"             ; Wait for command prompt
ALARM 2                 ; Alert user to logon