home *** CD-ROM | disk | FTP | other *** search
/ PowerPlay 1998 November / PowerPlay1198.bin / Online / Cserve / SCRIPTS.LIB / mercury.scr < prev    next >
Text File  |  1997-05-08  |  1KB  |  68 lines
  1. !
  2. !  Copyright (c) 1997
  3. !  by CompuServe Incorporated, Columbus, Ohio
  4. !
  5. !  The information in this software is subject to change without
  6. !  notice and should not be construed as a commitment by CompuServe.
  7. !
  8. !  MERCURY:
  9. !    Connect to Mercury
  10. !    Success:  returns %Success
  11. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "4.0.1"
  15. !-V
  16.  
  17. show "Verbindungsaufbau mit dem Mercury-5000-Netz";
  18. Tries = 5;
  19. on cancel goto Return_Cancel;
  20. wait until 15;
  21. send %CR & %CR & %CR & %CR;
  22.  
  23. Wait_Mercury:
  24.  
  25.      if Tries = 0 goto Mercury_Failure;
  26.      Tries = Tries - 1;
  27.  
  28.      wait
  29.  
  30. ! Mercury 5000 Commands
  31.  
  32.         "SERVICE"       goto Assign_Mercury_NUA1,
  33.         "FAILURE"       goto Wait_Mercury,
  34.  
  35. ! Mercury DAP commands
  36.  
  37.         "01"            goto Assign_Mercury_NUA2,
  38.         "82"            goto Wait_Mercury,
  39.         "CLEARED"       goto Mercury_Failure,
  40.         "Host Name:"    goto Return_Success
  41.      until 80;
  42.  
  43.      send %CR;
  44.      goto Wait_Mercury;
  45.  
  46. Assign_Mercury_NUA1:
  47.     Mercury_NUA = ",,UKCNS";
  48.     goto Send_Mercury_NUA;
  49.  
  50. Assign_Mercury_NUA2:
  51.     Mercury_NUA = "nhost.seraccess-.ukcns";
  52.  
  53. Send_Mercury_NUA:
  54.          show "Mercury-User-Adresse ⁿbertragen...";
  55.      send Mercury_NUA & %CR;
  56.      goto Wait_Mercury;
  57.  
  58. Mercury_Failure:
  59.          define %FailureMsg = "Mercury antwortet nicht";
  60.      exit %Failure;
  61.  
  62. Return_Cancel:
  63.     exit %Cancel;
  64.  
  65. Return_Success:
  66.     send %CR;
  67.     exit %Success;
  68.