home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1995 #3 / PCD_395.iso / kommunik / wincim_d / disk1 / scripts.lib / DIALPLUS.SCR < prev    next >
Encoding:
Text File  |  1994-04-14  |  985 b   |  50 lines
  1. !
  2. !  Copyright (c) 1993
  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. !  DIALPLUS:
  9. !    Connect to Dialplus
  10. !    Success:  returns %Success
  11. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "3.4.1"
  15. !-V
  16.  
  17. show "Verbindungsaufbau mit dem GNS-Dialplus-Netzwerk";
  18. Tries = 5;
  19. on cancel goto Return_Cancel;
  20.  
  21. send %CR;
  22.  
  23. Wait_Dialplus:
  24.     if Tries = 0 goto Dialplus_Failure;
  25.     Tries = Tries - 1;
  26.  
  27.     wait
  28.         "press RETURN:"    goto Send_Dialplus_Password,
  29.         "User ID:"    goto Return_Success,
  30.         "Host Name:"    goto Return_Success
  31.     until 80;
  32.  
  33.     send %CR;
  34.     goto Wait_Dialplus;
  35.  
  36. Send_Dialplus_Password:
  37.     send "UKCNS" & %CR;
  38.     goto Wait_Dialplus;
  39.  
  40. Dialplus_Failure:
  41.     define %FailureMsg = "GNS-Dialplus antwortet nicht";
  42.     exit %Failure;
  43.  
  44. Return_Cancel:
  45.     exit %Cancel;
  46.  
  47. Return_Success:
  48.     send %CR;
  49.     exit %Success;
  50.