S0 = 6				; Dialing directory entry to use
LEGEND " MCI.CMD"               ; Put script name on status bar...
;
; ----- MCI: Connect to MCI through SprintNet
; ----------------------------------------------------------------
;	Note: You must edit the values above to reflect your call.
;	Variable S0 determines the entry # being dialed
; ----------------------------------------------------------------
;	Note: You must create a logon file with MKLOGON in order to
;	have this script automatically log you on... Please see the
;	file SCRIPTS.DOC
; ----------------------------------------------------------------
;	Note: This script is written to be FCALLed, executed directly (F2)
;	or attached to a dialing directory entry (for manual execution).
; ----------------------------------------------------------------
;	Note: This script requires no other script.  It *does* require
;	a dialing directory entry be prepared (if NOT LINKed (i.e. Alt-D).
; ----------------------------------------------------------------
;	S0 is modified by this script.
; ----------------------------------------------------------------
;
;	Dial MCI direct
;
	LEGEND " Dialing MCI direct..."
	IF NOT LINKED		; If not from alt-d
	   DIAL S0		; Dial directory entry number set above
	   IF FAILED EXIT	; IF esc out
	   ENDIF		; End test if linked

	LEGEND " Connecting to MCI..."
	PAUSE 3 		; Wait a bit
	TRANSMIT "!"            ; Send a c/r
;
;	Send name and password
;
	WAITFOR "name: "        ; Wait for MCI name prompt
;
;	If we have a MCILOGON file, use it
;
	SET TTHRU OFF		; Let psw be typed
	IF ISSCFILE "MCILOGON" FCALL "MCILOGON"
;
;	Exit - this script may be fcalled
;
	IF FCALLED FRETURN	; Return to caller if called
	ALARM			; Otherwise, sound alarm - we're done