home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0090 - 0099 / ibm0090-0099 / ibm0099.tar / ibm0099 / WINCIMP1.ZIP / SCRIPTS.LIB / DIALPLUS.SCR < prev    next >
Encoding:
Text File  |  1992-02-24  |  1.7 KB  |  52 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. !  DIALPLUS SCRIPT:                                                   !
  10. !     Connect to Dialplus                                             !
  11. !     Success:  returns %Success                                      !
  12. !     Failure:  saves error msg in %FailureMsg and returns %Failure   !
  13. !                                      !
  14. !     $Revision::   1.4      $                                        !
  15. !                                      !
  16. !---------------------------------------------------------------------!
  17.  
  18. show "Connecting to GNS Dialplus";
  19. Tries = 5;
  20. on cancel goto Return_Cancel;
  21.  
  22. send %CR;
  23.  
  24. Wait_Dialplus:
  25.  
  26.     if Tries = 0 goto Dialplus_Failure;
  27.     Tries = Tries - 1;
  28.  
  29.     wait
  30.         "press RETURN:"        goto Send_Dialplus_Password,
  31.     "User ID:"           goto Return_Success,
  32.     "Host Name:"         goto Return_Success
  33.     until 80;
  34.  
  35.     send %CR;
  36.     goto Wait_Dialplus;
  37.  
  38. Send_Dialplus_Password:
  39.  
  40.     send "UKCNS" & %CR;
  41.     goto Wait_Dialplus;
  42.  
  43. Dialplus_Failure:
  44.     define %FailureMsg = "GNS Dialplus not responding";
  45.     exit %Failure;
  46.  
  47. Return_Cancel:
  48.     exit %Cancel;
  49.  
  50. Return_Success:
  51.     exit %Success;
  52.