home *** CD-ROM | disk | FTP | other *** search
/ Fonts Pro 2002 / kf_2002.bin / compsrv / scripts.lib / SEVA.SCR < prev    next >
Text File  |  1995-12-05  |  1KB  |  51 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. !  SEVA:
  9. !       Connect to SEVA
  10. !    Success:  returns %Success
  11. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "3.8.1"
  15. !-V
  16.  
  17. on cancel goto Return_Cancel;
  18. show "Connecting to SEVA";
  19. Tries = 5;
  20. send %CR;
  21.  
  22. Wait_SEVA:
  23.         Tries = Tries - 1;
  24.         if Tries = 0 goto SEVA_Failure;
  25.  
  26.     wait
  27.                 "SEVA LOGIN:"   goto Send_SEVA_Login,
  28.                 "CONNESSO"      goto Return_Success,
  29.                 %mdm_Failure    goto SEVA_Failure,
  30.                 "Host Name:"    goto Return_Success
  31.         until 80;
  32.  
  33.         send %CR;
  34.  
  35.         goto Wait_SEVA;
  36.  
  37. Send_SEVA_Login:
  38.         show "Sending SEVA address...";
  39.         send "CSERVE-41" & %CR;
  40.         goto Wait_SEVA;
  41.  
  42. SEVA_Failure:
  43.         define %FailureMsg = "SEVA not responding";
  44.     exit %Failure;
  45.  
  46. Return_Cancel:
  47.     exit %Cancel;
  48.  
  49. Return_Success:
  50.     exit %Success;
  51.