! ! Copyright (c) 1998 ! 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. ! ! FT-Connect: ! Connect to France Telecom ! Success: returns %Success ! Failure: saves error msg in %FailureMsg and returns %Failure ! ! modif. for supporting France Telecom Connect and Global One-Connect ! by Dieter Lipp and Axel Pipahl 16.3.1998 (last update 15.5.1998) ! ! !+V ! "4.0.3 FC" !-V CompuServe_NUA = "196282595"; Tries = 5; twice_tried = %FALSE; on cancel goto Return_Cancel; show "Trying France Nationwide"; wait until 20; send %CR; Wait_FTConnect: if Tries = 0 goto FTConnect_Failure; Tries = Tries - 1; wait "France" goto Send_Address, "ROMPAC" goto Send_Address, "TRANSPAC" goto Try_France_Connect, "ERROR" goto Resend_Address, "LIB" goto Resend_Address, "CLR" goto Resend_Address, %mdm_Failure goto FTConnect_Failure, "Login:" goto Login_National_France, "Password:" goto Login_National_France, "COM" goto Return_Success, "Host Name:" goto Return_Success until 80; send %CR; goto Wait_FTConnect; Try_France_Connect: send "cis" & %CR; wait "ERROR" goto Is_FTConnect, "Password:" goto Send_Password_NA until 80; send %CR; goto Wait_FTConnect; Is_FTConnect: show "Connecting to FT-Connect"; goto Send_Address; Resend_Address: if twice_tried = %TRUE goto Cserve_NUA_Failure; twice_tried = %TRUE; Send_Address: wait until 20; show "Sending CompuServe NUA..."; send CompuServe_NUA & %CR; goto Wait_FTConnect; FTConnect_Failure: define %FailureMsg = "FT-Connect not responding"; goto Return_Failure; Cserve_NUA_Failure: define %FailureMsg = "FT-Connect not accepting CompuServe NUA"; Return_Failure: exit %Failure; Return_Cancel: exit %Cancel; Return_Success: exit %Success; Login_National_France: Tries = 5; twice_tried = %FALSE; show "Waiting for NAS banner"; Tries = Tries - 1; goto Send_Login_NA; Wait_Transpac_NA: if Tries = 0 goto Transpac_Failure; Tries = Tries - 1; wait "Login:" goto Send_Login_NA, "Password:" goto Send_Password_NA, "ERROR" goto Resend_Address_NA, "LIB" goto Resend_Address_NA, "NO CARRIER" goto Transpac_Failure, "connected" goto Return_Success until 80; send %CR; goto Wait_Transpac_NA; Resend_Address_NA: if twice_tried = %TRUE goto Cserve_NUA_Failure_NA; twice_tried = %TRUE; Send_Login_NA: wait until 10; show "Sending Login..."; send "cis" & %CR; goto Wait_Transpac_NA; Send_Password_NA: wait until 10; show "Sending Password..."; send "cis" & %CR; goto Wait_Transpac_NA; Transpac_Failure_NA: define %FailureMsg = "Transpac not responding"; goto Return_Failure; Cserve_NUA_Failure_NA: define %FailureMsg = "Transpac not accepting CompuServe NUA"; goto Return_Failure;