/****************************************************************************/
/* $VER: Terminus 2.0e - BadCD.SCP V1.4 by UFOk!                 (05.05.97) */
/****************************************************************************/

	RdLBB$	= "ENV:Terminus/LastCD"
	IF	EXISTS(RdLBB$)
		OPEN	INPUT 1,RdLBB$
		READ	#1,LastCD$
		CLOSE	#1
	ELSE
		LastCD$ = "uFOlAND`s  »»» 5*bOARDS ««"
	ENDIF

	PRINT	LOCAL "\n\n#>  *** cARRIER lOST ( "+LastCD$+" ) *** "
	WrLOG$	= "#>  *** cARRIER lOST ( "+LastCD$+" ) *** "
	LOG	WrLOG$

	WrBad$	= "TERMINUS:BoX/eNV/LostFk"
	OPEN	OUTPUT 1,WrBad$
	WRITE	#1 LastCD$
	CLOSE	#1

	PRINT	LOCAL	" cARRIER lOST "
	CHAIN	"LostCD.SCP"