home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
pibterm
/
pibt41e3.zip
/
IBM.SCR
< prev
next >
Wrap
Text File
|
1988-02-26
|
3KB
|
58 lines
***************************************************************************
* I B M . S C R --- Script for connecting to IBM CMS system *
***************************************************************************
* *
* Script: Ibm.Scr *
* *
* Purpose: Connects to IBM CMS system with a 7171 front end. *
* Designed for use as attached script in dialing directory. *
* *
* Invocation: *
* *
* Execute "Ibm" *
* *
* Remarks: *
* *
* Change the values of "username" and "password" to those of *
* your own Ibm account. *
* *
***************************************************************************
*
* Wake up 7171 front-end
Repeat
*
SText "|"
* Wait for "Username" prompt.
WaitString "TYPE:" 2
*
Until ( WaitFound OR ( NOT Connected ) )
*
* Quit if carrier dropped.
IF ( NOT Connected ) THEN
Exit
ENDIF
* Send terminal type of VT100
SText "vt100|"
* Set VT100 emulation in PibTerm
SetParam 'VC' '0'
SetParam 'AK' '0'
* Load CMS function keys
IF ( EnhKeybd = 1 ) THEN
Key 'ibmcmse.fnc'
ELSE
Key 'ibmcms.fnc'
ENDIF
* Load backspace if not already done
SetParam 'BS' '^[[OD'
SetParam 'DE' '^[[OD'
* Wait for intro screen to finish.
WaitQuiet 30
* Issue login -- put your own account
* and password here.
*
SText "|"
WaitQuiet 10
*
SText "login username password|"
*