home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
RBBS in a Box Volume 1 #2
/
RBBS_vol1_no2.iso
/
001g
/
cis.scr
< prev
next >
Wrap
Text File
|
1989-03-01
|
2KB
|
53 lines
;
; 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