home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / cis.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  2.0 KB  |  36 lines
  1. ***************************************************************************
  2. *        C I S . S C R --- Script for connecting to CompuServe            *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  Cis.Scr                                                     *
  6. *                                                                         *
  7. *    Purpose: Connects to CompuServe.                                     *
  8. *                                                                         *
  9. *    Invocation:                                                          *
  10. *                                                                         *
  11. *       Execute "Cis"                                                     *
  12. *                                                                         *
  13. *    Remarks:                                                             *
  14. *                                                                         *
  15. *       Change the values of "user,id" and "password" to those of         *
  16. *       your own CIS account.                                             *
  17. *                                                                         *
  18. ***************************************************************************
  19. *
  20. *                                  Wait a few seconds for network to activate
  21.  Suspend 300
  22. *                                  Wake up CompuServe
  23.  SText "^C"
  24. *                                  Wait for userid prompt
  25.  WaitString "User"
  26. *                                  Send userid -- PUT YOURS HERE
  27.  SText "user,id|"
  28. *                                  Wait for password prompt
  29.  WaitString "Password:"
  30. *                                  Send password -- PUT YOURS HERE
  31.  SText "password|"
  32. *                                  Wait for main prompt
  33.  WaitString " !"
  34. *                                  Turn on CompuServe B protocol
  35.  SetParam "BP" "1"
  36. *