The World of Computer Software/World_Of_Computer_Software-02-387-Vol-3of3.iso/n/newscr.zip/NEWSCR.EXE/MERCURY.SCR

Text File | 1993-01-04 | 2KB | 58 lines

!---------------------------------------------------------------------!
!                                                                     !
!  Copyright (c) 1992                                                 !
!  by CompuServe Incorporated, Columbus, Ohio                         !
!                                                                     !
!  The information in this software is subject to change without      !
!  notice and should not be construed as a commitment by CompuServe.  !
!                                                                     !
!  MERCURY SCRIPT:                                                    !
!     Connect to Mercury                                              !
!     Success:  returns %Success                                      !
!     Failure:  saves error msg in %FailureMsg and returns %Failure   !
!                                                                     !
!     $Revision::   1.1      $                                        !
!                                                                     !
!---------------------------------------------------------------------!

Mercury_NUA = ",,UKCNS";

show "Connecting to Mercury 5000";
Tries = 5;
on cancel goto Return_Cancel;
wait until 15;
send %CR & %CR & %CR & %CR;

Wait_Mercury:

      if Tries = 0 goto Mercury_Failure;
      Tries = Tries - 1;

      wait
        "SERVICE"     goto Send_Mercury_NUA,
        "FAILURE"     goto Wait_Mercury,
        "Host Name:"  goto Return_Success
      until 80;

      send %CR;
      goto Wait_Mercury;

Send_Mercury_NUA:
      show "Sending Mercury User Address ...";
      send Mercury_NUA & %CR;
      goto Wait_Mercury;

Mercury_Failure:
      define %FailureMsg = "Mercury not responding";
      exit %Failure;

Return_Cancel:
    exit %Cancel;

Return_Success:
    exit %Success;