home *** CD-ROM | disk | FTP | other *** search
/ Media Gallery 1995 December / MG_1295.ISO / pcdirekt / kommunik / cserve / cimos2 / scripts.lib / HUNGARY.SCR < prev    next >
Text File  |  1994-05-17  |  1KB  |  57 lines
  1. !
  2. !  Copyright (c) 1993
  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. !  HUNGARY:
  9. !       Connect to HungaryNet
  10. !       Success:  returns %Success
  11. !       Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "3.5"
  15. !-V
  16.  
  17. show "Connecting to Hungary";
  18. Tries = 5;
  19. on cancel goto Return_Cancel;
  20.  
  21. Wait_HungaryNet:
  22.     if Tries = 0 goto HungaryNet_Failure;
  23.     Tries = Tries - 1;
  24.  
  25.     wait
  26.         "ADI"             goto Send_N,
  27.         "NUI"           goto Send_NUI,
  28.         "Host Name:"    goto Return_Success,
  29.         "User ID:"      goto Return_Success,
  30.         %mdm_Failure    goto HungaryNet_Failure
  31.     until 80;
  32.  
  33. Send_N:
  34.     wait until 15;
  35.     send "n";
  36.     goto Wait_HungaryNet;
  37.  
  38. Send_NUI:
  39.     show "Sending Hungary address...";
  40.     wait until 20;
  41.     send "172801380COMPUSERVE,R-150111367" & %CR;
  42.     goto Wait_HungaryNet;
  43.  
  44. HungaryNet_Failure:
  45.     define %FailureMsg = "Hungary not responding";
  46.     exit %Failure;
  47.  
  48. Return_Cancel:
  49.     exit %Cancel;
  50.  
  51. Return_Success:
  52.     send %CR;
  53.     wait until 10;
  54.     exit %Success;
  55.  
  56.  
  57.