home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
pibterm
/
pibt41e3.zip
/
VAX.SCR
< prev
Wrap
Text File
|
1988-02-26
|
2KB
|
56 lines
***************************************************************************
* V A X . S C R --- Script for connecting to Vax VMS system *
***************************************************************************
* *
* Script: Vax.Scr *
* *
* Purpose: Connects to Vax VMS system. Designed for use as *
* attached script in dialing directory. *
* *
* Invocation: *
* *
* Execute "Vax" *
* *
* Remarks: *
* *
* Change the values of "username" and "password" to those of *
* your own Vax account. *
* *
***************************************************************************
*
* Wake up Vax's autobaud.
Repeat
*
SText "|"
* Wait for "Username" prompt.
WaitString "Username:" 2
*
UNTIL ( WaitFound OR ( NOT Connected ) )
*
* Quit if carrier dropped.
IF ( NOT Connected ) THEN
Exit
ENDIF
* Send user name -- PUT YOURS HERE.
SText "username|"
* Wait for password prompt.
WaitString "Password:"
* Send password -- PUT YOURS HERE.
SText "password|"
*
* Set VT100 emulation
SetParam 'VC' '0'
SetParam 'AK' '0'
*
WaitString "$ "
SText "SET TERM/VT100|"
* Load Vax function keys
IF ( EnhKeybd = 1 ) THEN
Key 'decvaxe.fnc'
ELSE
Key 'decvax.fnc'
ENDIF
* Set backspace if not already set.
SetParam 'DE' '^H'
SetParam 'BS' ''