!	CRS_MENU_LOG.SCP			REB, 09-Mar-1990 13:27

.LABEL BEGIN
	.IF OA$FORM_NAME EQS "" THEN .GOTO FMB
	.IF OA$FORM_NAME EQS "CRS" THEN .GOTO FMB
	.IF OA$FORM_NAME EQS "CRSMLC" THEN .GOTO MLC

.LABEL FMB
	GET #CRS_LOCATION="FMB"
	GET LOG$CRS_RESERVE_A_FILE="OA$DATA:CRS_RESERVE_A.DAT"
	GET LOG$CRS_RESERVE_FILE="OA$DATA:CRS_RESERVE.DAT"
	GET LOG$CRS_ROOMS_FILE="OA$DATA:CRS_ROOMS.DAT"

	.IF LOG$CRS_RESERVE_FILE NES "OA$DATA:CRS_RESERVE.DAT" AND -
		LOG$CRS_ROOMS_FILE NES "OA$DATA:CRS_ROOMS.DAT" THEN -
			.GOTO FMB_ERROR
	.GOTO EXIT_PROCEDURE

.LABEL FMB_ERROR
	OA$MSG_PURGE
	DISPLAY LOGICALs may not be properly set.
	.GOTO EXIT_PROCEDURE

.LABEL MLC
	GET #CRS_LOCATION="MLC"
	GET LOG$CRS_RESERVE_FILE="OA$DATA:CRS_RESERVE_MLC.DAT"
	GET LOG$CRS_RESERVE_A_FILE="OA$DATA:CRS_RESERVE_A_MLC.DAT"
	GET LOG$CRS_ROOMS_FILE="OA$DATA:CRS_ROOMS_MLC.DAT"
	.IF LOG$CRS_RESERVE_FILE EQS "OA$DATA:CRS_RESERVE_MLC.DAT" AND -
	    LOG$CRS_ROOMS_FILE EQS "OA$DATA:CRS_ROOMS_MLC.DAT" THEN -
	    GET TITLE="M I S S I O N A R Y   L E A R N I N G   C E N T E R" 

	.GOTO EXIT_PROCEDURE

.LABEL EXIT_PROCEDURE
	DUMP_CACHE
	.EXIT