home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / nos.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  3.1 KB  |  66 lines
  1. ***************************************************************************
  2. *       N O S . S C R --- Script for connecting to Cyber NOS system       *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  Nos.Scr                                                     *
  6. *                                                                         *
  7. *    Purpose: Connects to Cyber NOS system.  Designed for use as          *
  8. *             attached script in dialing directory.                       *
  9. *                                                                         *
  10. *    Invocation:                                                          *
  11. *                                                                         *
  12. *       Execute "Nos"                                                     *
  13. *                                                                         *
  14. *    Remarks:                                                             *
  15. *                                                                         *
  16. *       Change the values of "username" and "password" to those of        *
  17. *       your own NOS 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. *                                  If carrier dropped, quit script.
  38.  If ( NOT Connected ) Then
  39.     Exit
  40.  Endif
  41. *                                  Indicate to CDCNET that we want
  42. *                                  a NOS session.  For NOS/VE, we
  43. *                                  would send "CREC VE" instead.
  44.  WaitQuiet 20
  45.  SText "crec nos|"
  46. *                                  Wait for username prompt
  47.  WaitString "USER NAME:"
  48. *                                  Send user name -- ENTER YOURS HERE.
  49.  SText "username|"
  50. *                                  Wait for password prompt
  51.  WaitString "PASSWORD:"
  52. *                                  Send password -- ENTER YOURS HERE.
  53.  SText "password|"
  54. *                                  Wait for bulletins, etc. to pass.
  55.  WaitQuiet 30
  56. *                                  Set VT100 emulation in PibTerm.
  57.  SetParam 'VC' '0'
  58.  SetParam 'AK' '0'
  59. *                                  Load NOS function keys.
  60.  Key 'cdcnos.fnc'
  61. *                                  Set backspace if not already set.
  62.  SetParam 'BS' '^H'
  63.  SetParam 'DE' ''
  64. *                                  Set VT100 emulation on NOS.
  65.  SText "SETTERM,VT100|"
  66.