/* $VER: Terminus 2.0e - _HardDiskCafe.SCP (14.08.95) */

	ONCARRIER	GOTO	NoConnect
Connec:
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

	IF	EXISTS("TERMINUS:Terminus1.aUTO")
		WHEN	1 "Select dis"	SEND	"2"
	ELSE
		WHEN	1 "Select dis"	SEND	"1"
	ENDIF
/*	WHEN	2 "Enter Your"	SEND	"UFOk\r"
*/
	WHEN	2 "Name or Handle"	SEND	"UFOk\r"
	WAIT	"Password"
	SPASSWORD
PickMo:
	ONMOUSE
	IF	EXISTS("TERMINUS:Terminus1.aUTO")
		CHAIN	".aUTO_6.SCP"
	ENDIF
	CHAIN	"ErniE.SCP"
NoConnect:
	ONCARRIER
	ONMOUSE
	WrLOG$	= "#> *** cARRIER lOST ***"
	LOG	WrLOG$
	PRINT	"\r\rnO cARRIER "
	CHAIN	"BadCD.SCP"