S0 = 4				; The dialing directory entry # for GEnie
LEGEND " GEnie.CMD"             ; Put script name on status bar...
;
; ----- GEnie: Dial GEnie by direct connect
; ----------------------------------------------------------------
;	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.  It *does* require
;	a dialing directory entry be prepared (if NOT LINKed (i.e. Alt-D).
; ----------------------------------------------------------------
;	S0 is modified by this script.
; ----------------------------------------------------------------
;
;	Don't allow this script to execute unmodified
;
	IF STRCMP S1(0:3) "name"; It's unmodified
	   MESS "^L"            ; Clear screen
	   MESS "You must edit your ID and password into GEnie.CMD"
	   MESS "before you execute it as a script...  ^M^J"
	   EXIT
	   ENDIF
;
;	Dial GEnie direct
;
	LEGEND " Dialing GEnie 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
;
;	Set initial settings
;
	SET BSUPPRESS ON	; Turn on blank line suppression
	SET MASK ON		; Turn on high bit mask
	SET CDISPLAY OFF	; Ctl char display
	SET DUPLEX HALF 	; Turn echo on
;
;	Synchronize with their modem
;
	PAUSE "3"               ; Wait for the modem to settle down
	TRANSMIT "hhh"          ; Transmit
;
;	Send name and password
;
	WAITFOR "U#="           ; Wait for the 'USER ID' prompt
;
;	If we have a GENLOGON file, use it
;
	SET TTHRU OFF		; Let psw be typed
	IF ISSCFILE "GENLOGON" FCALL "GENLOGON"
;
;	Exit - this script may be fcalled
;
	IF FCALLED FRETURN	; Return to caller if called
	ALARM			; Otherwise, sound alarm - we're done