;*************************************************************************
;* SOURCE.ASP  (C) 1987 DATASTORM TECHNOLOGIES, INC.                     *
;*                                                                       *
;* A sample ASPECT script file for logging onto The Source via Telenet.  *
;*                                                                       *
;*************************************************************************

ASSIGN S0 "449-4404"       ; enter your local TELENET number here
ASSIGN S1 "uuunnn"         ; enter your USERID here
ASSIGN S2 "pppppp"         ; enter your PASSWORD here
ASSIGN S3 "C Snn"          ; enter your SYSTEM ID here

EMULATE ANSI               ; Select terminal emulation

IF NOT LINKED              ; If not called via Dial Dir
   CLEAR
   TIME S8 0
   DATE S9
   FATSAY 0 0 31 "Dialing The Source at %s on %s" S8 S9
   SET BAUD 1200            ; configure line settings
   SET PARITY EVEN
   SET DATABITS 7
   SET DUPLEX FULL
   MDIAL S0                 ; Dial TELENET
ENDIF

PAUSE 2                    ; Wait a sec for network
TRANSMIT "^M^M"            ; Wake up TELENET
WAITFOR "TERMINAL="        ; Wait for prompt
TRANSMIT "^M"              ; Send CR
WAITFOR "@"                ; Wait for prompt
TRANSMIT S3                ; Send SYSTEM ID
TRANSMIT "^M"              ; Send CR
WAITFOR ">"                ; Wait for prompt
TRANSMIT "ID "             ; Send ID string
TRANSMIT S1
TRANSMIT "^M"              ; and CR
WAITFOR "?"                ; Wait for prompt
TRANSMIT S2                ; Send PASSWORD
TRANSMIT "^M"              ; and CR