/* $VER: Terminus 2.0e - _Nemezis.SCP (13.01.97) */

	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 "ANSI,"	SEND	"n\r^C"
	ELSE
		WHEN	1 "ANSI,"	SEND	"\r^C"
	ENDIF
	WHEN	2 "(Pause)..."	SEND	"\r"
	WHEN	3 ">:"	SEND	"YES\r"
	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"