home *** CD-ROM | disk | FTP | other *** search
- ; LEXIS/NEXIS login script file (via TELENET)
- ; revised 05-02-89 for 2400+ baud --MKK
-
-
- DUplex Full
- WHen "TELENET" JUmp WE_ARE_IN
- JUmp @SP
-
-
- LAbel SP_300 ; Send TELENET a CR every second until it wakes up.
- LAbel SP_1200
- WAit Delay 10
- REply |
- JUmp SP_1200
-
- LAbel SP_2400 ; Send TELENET a CR and @ every second until it wakes up.
- LAbel SP_4800
- LAbel SP_9600
- LAbel SP_19200
- WAit Delay 10
- REply "@"
- WAit Delay 10
- REply |
- JUmp SP_19200
-
-
- ; Once it wakes up, get on with the show
-
- LAbel WE_ARE_IN
- WHen -
- WHen "assistance)" SKip MDC
- WAit String "TERMINAL="
- REply |
- WAit For "@"
- REply @C7
- REply |
- WAit String "CONNECTED"
- CLear
- WAit Manual
-
- LAbel MDC
- CLear
- WHen -
- WAit Quiet 5
- REply .XTALK
- REply |
- WAit String "TRANSMIT key"
- REply @C8
- REply |
- DUplex Half
-
-