S0 = 3				; The dialing directory entry # for CIS
LEGEND " CIS.CMD"               ; Put script name on status bar...
;
; ----- CIS: Dial Compuserve (CIS) by direct connect
;	(not written to connect through Sprintnet or Tymnet)
; ----------------------------------------------------------------
;	Note: You must edit the values above to reflect your call.
;	Variable S0 determines the entry # being dialed
; ----------------------------------------------------------------
;	Note: This script uses a LOGON file prepared by MKLOGON,
;	if one is available.
; ----------------------------------------------------------------
;	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.
; ----------------------------------------------------------------
;	S0 is modified by this script.
; ----------------------------------------------------------------
;
;	Dial CIS directly
;
	LEGEND " Dialing CIS direct..."
	IF NOT linked
	   DIAL S0		; Dial directory number above (1st line)
	   IF FAILED EXIT	; IF esc out, terminate script
	   ENDIF
;
;	Set initial settings
;
	SET 25			; VidTex doesn't like 43
	SET MASK ON		; Turn on high bit mask
	SET CDISPLAY OFF	; disable ctl char displau
	EMULATE VIDTEX		; Make up/downloads automatic
;
;	Now - wait for the user ID prompt
;
	PAUSE "3"               ; Wait for the modem to settle down
	TRANSMIT "!"            ; Transmit Carriage return <CR>
	WAITFOR "Host"          ; Wait 1 sec
	TRANSMIT "CIS!"         ; Respond CIS
;
;	Send name and password
;
	WAITFOR "User ID:"      ; Wait for the 'USER ID' prompt
;
;	If we have a CISLOGON file, use it
;
	SET TTHRU OFF		; Let psw be typed
	IF ISSCFILE "CISLOGON" FCALL "CISLOGON"
;
;	Exit - this script may be fcalled
;
	IF FCALLED FRETURN	; Return to caller if called
	ALARM			; Otherwise, sound alarm - we're done