bssb_permit_status_c

	status.i4.v = bssb_permit_status_c(system.i4.v, is_present.i4.r
					   [,data_event.i1a.r])

	This routine returns the BSSB beam permit status for a system.

	system		desired system
			(BSSB_PERMIT_LINAC -> Linac,
			 BSSB_PERMIT_BOOSTER -> Booster,
			 BSSB_PERMIT_RECYCLER -> Recycler,
			 BSSB_PERMIT_MAIN_INJECTOR -> Main Injector,
			 BSSB_PERMIT_SWYD -> Switchyard,
			 BSSB_PERMIT_P1_LINE -> P1 line,
			 BSSB_PERMIT_P2_LINE -> P2 line,
			 BSSB_PERMIT_BOONE -> BooNE experiment,
			 BSSB_PERMIT_NUMI -> NuMI beam line,
			 BSSB_PERMIT_MUON -> Muon campus,
			 BSSB_PERMIT_MTA -> MTA,
			 BSSB_PERMIT_LBNF -> LBNF experiment)
	is_present	returned beam permit status
			(TRUE -> permit is present,
			 FALSE -> permit is not present)
	[data_event]	data event to sample the permit data on
			(default is one shot reading)

	This function returns ACNET status values as follows:

	OK			success
	CLIB_INVARG		invalid system requested
	otherwise		error reading permit status

	This function requires the following include files:

	ul_cbsaux_h:auxlib_misc_h, acnet_errors_h

	Related functions:

	bssb_permit_status_list_c

	C/C++ usage:

	static const char	data_event[] = "i";
	int	status;
	int	system = BSSB_PERMIT_BOOSTER;
	int	is_present;

	status = bssb_permit_status_c(system,&is_present,data_event);