home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / pibhost.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  3.0 KB  |  69 lines
  1. ***************************************************************************
  2. *      P I B H O S T . S C R --- Script for logging into PibTerm host     *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  PibHost.Scr                                                 *
  6. *                                                                         *
  7. *    Purpose: Connects to PibTerm host system.  Designed for use as       *
  8. *             attached script in dialing directory.                       *
  9. *                                                                         *
  10. *    Invocation:                                                          *
  11. *                                                                         *
  12. *       Execute "PibHost"                                                 *
  13. *                                                                         *
  14. *    Remarks:                                                             *
  15. *                                                                         *
  16. *       Change the values of "firstname", "lastname", and "password"      *
  17. *       to those of your own PibTerm host account.                        *
  18. *                                                                         *
  19. ***************************************************************************
  20. *
  21. *                                  Holds prompt type encountered.
  22.  Declare Mess Integer
  23. *                                  Wait for overprinting prompt.
  24.  WaitString "T I N G ?"
  25. *                                  Reply Yes.
  26.  SText "Y"
  27. *                                  Wait for first name prompt.
  28.  WaitString "first name:"
  29. *                                  Send first name.
  30. *                                  PUT YOURS HERE.
  31. *
  32.  SText   "firstname|"
  33. *                                  Wait for last name prompt.
  34.  WaitString "last name:"
  35. *                                  Send last name.
  36. *                                  PUT YOURS HERE.
  37. *
  38.  SText   "lastname|"
  39. *                                  Wait for password prompt.
  40.  WaitString "Password:"
  41. *                                  Send password name.
  42. *                                  PUT YOURS HERE.
  43. *
  44.  SText   "password|"
  45. *                                  Wait for message scan to finish.
  46. *
  47.  Repeat
  48. *                                  Wait for paging message or
  49. *                                  end of scan message.
  50. *
  51.     WaitList Mess "non-stop" "continue:"
  52. *
  53.     DOCASE Mess OF
  54. *                                  Run through entire message scan.
  55. *                                  We can always look again later.
  56.        CASE 1
  57.           SText "C"
  58.        ENDCASE
  59. *                                  Send <CR> to get main PibTerm host
  60. *                                  mode menu.
  61.       CASE 2
  62.          SText "|"
  63.       ENDCASE
  64. *
  65.     ENDDOCASE
  66. *
  67.  Until ( Mess > 1 )
  68. *
  69.