home *** CD-ROM | disk | FTP | other *** search
/ Media Gallery 1995 December / MG_1295.ISO / pcdirekt / kommunik / cserve / cimos2 / scripts.lib / ISRAKAV.SCR < prev    next >
Text File  |  1994-05-17  |  2KB  |  88 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. !  IsraKav:
  9. !    Connect to IsraKav
  10. !    Success:  returns %Success
  11. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "3.5"
  15. !-V
  16.  
  17. Logon_Attempts = 7;
  18. Attempts = 7;
  19. on cancel goto IsraKav_Cancelled;
  20. show "Connecting to IsraKav";
  21.  
  22. wait
  23.     "^M"    goto Not_2400,
  24.     "2400"    goto Send_2400
  25. until 60;
  26.  
  27. Not_2400:
  28.     if Logon_Attempts = 0 goto IsraKav_Failed;
  29.     Logon_Attempts = Logon_Attempts - 1;
  30.     wait until 3;
  31.     send %CR & "D" & %CR;
  32.     wait
  33.         "***"    goto Wait_IsraKav
  34.     until 100;
  35.     goto Not_2400;
  36.  
  37. Send_2400:
  38.     if Logon_Attempts = 0 goto IsraKav_Failed;
  39.     Logon_Attempts = Logon_Attempts - 1;
  40.     wait until 2;
  41.     send "@D" & %CR;
  42.     wait
  43.         "***"    goto Wait_IsraKav
  44.     until 100;
  45.     goto Send_2400;
  46.  
  47. Wait_IsraKav:
  48.     if Attempts = 0 goto IsraKav_Failed;
  49.  
  50.     wait
  51.         "TERMINAL="    goto Send_IsraKav_ID,
  52.         "@"        goto Send_IsraKav_Address,
  53.         %mdm_Failure    goto IsraKav_Failed,
  54.         "NOT OBTAINABLE" goto IsraKav_Unavailable,
  55.         "Host Name:"    goto IsraKav_Success,
  56.         "User ID:"    goto IsraKav_Success
  57.     until 85;
  58.  
  59.     Attempts = Attempts - 1;
  60.     send %CR & "D" & %CR;
  61.     goto Wait_IsraKav;
  62.  
  63. Send_IsraKav_ID:
  64.     wait until 5;
  65.     send "D1" & %CR;
  66.     goto Wait_IsraKav;
  67.  
  68. Send_IsraKav_Address:
  69.     show "Sending IsraKav address...";
  70.     wait until 10;
  71.     send "3300014618" & %CR;
  72.     goto Wait_IsraKav;
  73.  
  74. IsraKav_Success:
  75.     send %CR;
  76.     exit %Success;
  77.  
  78. IsraKav_Failed:
  79.     define %FailureMsg = "IsraKav: No Answer";
  80.     exit %Failure;
  81.  
  82. IsraKav_Unavailable:
  83.     define %FailureMsg = "IsraKav Unavailable";
  84.     exit %Failure;
  85.  
  86. IsraKav_Cancelled:
  87.     exit %Cancel;
  88.