home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / n / newscr.zip / NEWSCR.EXE / MERCURY.SCR < prev    next >
Text File  |  1993-01-04  |  2KB  |  58 lines

  1. !---------------------------------------------------------------------!
  2. !                                                                     !
  3. !  Copyright (c) 1992                                                 !
  4. !  by CompuServe Incorporated, Columbus, Ohio                         !
  5. !                                                                     !
  6. !  The information in this software is subject to change without      !
  7. !  notice and should not be construed as a commitment by CompuServe.  !
  8. !                                                                     !
  9. !  MERCURY SCRIPT:                                                    !
  10. !     Connect to Mercury                                              !
  11. !     Success:  returns %Success                                      !
  12. !     Failure:  saves error msg in %FailureMsg and returns %Failure   !
  13. !                                                                     !
  14. !     $Revision::   1.1      $                                        !
  15. !                                                                     !
  16. !---------------------------------------------------------------------!
  17.  
  18. Mercury_NUA = ",,UKCNS";
  19.  
  20. show "Connecting to Mercury 5000";
  21. Tries = 5;
  22. on cancel goto Return_Cancel;
  23. wait until 15;
  24. send %CR & %CR & %CR & %CR;
  25.  
  26. Wait_Mercury:
  27.  
  28.       if Tries = 0 goto Mercury_Failure;
  29.       Tries = Tries - 1;
  30.  
  31.       wait
  32.         "SERVICE"     goto Send_Mercury_NUA,
  33.         "FAILURE"     goto Wait_Mercury,
  34.         "Host Name:"  goto Return_Success
  35.       until 80;
  36.  
  37.       send %CR;
  38.       goto Wait_Mercury;
  39.  
  40. Send_Mercury_NUA:
  41.       show "Sending Mercury User Address ...";
  42.       send Mercury_NUA & %CR;
  43.       goto Wait_Mercury;
  44.  
  45. Mercury_Failure:
  46.       define %FailureMsg = "Mercury not responding";
  47.       exit %Failure;
  48.  
  49. Return_Cancel:
  50.     exit %Cancel;
  51.  
  52. Return_Success:
  53.     exit %Success;
  54.  
  55.  
  56.  
  57.  
  58.