home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / rbbso.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  2.0 KB  |  37 lines
  1. ***************************************************************************
  2. *  R B B S O. S C R --- Script for logging into old RBBS BBS system       *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  RbbsO.Scr                                                   *
  6. *                                                                         *
  7. *    Purpose: Connects to old RBBS system without automatic speed detect. *
  8. *             This script is meant for use as attached script in          *
  9. *             dialing directory.                                          *
  10. *                                                                         *
  11. *    Invocation:                                                          *
  12. *                                                                         *
  13. *       Execute "RbbsO"                                                   *
  14. *                                                                         *
  15. *    Remarks:                                                             *
  16. *                                                                         *
  17. *       Change the values of "firstname", "lastname", and "password"      *
  18. *       to those of your own RBBS account.                                *
  19. *                                                                         *
  20. ***************************************************************************
  21. *
  22. *                                  Send a few carriage returns to
  23. *                                  wake up RBBS.
  24.  REPEAT
  25.     Stext "|"
  26.     WaitString "ame:" 3
  27.  UNTIL ( WaitFound )
  28. *                                  Quit if not connected.
  29.  IF ( NOT Connected ) THEN
  30.     Exit
  31.  ENDIF
  32. *
  33. *                                  Send first name, last name, and password.
  34. *                                  PUT YOURS HERE.
  35. *
  36.  SText   "firstname;lastname;password|"
  37.