home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / vax.scr < prev   
Encoding:
Text File  |  1988-02-26  |  2.4 KB  |  56 lines
  1. ***************************************************************************
  2. *        V A X . S C R --- Script for connecting to Vax VMS system        *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  Vax.Scr                                                     *
  6. *                                                                         *
  7. *    Purpose: Connects to Vax VMS system.  Designed for use as            *
  8. *             attached script in dialing directory.                       *
  9. *                                                                         *
  10. *    Invocation:                                                          *
  11. *                                                                         *
  12. *       Execute "Vax"                                                     *
  13. *                                                                         *
  14. *    Remarks:                                                             *
  15. *                                                                         *
  16. *       Change the values of "username" and "password" to those of        *
  17. *       your own Vax account.                                             *
  18. *                                                                         *
  19. ***************************************************************************
  20. *
  21. *                                  Wake up Vax's autobaud.
  22.  Repeat
  23. *
  24.     SText "|"
  25. *                                  Wait for "Username" prompt.
  26.     WaitString "Username:" 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 user name -- PUT YOURS HERE.
  35.  SText "username|"
  36. *                                  Wait for password prompt.
  37.  WaitString "Password:"
  38. *                                  Send password -- PUT YOURS HERE.
  39.  SText "password|"
  40. *
  41. *                                  Set VT100 emulation
  42.  SetParam 'VC' '0'
  43.  SetParam 'AK' '0'
  44. *
  45.  WaitString "$ "
  46.  SText "SET TERM/VT100|"
  47. *                                  Load Vax function keys
  48.  IF ( EnhKeybd = 1 ) THEN
  49.     Key 'decvaxe.fnc'
  50.  ELSE
  51.     Key 'decvax.fnc'
  52.  ENDIF
  53. *                                  Set backspace if not already set.
  54.  SetParam 'DE' '^H'
  55.  SetParam 'BS' ''
  56.