/* $VER: Terminus 2.0d - _B°ND°CKS.SCP (03.07.94) */

Connec:
	ONCARRIER	GOTO	NoConnect
LOGFILE = ON
	i$	= GETLINE$(1)
	IF	LEFT$(i$,14) == "Connected to: "
		i$	= MID$(i$,15,19)
	ELSE
		i$	= "uFOlAND`s  »»» 5*bOARDS ««"
	ENDIF
	OPEN	OUTPUT 1,"ENV:Terminus/LastCD"
	WRITE	#1 i$
	CLOSE	#1

	WrLOG$	= "#> .------------------------------."
	LOG	WrLOG$
	WrLOG$	= "#> "+GETLINE$(3)
	LOG	WrLOG$
	WrLOG$	= "#> "+GETLINE$(1)
	LOG	WrLOG$
	ONMOUSE	GOTO PickMo
	WHEN	1 "(Pause)..."	SEND	"\r"
	WHEN	2 "ANSI,"	SEND	"\r^C"
	WHEN	3 "Please Con"	SEND	"YES\r^C"
	WHEN	4 "Enter your"	SEND	"UFOk\r"
	WAIT	"PassWord:"
	SPASSWORD
PickMo:
	ONMOUSE
	IF	EXISTS("TERMINUS:Terminus1.aUTO")
		CHAIN	".aUTO_2.SCP"
	ENDIF

	CHAIN	"ErniE.SCP"
NoConnect:
	ONCARRIER
	ONMOUSE
	WrLOG$	= "#> *** cARRIER lOST ***"
	LOG	WrLOG$
	PRINT	"\r\rnO cARRIER "
	CHAIN	"BadCD.SCP"