/****************************************************************************/
/* $VER: Terminus 2.0e - LostCD.SCP V2.9 by UFOk!                (27.05.97) */
/****************************************************************************/
LostCD:
	WaitLoop = 0
WaitForDel1:
	IF	EXISTS("RAM:Terminus.TM")
		PAUSE	1
		WaitLoop = WaitLoop + 1
		IF	WaitLoop < 119
			PRINT	LOCAL ".";
			GOTO	WaitForDel1
		ELSE
			CLI$	= "ReBoot"
			EXECUTE	CLI$
		ENDIF
	ENDIF
	PRINT	"\n\nUstawiam Fonta..."
	PRINT	"^P^O^I^U"
	MSG$	= "SET"
	Data	= 20
	OPEN	OUTPUT 1,"RAM:Terminus.TM"
	WRITE	#1 MSG$,Data
	CLOSE	#1
	RdLBB$	= "ENV:Terminus/LastCD"
	IF	EXISTS(RdLBB$)
		OPEN	INPUT 1,RdLBB$
		READ	#1,LastCD$
		CLOSE	#1
	ELSE
		LastCD$ = "uFOlAND`s  »»» 5*bOARDS ««"
	ENDIF

	LamLog$	= "TERMINUS:BoX/eNV/LostDw"
	FakLog$	= "TERMINUS:BoX/eNV/LostFk"
	BadLog$	= "TERMINUS:BoX/eNV/LostCD"
	OkiLog$	= "TERMINUS:BoX/eNV/LostOk"

	LamLok$	= "TERMINUS:BoX/eNV/LostDw1"
	FakLok$	= "TERMINUS:BoX/eNV/LostFk1"
	BadLok$	= "TERMINUS:BoX/eNV/LostCD1"
	OkiLok$	= "TERMINUS:BoX/eNV/LostOk1"
	LostBB$	= ""

	Today$	= RIGHT$(DATE$,2)+"."+MID$(DATE$,4,2)+"."+LEFT$(DATE$,2)
	WTime	= VAL(LEFT$(TIME$,2))*60+VAL(MID$(TIME$,4,2))

	IF	EXISTS("TERMINUS:Terminus1.aUTO")
		RdNumB$	= "TERMINUS:BoX/eNV/sETnUMbBS"
		IF	EXISTS(RdNumB$)
			OPEN	INPUT 1,RdNumB$
			READ	#1,sETnUMbBS
			CLOSE	#1
			sETnUMbBS = sETnUMbBS + 1
			IF	sETnUMbBS > 999
				sETnUMbBS = 0
			ENDIF
		ELSE
			sETnUMbBS = 0
		ENDIF
		XNum$	= STR$(sETnUMbBS)
		IF	sETnUMbBS < 100
			XNum$ = "0"+XNum$
			IF	sETnUMbBS < 10
				XNum$ = "0"+XNum$
			ENDIF
		ENDIF

		OPEN	OUTPUT 1,RdNumB$
		WRITE	#1 sETnUMbBS
		CLOSE	#1
		RdLBB$	= "TERMINUS:BoX/dATA/.ListBBS"
		RdNBB$	= "TERMINUS:BoX/dATA/.ListBBS1"
		XTime	= 1
		YepWr$	= "999 "+XNum$+" 360"
		YepBB$	= "NO"
		YTims$	= "120 001 010 015 020"
		IF	EXISTS(RdLBB$)
			IF	EXISTS(RdNBB$)
				CLI$	= "DELETE >NIL: "+RdNBB$
				EXECUTE	CLI$
			ENDIF
			CLI$	= "RENAME >NIL: "+RdLBB$+" "+RdNBB$
			EXECUTE	CLI$
			OPEN	INPUT 1,RdNBB$
			OPEN	OUTPUT 2,RdLBB$
RdNBBSLoop:
			READ	#1,CheckLine$
			IF	CheckLine$ != "END_OF_FILE"
				XAcc$	= LEFT$(CheckLine$,3)
				XTime$	= MID$(CheckLine$,9,3)
				XBB$	= MID$(CheckLine$,13,26)
				XTims$	= MID$(CheckLine$,54,19)
				IF	LEFT$(LastCD$,19) != LEFT$(XBB$,19)
					WRITE	#2 CheckLine$
				ELSE
					PRINT	LOCAL	""+CheckLine$+" sKIP!"
					XTime	= VAL(XTime$)
					YepWr$	= XAcc$+" "+XNum$+" "+XTime$
					YepBB$	= XBB$
					YTims$	= XTims$
				ENDIF
				GOTO	RdNBBSLoop
			ENDIF
			IF	YepBB$ != "NO"
				IF	EXISTS(LamLog$)
