home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / n / newscr.zip / NEWSCR.EXE / ISRAKAV.SCR < prev    next >
Text File  |  1992-12-09  |  2KB  |  63 lines
  1. !---------------------------------------------------------------------!
  2. !                                                                     !
  3. !  Copyright (c) 1991                                                 !
  4. !  by CompuServe Incorporated, Columbus, Ohio                         !
  5. !                                                                     !
  6. !  The information in this software is subject to change without      !
  7. !  notice and should not be construed as a commitment by CompuServe.  !
  8. !                                                                     !
  9. !  IsraKav Script:                                                    !
  10. !     Connect to IsraKav                                              !
  11. !     Success:  returns %Success                                      !
  12. !     Failure:  saves error msg in %FailureMsg and returns %Failure   !
  13. !                                                                     !
  14. !---------------------------------------------------------------------!
  15.  
  16.     Attempts = 7;
  17.     on cancel goto IsraKav_Cancelled;
  18.     show "Connecting to IsraKav";
  19.  
  20.     if %BaudRate > 4 goto Send_2400;
  21.  
  22.     wait until 1;
  23.     send %CR & "D" & %CR;
  24.     goto Wait_IsraKav;
  25.  
  26. Send_2400:
  27.     wait until 1;
  28.     send "@D" & %CR;
  29.  
  30. Wait_IsraKav:
  31.     if Attempts = 0 goto IsraKav_Failed;
  32.  
  33.     wait
  34.         "TERMINAL=" goto Send_IsraKav_ID,
  35.         "@" goto Send_IsraKav_Address,
  36.         "NO CARRIER" goto IsraKav_Failed
  37.     until 85;
  38.  
  39.     Attempts = Attempts - 1;
  40.     send %CR & %CR;
  41.     goto Wait_IsraKav;
  42.  
  43. Send_IsraKav_ID:
  44.     wait until 5;
  45.     send "D1" & %CR;
  46.     goto Wait_IsraKav;
  47.  
  48. Send_IsraKav_Address:
  49.     show "Sending IsraKav address...";
  50.     wait until 10;
  51.     send "3300014618" & %CR;
  52.  
  53. IsraKav_Success:
  54.     exit %Success;
  55.  
  56. IsraKav_Failed:
  57.     define %FailureMsg = "IsraKav: No Answer";
  58.     exit %Failure;
  59.  
  60. IsraKav_Cancelled:
  61.     exit %Cancel;
  62.  
  63.