home *** CD-ROM | disk | FTP | other *** search
/ Fonts Pro 2002 / kf_2002.bin / compsrv / scripts.lib / CHILEPAC.SCR next >
Text File  |  1995-12-05  |  1KB  |  71 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. !  Chilepac:
  9. !       Connect to Chilepac
  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. show "Connecting to Chilepac";
  18.  
  19. CSERVE_Sent = 0;
  20. Tries = 5;
  21. on cancel goto Return_Cancel;
  22. wait until 50;
  23. send %CR & %CR;
  24.  
  25. Wait_Chilepac:
  26.  
  27.     if Tries = 0 goto Chilepac_Failure;
  28.     Tries = Tries - 1;
  29.  
  30.     wait
  31.         "@"             goto Send_CSERVE,
  32.         %mdm_Failure    goto Chilepac_Failure,
  33.           "Host Name:"    goto Return_Success,
  34.         "User ID:"    goto Return_Success
  35.     until 80;
  36.  
  37.     send %CR & %CR;
  38.     goto Wait_Chilepac;
  39.  
  40. Send_CSERVE:
  41.     if CSERVE_Sent = 1 goto Wait_Chilepac;
  42.  
  43.     CSERVE_Sent = 1;
  44.     wait until 5;
  45.     show "Sending Chilepac address...";
  46.     send "CSERVE" & %CR;
  47.     goto Wait_Chilepac;
  48.  
  49. Chilepac_Failure:
  50.     define %FailureMsg = "Chilepac not responding";
  51.     exit %Failure;
  52.  
  53. Return_Cancel:
  54.     exit %Cancel;
  55.  
  56. Return_Success:
  57.     send %CR;
  58.     exit %Success;
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.