;***********************************************************************
;*                                                                     *                                                            *
;* CSERVE.ASP  (C) 1990 DATASTORM TECHNOLOGIES, INC.                   *
;*                                                                     *
;* A sample ASPECT script file for logging onto CompuServe via local   *
;* CIS number.                                                         *
;*                                                                     *
;***********************************************************************
;
;***********************************************************************
; The following three defines should be customized with the dialing    *
; directory entry for your local CIS number, your CompuServe ID, and   *
; your CompuServe password.  The rest of the script should need no     *
; modification.                                                        *
;***********************************************************************

define CIS_NUMBER "1"        ; make sure entry is E71, full duplex, VT102 term
define ID "12345,1234"
define PASSWORD "abcdef*abcde"

proc main                     ; start of main procedure
   clear                      ; clear screen
   locate 0 0                 ; locate cursor at 0,0 
   box 0 0 4 29 14            ; draw box
   atsay 2 2 14 "Logging onto COMPUSERVE..."  ; put message in box
   locate 6 0                 ; cursor to row 6

   if not fromddir            ; if not called via Dial Dir link
      dial CIS_NUMBER         ; use dialing directory entry for CIS number
   endif
   pause 3                    ; wait three seconds
   transmit "^C"              ; transmit CTRL-C
   waitfor "User ID:"         ; wait for "User ID:" to come in COM port
   transmit ID                ; send your ID
   transmit "^M"              ; send carriage return
   waitfor "Password:"        ; wait for "Password:" to come in COM port
   transmit PASSWORD          ; send password
   transmit "^M"              ; send carriage return
   set enq cisb               ; turn on auto CIS downloads
   waitfor "!" 60             ; wait for CompuServe prompt
   transmit "g dstorm^M"      ; go to DATASTORM support forum
endproc                       ; end of main procedure