LEGEND " BIX.CMD"               ; Put script name on status bar...
;
; ----- BIX: Connect to BIX through TymNet
; ----------------------------------------------------------------
;	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 the script TYMNET.CMD.  TYMNET.CMD
;	requires that a dialing directory entry number be prepared.
;	Unless you modify TYMNET.CMD, the entry number defaults to 9.
; ----------------------------------------------------------------
;	S0 is modified by this script.
; ----------------------------------------------------------------
;
;	Call Tymnet (if not already dialed)
;
	IF NOT ISSC "TYMNET"    ; If script not available
	   MESS "TYMNET.CMD script not found"
	   EXIT 		; terminate script
	   ENDIF
	FCALL "Tymnet"          ; Dial Tymnet
	LEGEND " Connecting to BIX..."
;
;	Connect to BIX
;
	TRANSMIT "bix!"         ; Tell Tymnet to connect to BIX
;
;	Wait for ID prompt
;
	WAITFOR "Name? "        ; Wait for BIX name prompt
;
;	If we have a BIXLOGON file, use it
;
	SET TTHRU OFF		; Let psw be typed
	IF ISSCFILE "BIXLOGON" FCALL "BIXLOGON"
;
;	Exit - this script may be fcalled
;
	IF FCALLED FRETURN	; Return to caller if called
	ALARM			; Otherwise, sound alarm - we're done