The World of Computer Software/World_Of_Computer_Software-02-387-Vol-3of3.iso/n/newscr.zip/NEWSCR.EXE/DIALPLUS.SCR

Text File | 1993-01-04 | 2KB | 52 lines

!---------------------------------------------------------------------!
!                                                                     !
!  Copyright (c) 1991                                                 !
!  by CompuServe Incorporated, Columbus, Ohio                         !
!                                                                     !
!  The information in this software is subject to change without      !
!  notice and should not be construed as a commitment by CompuServe.  !
!                                                                     !
!  DIALPLUS SCRIPT:                                                   !
!     Connect to Dialplus                                             !
!     Success:  returns %Success                                      !
!     Failure:  saves error msg in %FailureMsg and returns %Failure   !
!                                                                     !
!     $Revision::   1.5      $                                        !
!                                                                     !
!---------------------------------------------------------------------!

show "Connecting to GNS Dialplus";
Tries = 5;
on cancel goto Return_Cancel;

send %CR;

Wait_Dialplus:

    if Tries = 0 goto Dialplus_Failure;
    Tries = Tries - 1;

    wait
        "press RETURN:"     goto Send_Dialplus_Password,
        "User ID:"          goto Return_Success,
        "Host Name:"        goto Return_Success
    until 80;

    send %CR;
    goto Wait_Dialplus;

Send_Dialplus_Password:

    send "UKCNS" & %CR;
    goto Wait_Dialplus;

Dialplus_Failure:
    define %FailureMsg = "GNS Dialplus not responding";
    exit %Failure;

Return_Cancel:
    exit %Cancel;

Return_Success:
    exit %Success;