home *** CD-ROM | disk | FTP | other *** search
/ Fonts Pro 2002 / kf_2002.bin / compsrv / scripts.lib / FTCONN.SCR < prev    next >
Text File  |  1995-12-05  |  2KB  |  68 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. !  FT-Connect:
  9. !       Connect to France Telecom
  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. CompuServe_NUA = "196282595";
  18. Tries = 5;
  19. twice_tried = %FALSE;
  20. on cancel goto Return_Cancel;
  21.  
  22. show "Connecting to FT-Connect";
  23. wait until 20;
  24. send %CR;
  25.  
  26. Wait_FTConnect:
  27.         if Tries = 0 goto FTConnect_Failure;
  28.     Tries = Tries - 1;
  29.  
  30.     wait
  31.                 "France"        goto Send_Address,
  32.                 "TRANSPAC"      goto Send_Address,
  33.         "ERROR"        goto Resend_Address,
  34.         "LIB"        goto Resend_Address,
  35.                 "CLR"           goto Resend_Address,
  36.                 %mdm_Failure    goto FTConnect_Failure,
  37.         "COM"        goto Return_Success
  38.     until 80;
  39.  
  40.     send %CR;
  41.         goto Wait_FTConnect;
  42.  
  43. Resend_Address:
  44.     if twice_tried = %TRUE goto Cserve_NUA_Failure;
  45.     twice_tried = %TRUE;
  46.  
  47. Send_Address:
  48.     wait until 20;
  49.     show "Sending CompuServe NUA...";
  50.     send CompuServe_NUA & %CR;
  51.         goto Wait_FTConnect;
  52.  
  53. FTConnect_Failure:
  54.         define %FailureMsg = "FT-Connect not responding";
  55.     goto Return_Failure;
  56.  
  57. Cserve_NUA_Failure:
  58.         define %FailureMsg = "FT-Connect not accepting CompuServe NUA";
  59.  
  60. Return_Failure:
  61.     exit %Failure;
  62.  
  63. Return_Cancel:
  64.     exit %Cancel;
  65.  
  66. Return_Success:
  67.     exit %Success;
  68.