home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Spezial
/
SPEZIAL2_97.zip
/
SPEZIAL2_97.iso
/
ANWEND
/
ONLINE
/
TE2_134T
/
te2inst.003
/
CIS.scr
< prev
next >
Wrap
Text File
|
1997-07-03
|
1KB
|
48 lines
;; -------------------------------------------------------------------------
;;
;; CIS.Scr -- Copyright (c) 1993-94, Oberon Software, Mankato Mn
;; Author: Brady Flowers, 04/01/93
;;
;; Login Script for CompuServe. Expects that your CIS Password will be
;; contained in the CIS dialing directory entry.
;;
;; -------------------------------------------------------------------------
string DialerEntry = "CIS" <== Change this for your setup
string myID = "99999,999" <== Change this to your CIS ID
integer i
integer j
program
if !connected
dial(DialerEntry)
endif
if connected
setxonxoff(3)
sleep(200)
do
transmit("^M")
j = muxwait("/Host Name:/User ID:/", 5)
if j == 1
transmit("CPS")
continue
elseif j == 2
transmit("%s^M", myID)
waitfor("Password:", 30)
transmit("%s^M", password(""))
break
else
i = i + 1
sleep(500)
endif
loop while i < 3
if i == 3
hangup(ifcarrier)
endif
endif