;*************************************************************************
;* CSERVE.ASP  (C) 1987 DATASTORM TECHNOLOGIES, INC.                     *
;*                                                                       *
;* A sample ASPECT script file for logging onto CompuServe via local     *
;* CIS number.                                                           *
;*                                                                       *
;*************************************************************************

ASSIGN S0 "442-4600"       ; enter your local CIS number here
ASSIGN S1 "uuuuu,uuuu"     ; enter your USERID here
ASSIGN S2 "ppppp.pppppp"   ; enter your PASSWORD here

EMULATE VT102              ; emulate VT102 terminal

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

PAUSE 3
TRANSMIT "^C"              ; Transmit Ctrl-C
WAITFOR "User ID:"         ; Wait for "User ID:" to come in COM port
TRANSMIT S1                ; Send user ID
TRANSMIT "^M"              ; Send user <CR>
WAITFOR "Password:"        ; Wait for "Password:" to come in COM port
TRANSMIT S2                ; Send password
TRANSMIT "^M"              ; Send <CR>
SET ENQ CISB               ; Turn on auto CIS downloads
ALARM 2                    ; Sound alarm to let you know logon is complete