home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / ibm.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  2.5 KB  |  58 lines
  1. ***************************************************************************
  2. *       I B M . S C R --- Script for connecting to IBM CMS system         *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  Ibm.Scr                                                     *
  6. *                                                                         *
  7. *    Purpose: Connects to IBM CMS system with a 7171 front end.           *
  8. *             Designed for use as attached script in dialing directory.   *
  9. *                                                                         *
  10. *    Invocation:                                                          *
  11. *                                                                         *
  12. *       Execute "Ibm"                                                     *
  13. *                                                                         *
  14. *    Remarks:                                                             *
  15. *                                                                         *
  16. *       Change the values of "username" and "password" to those of        *
  17. *       your own Ibm account.                                             *
  18. *                                                                         *
  19. ***************************************************************************
  20. *
  21. *                                  Wake up 7171 front-end
  22.  Repeat
  23. *
  24.     SText "|"
  25. *                                  Wait for "Username" prompt.
  26.     WaitString "TYPE:" 2
  27. *
  28.  Until ( WaitFound OR ( NOT Connected ) )
  29. *
  30. *                                  Quit if carrier dropped.
  31.  IF ( NOT Connected ) THEN
  32.     Exit
  33.  ENDIF
  34. *                                  Send terminal type of VT100
  35.  SText "vt100|"
  36. *                                  Set VT100 emulation in PibTerm
  37.  SetParam 'VC' '0'
  38.  SetParam 'AK' '0'
  39. *                                  Load CMS function keys
  40.  IF ( EnhKeybd = 1 ) THEN
  41.     Key      'ibmcmse.fnc'
  42.  ELSE
  43.     Key      'ibmcms.fnc'
  44.  ENDIF
  45. *                                  Load backspace if not already done
  46.  SetParam 'BS' '^[[OD'
  47.  SetParam 'DE' '^[[OD'
  48. *                                  Wait for intro screen to finish.
  49.  WaitQuiet 30
  50. *                                  Issue login -- put your own account
  51. *                                  and password here.
  52. *
  53.  SText "|"
  54.  WaitQuiet 10
  55. *
  56.  SText "login username password|"
  57. *
  58.