PRINT	LOCAL "LamLog FOUNDING . Setting GO >>> "+YepBB$
					LostBB$	= YepBB$
				ENDIF
				IF	EXISTS(FakLog$)
PRINT	LOCAL "FakLog FOUNDING "+STR$(WTime)+" - "+STR$(XTime)
					WTime = WTime - XTime
				ENDIF
				IF	EXISTS(BadLog$)
PRINT	LOCAL "BadLog FOUNDING "+STR$(WTime)
					WTime = WTime
				ENDIF
				IF	EXISTS(OkiLog$)
PRINT	LOCAL "OkiLog FOUNDING "+STR$(WTime)+" + 60"
					WTime = WTime + 60
				ENDIF
				WTime$	= STR$(WTime)
				IF	WTime < 1000
					IF	WTime < 100
						IF	WTime < 10
							WTime$	= "0"+WTime$
						ENDIF
						WTime$	= "0"+WTime$
					ENDIF
					WTime$	= "0"+WTime$
				ENDIF
				CheckLine$ = YepWr$+" "+YepBB$+" "+Today$+" "+WTime$+" "+YTims$
				WRITE	#2 CheckLine$
				PRINT	LOCAL	""+CheckLine$+" ADDING"
			ENDIF
			CLOSE	#2
			CLOSE	#1
		ENDIF
		PRINT	LOCAL	"\n"
		IF	EXISTS(LamLog$)
			PRINT	LOCAL	"[33:41m +++ Founding and Deleting LamLog <!!!>"
			IF	EXISTS(LamLok$)
				CLI$	= "RENAME >NIL: "+LamLok$+" TERMINUS:Terminus1.cONT"
				EXECUTE	CLI$
			ENDIF
			CLI$	= "RENAME >NIL: "+LamLog$+" "+LamLok$
			EXECUTE	CLI$
		ENDIF
		IF	EXISTS(FakLog$)
			PRINT	LOCAL	"[33:41m +++ Founding and Deleting FakLog <!!!>"
			IF	EXISTS(FakLok$)
				CLI$	= "DELETE >NIL: "+FakLok$
				EXECUTE	CLI$
			ENDIF
			CLI$	= "RENAME >NIL: "+FakLog$+" "+FakLok$
			EXECUTE	CLI$
		ENDIF
		IF	EXISTS(BadLog$)
			PRINT	LOCAL	"[33:41m +++ Founding and Deleting BadLog <***>"
			IF	EXISTS(BadLok$)
				CLI$	= "DELETE >NIL: "+BadLok$
				EXECUTE	CLI$
			ENDIF
			CLI$	= "RENAME >NIL: "+BadLog$+" "+BadLok$
			EXECUTE	CLI$
		ENDIF
		IF	EXISTS(OkiLog$)
			PRINT	LOCAL	"[33:41m +++ Founding and Deleting OkiLog <(O)>"
			IF	EXISTS(OkiLok$)
				CLI$	= "DELETE >NIL: "+OkiLok$
				EXECUTE	CLI$
			ENDIF
			CLI$	= "RENAME >NIL: "+OkiLog$+" "+OkiLok$
			EXECUTE	CLI$
		ENDIF
		PRINT	LOCAL	"\n"
	ENDIF

WaitsKIP:
	PRINT	LOCAL "Zapisujë dane..."
	SPHONES	"Terminus1.phones"
	PRINT	LOCAL "Ustawiam date..."
	DATEFMT = DD-MM-YY
	OPEN	OUTPUT 1,"ENV:Terminus/TODAY.TM"
	WRITE	#1 Today$
	CLOSE	#1
	
	PRINT	LOCAL "Ustawiam ôcieűki..."
	SCRIPTPATH$	= "TERMINUS:SCRIPT/"
	UPLOADPATH$	= "WAREZ:"
	MakeDir$	= UPLOADPATH$+Today$+"/!!!!!!!!.TxT"
	IF	EXISTS(MakeDir$)
		PRINT	LOCAL	"Znalazîem Katalog "UPLOADPATH$+Today$
	ELSE
		PRINT	LOCAL	"Tworzë Katalog "UPLOADPATH$+Today$
		EXECUTE	"MAKEDIR "+UPLOADPATH$+Today$
		PRINT	LOCAL	"\nKopiujë TERMINUS:C/!!!!!!!!.TxT."
		EXECUTE	"COPY TERMINUS:C/!!!!!!!!.TxT "+UPLOADPATH$+Today$+" CLONE"
	ENDIF
	UPLOADPATH$	= UPLOADPATH$+Today$
	DOWNLOADPATH$	= UPLOADPATH$

