;
     ; Linked script for CompuServe Information Service (CIS)
     ;   via CIS's own network.
     ; Link this to phone directory entries for CIS phone numbers.
     ;
     ; NOTE: This script assumes that you have set your terminal
     ; options on CIS (see CIS main menu) at 8 bits, no parity, 1 stop
     ; bit. If not, this script may NOT work for you!  Your QMODEM
     ; settings should be the same.  ALSO: Be sure to use XMODEM
     ; RELAXED protocol if you download CIS files!
     ;
     ; USE YOUR WORD PROCESSOR TO EDIT THIS FILE TO INCLUDE
     ;
     ;         [1] Your CIS account#
     ;         [2] Your CIS password
     ;         [3] Any CIS command(s)
     ;


NOTE ** LOGON TO COMPUSERVE **     ; Display message on-screen only

TIMEOUT 60                         ; Wait 60 seconds before halting script

TURNOFF ECHO LINEFEED              ; Set key parameters for CIS

;---------------------------------------------------------------------------;
; Call CIS; phone number, bps, comm parameters depend on directory entry #. ;
; For local #s, contact CIS at 800-848-8990 or 614-457-8650                 ;
;---------------------------------------------------------------------------;

DELAY 1000                         ; Pause 1 second
SEND  '^C'                         ; Send ^C

WAITFOR ":"                        ; Wait for CIS to request your account#

SEND "^~^~12345,1234^M"               ; [1] Pause 1 second,
                                   ; then reply with your account#

WAITFOR "Password:"                ; Wait for CIS to request your password

SEND "^~^~FAKE-PASSWORD^M"            ; [2] Pause 1 second,
                                   ; then reply with your CIS password

WAITFOR "!"                        ; Wait for CIS to Request your input

SEND "^~^~GO PCS-131^M"               ; [3] Pause for 1 second,
                                   ; then send any CIS command, such as:
                                   ;     GO PCS-131 (IBM PRO-SIG)
                                   ; -or-
                                   ;     GO PCS-129 (IBM NOVICE SIG)

RETURN                             ; return control to keyboard