home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / source.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  2.2 KB  |  42 lines
  1. ***************************************************************************
  2. *        S O U R C E . S C R  --- Script for connecting to Source         *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  Source.Scr                                                  *
  6. *                                                                         *
  7. *    Purpose: Connects to Source.  Designed for use as an attached        *
  8. *             script in dialing directory.                                *
  9. *                                                                         *
  10. *    Invocation:                                                          *
  11. *                                                                         *
  12. *       Execute "Source"                                                  *
  13. *                                                                         *
  14. *    Remarks:                                                             *
  15. *                                                                         *
  16. *       Change the values of "system", "username", and "password" to      *
  17. *       those of your own Source account.                                 *
  18. *                                                                         *
  19. ***************************************************************************
  20. *
  21. *                                  Wait for network to wake up
  22. Suspend 30
  23. *                                  Loop waiting for TERMINAL= prompt.
  24. REPEAT
  25.    SText '|'
  26.    WaitString "TERMINAL=" 4
  27. UNTIL ( WaitFound )
  28. *                                  Send CR
  29. SText "|"
  30. *                                  Wait for "@" prompt
  31. WaitString "@"
  32. *                                  Send system ID -- PUT YOURS HERE
  33. SText "C system|"
  34. *                                  Wait for ">" prompt
  35. WaitString ">"
  36. *                                  Send user ID -- PUT YOURS HERE
  37. SText "ID username|"
  38. *                                  Wait for password prompt
  39. WaitString "?"
  40. *                                  Send password -- PUT YOURS HERE
  41. SText "password|"
  42. *