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

Text File | 1993-01-04 | 2KB | 57 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.  !
!                                                                     !
!  TELENET Script:                                                    !
!     Connect to SprintNet                                            !
!     Success:  returns %Success                                      !
!     Failure:  saves error msg in %FailureMsg and returns %Failure   !
!                                                                     !
!     $Revision::   1.5      $                                        !
!                                                                     !
!---------------------------------------------------------------------!

    Attempts = 3;
    on cancel goto SprintNet_Cancelled;
    show "Connecting to SprintNet";
    send "@";
    wait until 1;       ! pause required for 2400 baud
    send %CR & %CR;

Wait_SprintNet:

    if Attempts = 0 goto SprintNet_Failed;

    Attempts = Attempts - 1;

    wait
        "Terminal" goto send_telenet_id,
        "@" goto send_telenet_host
    until 85;

    send %CR & %CR;
    goto Wait_SprintNet;

send_telenet_id:

    send "D1" & %CR;
    goto Wait_SprintNet;

send_telenet_host:

    send "C 202201" & %CR;
    exit %Success;

SprintNet_Failed:
    define %FailureMsg = "SprintNet: no answer";
    exit %Failure;

SprintNet_Cancelled:
    exit %Cancel;