home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / opus.scr < prev    next >
Encoding:
Text File  |  1988-02-25  |  2.2 KB  |  48 lines
  1. ***************************************************************************
  2. *        O P U S . S C R --- Script for logging into OPUS BBS system      *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  Opus.Scr                                                    *
  6. *                                                                         *
  7. *    Purpose: Connects to OPUS system.  Designed for use as               *
  8. *             attached script in dialing directory.                       *
  9. *                                                                         *
  10. *    Invocation:                                                          *
  11. *                                                                         *
  12. *       Execute "Opus"                                                    *
  13. *                                                                         *
  14. *    Remarks:                                                             *
  15. *                                                                         *
  16. *       Change the values of "firstname", "lastname", and "password"      *
  17. *       to those of your own OPUS account.                                *
  18. *                                                                         *
  19. ***************************************************************************
  20. *
  21. *                                  Wait for name prompt.
  22.  Waitstring "Your FIRST name:" 2
  23. *                                  Carrier dropped -- quit.
  24.  If ( NOT Connected ) Then
  25.     Exit
  26.  EndIf
  27. *                                  Didn't get "FIRST name" prompt -- quit.
  28.  If ( NOT WaitFound ) Then
  29.     Exit
  30.  Endif
  31. *
  32. *                                  Send first name, last name.
  33. *                                  PUT YOURS HERE.
  34. *
  35.  SText   "firstname lastname|"
  36. *
  37. *                                  Reply "y" to validation prompt
  38. *
  39.  Waitstring "Y,n"
  40.  Stext "y|"
  41. *
  42. *                                 Wait for password prompt and then
  43. *                                 send password.
  44. *                                 PUT YOURS HERE.
  45. *
  46.  Waitstring "assword:"
  47.  Stext "password|"
  48.