home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_1_1994.iso / 00190 / s / scripts.lib / DATAPAK.SCR < prev    next >
Text File  |  1993-08-18  |  1KB  |  57 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. !  DATAPAK:
  9. !    Connect to Datapak
  10. !    Success:  returns %Success
  11. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "3.1"
  15. !-V
  16.  
  17. show "Connecting to Datapak Sweden";
  18. Tries = 5;
  19. on cancel goto Return_Cancel;
  20.  
  21. Wait_Datapak:
  22.     if Tries = 0 goto Datapak_Failure;
  23.     Tries = Tries - 1;
  24.  
  25.     wait
  26.         "SERVICE"    goto Send_Periods,
  27.         "DATAPAK:"    goto Send_Datapak_Host,
  28.         "Host Name:"    goto Return_Success,
  29.         "User ID:"    goto Return_Success,
  30.         "NO CARRIER"    goto Datapak_Failure
  31.     until 80;
  32.  
  33.     send "..." & %CR;
  34.     goto Wait_Datapak;
  35.  
  36. Send_Periods:
  37.     wait until 10;
  38.     send "..." & %CR;
  39.     goto Wait_Datapak;
  40.  
  41. Send_Datapak_Host:
  42.     show "Sending Datapak Sweden address...";
  43.     wait until 10;
  44.     send "7101064" & %CR;
  45.     goto Wait_Datapak;
  46.  
  47. Datapak_Failure:
  48.     define %FailureMsg = "Datapak Sweden not responding";
  49.     exit %Failure;
  50.  
  51. Return_Cancel:
  52.     exit %Cancel;
  53.  
  54. Return_Success:
  55.     send %CR;
  56.     exit %Success;
  57.