home *** CD-ROM | disk | FTP | other *** search
- !---------------------------------------------------------------------!
- ! !
- ! 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. !
- ! !
- ! FENICS Script: !
- ! Connect to FALNET !
- ! Success: returns %Success !
- ! Failure: saves error msg in %FailureMsg and returns %Failure !
- ! !
- ! $Revision:: 1.4 $ !
- ! !
- !---------------------------------------------------------------------!
-
- Host_Sent = %FALSE;
-
-
- ConnectStr = "Connecting to FALNET";
- FailStr = "FALNET not responding";
- HostStr = "C CIS" & %CR;
-
- Start_FENICS:
-
- show ConnectStr;
- Tries = 5;
- on cancel goto Return_Cancel;
-
- Wait_FENICS:
-
- if Tries = 0 goto FENICS_Failure;
- Tries = Tries - 1;
-
- wait
- "READY" goto Send_FENICS_Host,
- "User ID:" goto Check_Success,
- "Host Name:" goto Check_Success
- until 80;
-
- send %CR & %CR & %CR;
- Host_Sent = %FALSE;
- goto Wait_FENICS;
-
- Send_FENICS_Host:
-
- if Host_Sent goto Wait_FENICS;
-
- send HostStr;
- Host_Sent = %TRUE;
- goto Wait_FENICS;
-
- Check_Success:
- if Host_Sent goto Return_Success;
- goto Wait_FENICS;
-
- FENICS_Failure:
- define %FailureMsg = FailStr;
- exit %Failure;
-
- Return_Cancel:
- exit %Cancel;
-
- Return_Success:
- exit %Success;
-