home *** CD-ROM | disk | FTP | other *** search
/ PowerPlay 1996 July / PowerPlay0796.img / cserve / scripts.lib / EIRPAC.SCR < prev    next >
Text File  |  1995-11-10  |  2KB  |  62 lines
  1. !
  2. !  Copyright (c) 1995
  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. !  EIRPAC:
  9. !       Connect to EIRPAC
  10. !    Success:  returns %Success
  11. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "3.8"
  15. !-V
  16.  
  17. show "Verbindungsaufbau mit dem EIRPAC-Netzwerk";
  18. Tries = 5;
  19. on cancel goto Return_Cancel;
  20. send "..." & %CR;
  21.  
  22. Wait_EIRPAC:
  23.         if Tries = 0 goto EIRPAC_Failure;
  24.     Tries = Tries - 1;
  25.  
  26.         wait
  27.                 "Host Name:"                    goto Return_Success,
  28.                 "EIRPAC:"                       goto Send_NUI,
  29.                 %mdm_Failure                    goto EIRPAC_Failure
  30.         until 80;
  31.  
  32.         send "..." & %CR;
  33.         if Tries > 3 goto Wait_EIRPAC;
  34.  
  35. Wait_EIRPAC_Connect:
  36.     wait
  37.                 "EIRPAC: call"                  goto Return_Success,
  38.                 "Host Name:"                    goto Return_Success,
  39.                 %mdm_Failure                    goto EIRPAC_Failure
  40.         until 100;
  41.  
  42.         send %CR;
  43.         if Tries = 0 goto EIRPAC_Failure;
  44.         Tries = Tries - 1;
  45.         goto Wait_EIRPAC_Connect;
  46.  
  47. Send_NUI:
  48.         show "EIRPAC-Kennung wird ⁿbertragen...";
  49.     wait until 10;
  50.         send "r 37456178" & %CR;
  51.         goto Wait_EIRPAC_Connect;
  52.  
  53. EIRPAC_Failure:
  54.         define %FailureMsg = "EIRPAC antwortet nicht";
  55.     exit %Failure;
  56.  
  57. Return_Cancel:
  58.     exit %Cancel;
  59.  
  60. Return_Success:
  61.     exit %Success;
  62.