LOGFILE	= OFF
	IF	EXISTS("TERMINUS:Terminus1.log")
		IF	EXISTS("TERMINUS:Terminus1.LogBack")
			EXECUTE	"JOIN >NIL: TERMINUS:Terminus1.LogBack TERMINUS:Terminus1.Log AS RAM:Temp.TxT"
			EXECUTE	"COPY >NIL: RAM:Temp.TxT TERMINUS:Terminus1.LogBack"
			EXECUTE	"DELETE >NIL: TERMINUS:Terminus1.Log"
		ELSE
			EXECUTE	"RENAME >NIL: TERMINUS:Terminus1.Log TERMINUS:Terminus1.LogBack"
		ENDIF
		MSG$	= "FILE"
		Data	= VAL(LEFT$(TIME$,2))*60+VAL(MID$(TIME$,4,2))
		OPEN	OUTPUT 1,"RAM:Terminus.TM"
		WRITE	#1 MSG$,Data
		CLOSE	#1

	ENDIF
NoDelSys:
LOGFILE	= ON
	IF	EXISTS("TERMINUS:Terminus1.aUTO")
		WaitLoop = 0
WaitForBbs:
		IF	EXISTS("ENV:Terminus/LastCD")
			PAUSE	3
			CLI$	= "DELETE ENV:Terminus/LastCD"
			EXECUTE	CLI$
		ELSE
			PAUSE	1
			WaitLoop = WaitLoop + 1
			IF	WaitLoop < 10
				PRINT	LOCAL "°";
				GOTO	WaitForBbs
			ENDIF
		ENDIF
		PRINT	LOCAL " Idë dalej."

		OPEN	INPUT	1,"TERMINUS:Terminus1.aUTO"
		READ	#1,cALLBox
		CLOSE	#1
		IF	LostBB$ == ""
			cALLBox	= cALLBox - 1
		ELSE
			cALLBox	= 1
		ENDIF
		IF	cALLBox == 0
			SendFake$	= "RAM:SendFake.Flag"
			IF	EXISTS(SendFake$)
				EXECUTE	"DELETE >NIL: RAM:SendFake.Flag"
			ENDIF
			EXECUTE	"DELETE >NIL: TERMINUS:Terminus1.aUTO"
			PRINT	"\r\rNarazie to wszystko."
			GOTO	OkRING
		ELSE
			IF	cALLBox	== 1
				SELECT "B°°ND°CKS          » TRZ «"
			ENDIF
			OPEN	OUTPUT	1,"TERMINUS:Terminus1.aUTO"
			WRITE	#1 cALLBox
			CLOSE	#1
			PRINT	"\r Dzwonië jeszcze do "+STR$(cALLBox)+" skrzynek."
			ONTIMEOUT	GOTO	ReCall
			WAIT	5	"RING"
			PRINT	"\nWykryîem RING.\n"
			EXECUTE	"DELETE >NIL: TERMINUS:Terminus1.aUTO"
			GOTO	OkRING
		ENDIF
	ENDIF
WaitRing:
	PRINT	" *  ";
	WHEN	1 "*"	GOTO	ReEnd
	WHEN	2 " "	GOTO	ReCall
	ONTIMEOUT	GOTO	OkRING
	WAIT	10	"RING"

	PRINT	"\nWykryîem RING.\n"
OkRING:
	ONTIMEOUT
	IF	EXISTS("ENV:Terminus/BoX.NUM")
		OPEN	INPUT	1,"ENV:Terminus/BoX.NUM"
		READ	#1,VerBoX$
		CLOSE	#1
		CHAIN	VerBoX$
	ENDIF
ReCall:
	IF	LostBB$ != ""
		UNSELECT
		PRINT	LOCAL "\n GO! >>> "+LostBB$+" "
		SELECT	LostBB$
		GOTO	OkRING
	ELSE
		REDIAL
	ENDIF
ReEND:
	END