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"
|