home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / nosve.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  3.1 KB  |  67 lines
  1. ***************************************************************************
  2. *    N O S V E . S C R --- Script for connecting to Cyber NOS/VE system   *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  NosVe.Scr                                                   *
  6. *                                                                         *
  7. *    Purpose: Connects to Cyber NOS/VE system.  Designed for use as       *
  8. *             attached script in dialing directory.                       *
  9. *                                                                         *
  10. *    Invocation:                                                          *
  11. *                                                                         *
  12. *       Execute "NosVe"                                                   *
  13. *                                                                         *
  14. *    Remarks:                                                             *
  15. *                                                                         *
  16. *       Change the values of "username" and "password" to those of        *
  17. *       your own NOS/VE account.                                          *
  18. *                                                                         *
  19. ***************************************************************************
  20. *
  21. *                                  Send CRs to wake up autobaud
  22.  Repeat
  23. *
  24.     SText "|"
  25. *                                  Wait on parity message, indicating
  26. *                                  baud rate/parity detected
  27.     WaitString "arity" 4
  28. *
  29.  Until ( WaitFound OR ( NOT Connected ) )
  30. *
  31. *                                  If carrier dropped, quit script.
  32.  If ( NOT Connected ) Then
  33.     Exit
  34.  Endif
  35. *                                  Now wait for "operating system" prompt
  36.  WaitString "ting system"
  37. *                                  Indicate to CDCNET that we want
  38. *                                  a NOS/VE session.  For NOS, we
  39. *                                  would send "CREC NOS" instead.
  40.  WaitQuiet 20
  41.  SText "crec ve|"
  42. *                                  Wait for username prompt
  43.  WaitString "User:"
  44. *                                  Send user name and password --
  45. *                                  PUT YOURS HERE.
  46.  SText "username,password|"
  47. *
  48. *                                  Wait for control statement prompt
  49.  WaitString "/"
  50.  WaitQuiet 30
  51. *                                  Set VT100 emulation in PibTerm.
  52.  SetParam 'VC' '0'
  53.  SetParam 'AK' '0'
  54. *                                  Load NOS/VE function keys
  55.  Key      'cdcnos.fnc'
  56. *                                  Set backspace if not already set.
  57.  SetParam 'BS' '^H'
  58.  SetParam 'DE' ''
  59. *                                  Tell NOS/VE we're a VT100.
  60. *                                  These commands may already be in
  61. *                                  your PROLOG file, but it doesn't
  62. *                                  hurt to re-issue them.
  63. *
  64.  SText "chata tm=vt100 tc=vt100|"
  65.  WaitString "/"
  66.  SText "chais screen|"
  67. *