File: script.CIS

package info (click to toggle)
seyon 2.20c-34
  • links: PTS
  • area: main
  • in suites: bookworm, bullseye, trixie
  • size: 1,420 kB
  • sloc: ansic: 17,887; yacc: 184; sh: 183; makefile: 9
file content (52 lines) | stat: -rw-r--r-- 1,228 bytes parent folder | download | duplicates (11)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

# The following IF condition tests to see if we are linked from a .phonelist
# entry.  If not, we manually dial the local COMPUSERVE node:

    if !linked
	dial	687-0374	# Note anything past a full command is ignored
    endif

# Wait for a CONNECT message from the modem.  If we time out (20 seconds),
# redial the number (it is probably busy).

connect:
    waitfor "CONNECT" 20
    if !waitfor
	redial
	goto connect
    endif

# Pause a bit to let CIS catch up with us

    pause 2

# Transmit a Control-C (^C) to CompuServe, and then wait for the
# prompt "User ID:".  If this is not seen in 10 seconds, we try again.

cis:
    transmit "^C"
    waitfor "User ID:"  10
    if !waitfor
	goto cis
    endif

# Transmit the user id string (remember the ^M at the end for ENTER)...

    transmit "72236,3516^M"

# Wait for CompuServe to ask for a password...

    waitfor "Password:"

# Transmit our password
# (You don't think for a moment that this is my REAL password, do you?????)

    transmit "YELLOW*BANANA^M"
    
# Wait for CompuServe header, and then transmit "G UNIXFORUM^M^O"
# (The ^M is an ENTER, the ^O tells CompuServe to shut up until we
# get there.)

    waitfor "Compuserve"

    transmit "G UNIXFORUM^M^O"