home *** CD-ROM | disk | FTP | other *** search
/ 3,500 Cliparts Vectoriels 2 / 3500_V2.iso / compu / csi302f / scripts.lib / fenics2.scr < prev    next >
Text File  |  1997-01-30  |  1KB  |  53 lines
  1. !
  2. !  Copyright (c) 1996
  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. !  FENICS II:
  9. !   Connect to FENICS II
  10. !   Success:  returns %Success
  11. !   Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "3.8.3F"
  15. !-V
  16.  
  17. show "Connexion α FENICS II"; 
  18. Tries = 5;
  19. on cancel goto Return_Cancel;
  20. wait until 50;
  21.  
  22. Wait_FENICS2:
  23.     if Tries = 0 goto Return_Failure;
  24.     Tries = Tries - 1;
  25.  
  26.     wait
  27.         "Host Name?"    goto Send_FENICS2_Host,
  28.         "User ID:"  goto Return_Success,
  29.         "Host Name:"    goto Return_Success,
  30.         %mdm_Failure    goto Return_Failure
  31.     until 80;
  32.  
  33.     send " P^M";
  34.     goto Wait_FENICS2;
  35.  
  36. Send_FENICS2_Host:
  37.     wait until 10;
  38.     show "Envoi de l'adresse FENICS II en cours...";
  39.     send "C CIS^M"; 
  40.     goto Wait_FENICS2;
  41.  
  42. Return_Failure:
  43.     define %FailureMsg = "FENICS II ne rΘpond pas";
  44.     exit %Failure;
  45.  
  46. Return_Cancel:
  47.     exit %Cancel;
  48.  
  49. Return_Success:
  50.     send %CR;
  51.     wait until 10;
  52.     exit %Success;
  53.