home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World Interactive 1997 February / pcwfeb97.zip / pcwfeb97 / COMPSERV / SCRIPTS.LIB / ISRAKAV.SCR < prev    next >
Text File  |  1996-01-29  |  2KB  |  92 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.8.2"
  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.     "CONNECT^M"    goto Below_2400,
  24.     "1200"        goto Below_2400,
  25.     "2400"        goto Send_2400
  26. until 60;
  27.  
  28. send ".CSERVE" & %CR;
  29. goto Wait_IsraKav; 
  30.  
  31. Below_2400:
  32.     if Logon_Attempts = 0 goto IsraKav_Failed;
  33.     Logon_Attempts = Logon_Attempts - 1;
  34.     wait until 3;
  35.     send %CR & "D" & %CR;
  36.     wait
  37.         "***"    goto Wait_IsraKav
  38.     until 100;
  39.     goto Below_2400;
  40.  
  41. Send_2400:
  42.     if Logon_Attempts = 0 goto IsraKav_Failed;
  43.     Logon_Attempts = Logon_Attempts - 1;
  44.     wait until 2;
  45.     send "@D" & %CR;
  46.     wait
  47.         "***"    goto Wait_IsraKav
  48.     until 100;
  49.     goto Send_2400;
  50.  
  51. Wait_IsraKav:
  52.     if Attempts = 0 goto IsraKav_Failed;
  53.  
  54.     wait
  55.         "TERMINAL="    goto Send_IsraKav_ID,
  56.         "@"        goto Send_IsraKav_Address,
  57.         %mdm_Failure    goto IsraKav_Failed,
  58.         "NOT OBTAINABLE" goto IsraKav_Unavailable,
  59.         "Host Name:"    goto IsraKav_Success,
  60.         "User ID:"    goto IsraKav_Success
  61.     until 85;
  62.  
  63.     Attempts = Attempts - 1;
  64.     send "@D" & %CR;
  65.     goto Wait_IsraKav;
  66.  
  67. Send_IsraKav_ID:
  68.     wait until 5;
  69.     send "D1" & %CR;
  70.     goto Wait_IsraKav;
  71.  
  72. Send_IsraKav_Address:
  73.     show "Sending IsraKav address...";
  74.     wait until 10;
  75.     send "3300045217" & %CR;
  76.     goto Wait_IsraKav;
  77.  
  78. IsraKav_Success:
  79.     send %CR;
  80.     exit %Success;
  81.  
  82. IsraKav_Failed:
  83.     define %FailureMsg = "IsraKav: No Answer";
  84.     exit %Failure;
  85.  
  86. IsraKav_Unavailable:
  87.     define %FailureMsg = "IsraKav Unavailable";
  88.     exit %Failure;
  89.  
  90. IsraKav_Cancelled:
  91.     exit %Cancel;
  92.