/*
    gr_ciopts.idlg

*!  VERSION 1.0.2  17may2011

*/


SCRIPT gr_ciopts_PREINIT
BEGIN
	create STRING gr_ciopts_rcapdResults
	create STRING gr_ciopts_rcap1Results
	create STRING gr_ciopts_rcap2Results
	create STRING gr_ciopts_rcap3Results
	create STRING gr_ciopts_rcap4Results
	create STRING gr_ciopts_rcap5Results
	create STRING gr_ciopts_rcap6Results
	create STRING gr_ciopts_rcap7Results
	create STRING gr_ciopts_rcap8Results

	create STRING gr_ciopts_rareadResults
	create STRING gr_ciopts_rarea1Results
	create STRING gr_ciopts_rarea2Results
	create STRING gr_ciopts_rarea3Results
	create STRING gr_ciopts_rarea4Results
	create STRING gr_ciopts_rarea5Results
	create STRING gr_ciopts_rarea6Results
	create STRING gr_ciopts_rarea7Results
	create STRING gr_ciopts_rarea8Results

	create STRING gr_ciopts_rbardResults
	create STRING gr_ciopts_rbar1Results
	create STRING gr_ciopts_rbar2Results
	create STRING gr_ciopts_rbar3Results
	create STRING gr_ciopts_rbar4Results
	create STRING gr_ciopts_rbar5Results
	create STRING gr_ciopts_rbar6Results
	create STRING gr_ciopts_rbar7Results
	create STRING gr_ciopts_rbar8Results

	create STRING gr_ciopts_rspikedResults
	create STRING gr_ciopts_rspike1Results
	create STRING gr_ciopts_rspike2Results
	create STRING gr_ciopts_rspike3Results
	create STRING gr_ciopts_rspike4Results
	create STRING gr_ciopts_rspike5Results
	create STRING gr_ciopts_rspike6Results
	create STRING gr_ciopts_rspike7Results
	create STRING gr_ciopts_rspike8Results

	create STRING gr_ciopts_rcapsdResults
	create STRING gr_ciopts_rcaps1Results
	create STRING gr_ciopts_rcaps2Results
	create STRING gr_ciopts_rcaps3Results
	create STRING gr_ciopts_rcaps4Results
	create STRING gr_ciopts_rcaps5Results
	create STRING gr_ciopts_rcaps6Results
	create STRING gr_ciopts_rcaps7Results
	create STRING gr_ciopts_rcaps8Results
	create STRING gr_ciopts_rcapsmdResults
	create STRING gr_ciopts_rcapsm1Results
	create STRING gr_ciopts_rcapsm2Results
	create STRING gr_ciopts_rcapsm3Results
	create STRING gr_ciopts_rcapsm4Results
	create STRING gr_ciopts_rcapsm5Results
	create STRING gr_ciopts_rcapsm6Results
	create STRING gr_ciopts_rcapsm7Results
	create STRING gr_ciopts_rcapsm8Results

	create STRING gr_ciopts_rscatdResults
	create STRING gr_ciopts_rscat1Results
	create STRING gr_ciopts_rscat2Results
	create STRING gr_ciopts_rscat3Results
	create STRING gr_ciopts_rscat4Results
	create STRING gr_ciopts_rscat5Results
	create STRING gr_ciopts_rscat6Results
	create STRING gr_ciopts_rscat7Results
	create STRING gr_ciopts_rscat8Results

	create STRING gr_ciopts_rlinedResults
	create STRING gr_ciopts_rline1Results
	create STRING gr_ciopts_rline2Results
	create STRING gr_ciopts_rline3Results
	create STRING gr_ciopts_rline4Results
	create STRING gr_ciopts_rline5Results
	create STRING gr_ciopts_rline6Results
	create STRING gr_ciopts_rline7Results
	create STRING gr_ciopts_rline8Results

	create STRING gr_ciopts_rconndResults
	create STRING gr_ciopts_rconn1Results
	create STRING gr_ciopts_rconn2Results
	create STRING gr_ciopts_rconn3Results
	create STRING gr_ciopts_rconn4Results
	create STRING gr_ciopts_rconn5Results
	create STRING gr_ciopts_rconn6Results
	create STRING gr_ciopts_rconn7Results
	create STRING gr_ciopts_rconn8Results
	create STRING gr_ciopts_rconnmdResults
	create STRING gr_ciopts_rconnm1Results
	create STRING gr_ciopts_rconnm2Results
	create STRING gr_ciopts_rconnm3Results
	create STRING gr_ciopts_rconnm4Results
	create STRING gr_ciopts_rconnm5Results
	create STRING gr_ciopts_rconnm6Results
	create STRING gr_ciopts_rconnm7Results
	create STRING gr_ciopts_rconnm8Results

	create STRING gr_ciopts_rcapOutput
	create STRING gr_ciopts_rareaOutput
	create STRING gr_ciopts_rbarOutput
	create STRING gr_ciopts_rspikeOutput
	create STRING gr_ciopts_rcapsymOutput
	create STRING gr_ciopts_rscatterOutput
	create STRING gr_ciopts_rlineOutput
	create STRING gr_ciopts_rconnectOutput
END

DIALOG gr_ciopts, tabtitle("CI plot")
BEGIN
  TEXT tx_ciopts_type		_lft	_top	_iwd	.,		///
	label("Plot type")
  COMBOBOX cb_plot_type		@	_ss	130	.,		///
	option(recastci)						///
	dropdownlist							///
	contents(gr_ciopts_plotType)					///
	values(gr_ciopts_plotType_values)				///
	onselchange(program gr_ciopts_plot_type_sel)			///
	label("Plot type")

  TEXT tx_plot			@	_ls	@	.,		///
	label("Select plot:")
  LISTBOX lb_plot		@	_ss	@	135,		///
	contents(gr_ciopts_plotList)					///
	values(gr_ciopts_plotList_values)				///
	onselchange(program gr_ciopts_plotList_sel)
  DEFINE y @y

  BUTTON bu_rcap_d		150	y	120	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcap_1		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcap_2		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcap_3		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcap_4		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcap_5		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcap_6		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcap_7		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcap_8		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)

  COMBOBOX cb_rcap_d		@	+35	120	.,		///
	dropdown							///
	contents(symbolsizes)
  COMBOBOX cb_rcap_1		@	@	@	.,		///
	dropdown							///
	contents(symbolsizes)
  COMBOBOX cb_rcap_2		@	@	@	.,		///
	dropdown							///
	contents(symbolsizes)
  COMBOBOX cb_rcap_3		@	@	@	.,		///
	dropdown							///
	contents(symbolsizes)
  COMBOBOX cb_rcap_4		@	@	@	.,		///
	dropdown							///
	contents(symbolsizes)
  COMBOBOX cb_rcap_5		@	@	@	.,		///
	dropdown							///
	contents(symbolsizes)
  COMBOBOX cb_rcap_6		@	@	@	.,		///
	dropdown							///
	contents(symbolsizes)
  COMBOBOX cb_rcap_7		@	@	@	.,		///
	dropdown							///
	contents(symbolsizes)
  COMBOBOX cb_rcap_8		@	@	@	.,		///
	dropdown							///
	contents(symbolsizes)
  TEXT tx_rcap			+125	@	120	.,		///
	label("Cap size")

  BUTTON bu_rarea_d		150	y	120	.,		///
	label("Area properties  ")					///
	onpush(program gr_ciopts_showAreaDialog)
  BUTTON bu_rarea_1		@	@	@	.,		///
	label("Area properties  ")					///
	onpush(program gr_ciopts_showAreaDialog)
  BUTTON bu_rarea_2		@	@	@	.,		///
	label("Area properties  ")					///
	onpush(program gr_ciopts_showAreaDialog)
  BUTTON bu_rarea_3		@	@	@	.,		///
	label("Area properties  ")					///
	onpush(program gr_ciopts_showAreaDialog)
  BUTTON bu_rarea_4		@	@	@	.,		///
	label("Area properties  ")					///
	onpush(program gr_ciopts_showAreaDialog)
  BUTTON bu_rarea_5		@	@	@	.,		///
	label("Area properties  ")					///
	onpush(program gr_ciopts_showAreaDialog)
  BUTTON bu_rarea_6		@	@	@	.,		///
	label("Area properties  ")					///
	onpush(program gr_ciopts_showAreaDialog)
  BUTTON bu_rarea_7		@	@	@	.,		///
	label("Area properties  ")					///
	onpush(program gr_ciopts_showAreaDialog)
  BUTTON bu_rarea_8		@	@	@	.,		///
	label("Area properties  ")					///
	onpush(program gr_ciopts_showAreaDialog)

  BUTTON bu_rbar_d		@	@	@	.,		///
	label("Bar properties  ")					///
	onpush(program gr_ciopts_showBarDialog)
  BUTTON bu_rbar_1		@	@	@	.,		///
	label("Bar properties  ")					///
	onpush(program gr_ciopts_showBarDialog)
  BUTTON bu_rbar_2		@	@	@	.,		///
	label("Bar properties  ")					///
	onpush(program gr_ciopts_showBarDialog)
  BUTTON bu_rbar_3		@	@	@	.,		///
	label("Bar properties  ")					///
	onpush(program gr_ciopts_showBarDialog)
  BUTTON bu_rbar_4		@	@	@	.,		///
	label("Bar properties  ")					///
	onpush(program gr_ciopts_showBarDialog)
  BUTTON bu_rbar_5		@	@	@	.,		///
	label("Bar properties  ")					///
	onpush(program gr_ciopts_showBarDialog)
  BUTTON bu_rbar_6		@	@	@	.,		///
	label("Bar properties  ")					///
	onpush(program gr_ciopts_showBarDialog)
  BUTTON bu_rbar_7		@	@	@	.,		///
	label("Bar properties  ")					///
	onpush(program gr_ciopts_showBarDialog)
  BUTTON bu_rbar_8		@	@	@	.,		///
	label("Bar properties  ")					///
	onpush(program gr_ciopts_showBarDialog)

  BUTTON bu_rspike_d		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rspike_1		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rspike_2		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rspike_3		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rspike_4		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rspike_5		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rspike_6		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rspike_7		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rspike_8		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)

  BUTTON bu_rcaps_d		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcaps_1		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcaps_2		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcaps_3		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcaps_4		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcaps_5		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcaps_6		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcaps_7		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)
  BUTTON bu_rcaps_8		@	@	@	.,		///
	label("Spike properties  ")					///
	onpush(program gr_ciopts_showSpikeDialog)

  BUTTON bu_rcapsm_d		@	+30	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rcapsm_1		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rcapsm_2		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rcapsm_3		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rcapsm_4		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rcapsm_5		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rcapsm_6		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rcapsm_7		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rcapsm_8		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")

  BUTTON bu_rscat_d		150	y	120	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rscat_1		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rscat_2		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rscat_3		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rscat_4		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rscat_5		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rscat_6		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rscat_7		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rscat_8		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")

  BUTTON bu_rline_d		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rline_1		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rline_2		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rline_3		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rline_4		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rline_5		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rline_6		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rline_7		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rline_8		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)

  BUTTON bu_rconn_d		150	y	120	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rconn_1		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rconn_2		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rconn_3		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rconn_4		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rconn_5		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rconn_6		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rconn_7		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)
  BUTTON bu_rconn_8		@	@	@	.,		///
	label("Line properties  ")					///
	onpush(program gr_ciopts_showLineDialog)

  BUTTON bu_rconnm_d		@	+30	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rconnm_1		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rconnm_2		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rconnm_3		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rconnm_4		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rconnm_5		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rconnm_6		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rconnm_7		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")
  BUTTON bu_rconnm_8		@	@	@	.,		///
	label("Marker properties  ")					///
	onpush(program gr_ciopts_showMarkerDialog)			///
	tooltip("Marker symbol and label properties")

  TEXTBOX tb_note		_lft	225	_iwd	_tb3,		///
	label("The plots shown here do not necessarily"			///
		"reflect the number of actual plots for the graph.")
END

SCRIPT gr_ciopts_enable
BEGIN
	gr_ciopts.tx_ciopts_type.enable
	gr_ciopts.cb_plot_type.enable
	gr_ciopts.tx_plot.enable
	gr_ciopts.lb_plot.enable
	gr_ciopts.bu_rcap_d.enable
	gr_ciopts.bu_rcap_1.enable
	gr_ciopts.bu_rcap_2.enable
	gr_ciopts.bu_rcap_3.enable
	gr_ciopts.bu_rcap_4.enable
	gr_ciopts.bu_rcap_5.enable
	gr_ciopts.bu_rcap_6.enable
	gr_ciopts.bu_rcap_7.enable
	gr_ciopts.bu_rcap_8.enable
	gr_ciopts.cb_rcap_d.enable
	gr_ciopts.cb_rcap_1.enable
	gr_ciopts.cb_rcap_2.enable
	gr_ciopts.cb_rcap_3.enable
	gr_ciopts.cb_rcap_4.enable
	gr_ciopts.cb_rcap_5.enable
	gr_ciopts.cb_rcap_6.enable
	gr_ciopts.cb_rcap_7.enable
	gr_ciopts.cb_rcap_8.enable
	gr_ciopts.tx_rcap.enable	
	gr_ciopts.bu_rarea_d.enable
	gr_ciopts.bu_rarea_1.enable
	gr_ciopts.bu_rarea_2.enable
	gr_ciopts.bu_rarea_3.enable
	gr_ciopts.bu_rarea_4.enable
	gr_ciopts.bu_rarea_5.enable
	gr_ciopts.bu_rarea_6.enable
	gr_ciopts.bu_rarea_7.enable
	gr_ciopts.bu_rarea_8.enable
	gr_ciopts.bu_rbar_d.enable
	gr_ciopts.bu_rbar_1.enable
	gr_ciopts.bu_rbar_2.enable
	gr_ciopts.bu_rbar_3.enable
	gr_ciopts.bu_rbar_4.enable
	gr_ciopts.bu_rbar_5.enable
	gr_ciopts.bu_rbar_6.enable
	gr_ciopts.bu_rbar_7.enable
	gr_ciopts.bu_rbar_8.enable
	gr_ciopts.bu_rspike_d.enable
	gr_ciopts.bu_rspike_1.enable
	gr_ciopts.bu_rspike_2.enable
	gr_ciopts.bu_rspike_3.enable
	gr_ciopts.bu_rspike_4.enable
	gr_ciopts.bu_rspike_5.enable
	gr_ciopts.bu_rspike_6.enable
	gr_ciopts.bu_rspike_7.enable
	gr_ciopts.bu_rspike_8.enable
	gr_ciopts.bu_rcaps_d.enable
	gr_ciopts.bu_rcaps_1.enable
	gr_ciopts.bu_rcaps_2.enable
	gr_ciopts.bu_rcaps_3.enable
	gr_ciopts.bu_rcaps_4.enable
	gr_ciopts.bu_rcaps_5.enable
	gr_ciopts.bu_rcaps_6.enable
	gr_ciopts.bu_rcaps_7.enable
	gr_ciopts.bu_rcaps_8.enable	
	gr_ciopts.bu_rcapsm_d.enable
	gr_ciopts.bu_rcapsm_1.enable
	gr_ciopts.bu_rcapsm_2.enable
	gr_ciopts.bu_rcapsm_3.enable
	gr_ciopts.bu_rcapsm_4.enable
	gr_ciopts.bu_rcapsm_5.enable
	gr_ciopts.bu_rcapsm_6.enable
	gr_ciopts.bu_rcapsm_7.enable
	gr_ciopts.bu_rcapsm_8.enable
	gr_ciopts.bu_rscat_d.enable
	gr_ciopts.bu_rscat_1.enable
	gr_ciopts.bu_rscat_2.enable	
	gr_ciopts.bu_rscat_3.enable
	gr_ciopts.bu_rscat_4.enable
	gr_ciopts.bu_rscat_5.enable
	gr_ciopts.bu_rscat_6.enable
	gr_ciopts.bu_rscat_7.enable
	gr_ciopts.bu_rscat_8.enable
	gr_ciopts.bu_rline_d.enable
	gr_ciopts.bu_rline_1.enable
	gr_ciopts.bu_rline_2.enable
	gr_ciopts.bu_rline_3.enable
	gr_ciopts.bu_rline_4.enable
	gr_ciopts.bu_rline_5.enable
	gr_ciopts.bu_rline_6.enable
	gr_ciopts.bu_rline_7.enable
	gr_ciopts.bu_rline_8.enable
	gr_ciopts.bu_rconn_d.enable
	gr_ciopts.bu_rconn_1.enable
	gr_ciopts.bu_rconn_2.enable
	gr_ciopts.bu_rconn_3.enable
	gr_ciopts.bu_rconn_4.enable
	gr_ciopts.bu_rconn_5.enable
	gr_ciopts.bu_rconn_6.enable
	gr_ciopts.bu_rconn_7.enable
	gr_ciopts.bu_rconn_8.enable
	gr_ciopts.bu_rconnm_d.enable
	gr_ciopts.bu_rconnm_1.enable
	gr_ciopts.bu_rconnm_2.enable
	gr_ciopts.bu_rconnm_3.enable
	gr_ciopts.bu_rconnm_4.enable
	gr_ciopts.bu_rconnm_5.enable
	gr_ciopts.bu_rconnm_6.enable
	gr_ciopts.bu_rconnm_7.enable
	gr_ciopts.bu_rconnm_8.enable
	gr_ciopts.tb_note.enable
END

SCRIPT gr_ciopts_disable
BEGIN
	gr_ciopts.tx_ciopts_type.disable
	gr_ciopts.cb_plot_type.disable
	gr_ciopts.tx_plot.disable
	gr_ciopts.lb_plot.disable
	gr_ciopts.bu_rcap_d.disable
	gr_ciopts.bu_rcap_1.disable
	gr_ciopts.bu_rcap_2.disable
	gr_ciopts.bu_rcap_3.disable
	gr_ciopts.bu_rcap_4.disable
	gr_ciopts.bu_rcap_5.disable
	gr_ciopts.bu_rcap_6.disable
	gr_ciopts.bu_rcap_7.disable
	gr_ciopts.bu_rcap_8.disable
	gr_ciopts.cb_rcap_d.disable
	gr_ciopts.cb_rcap_1.disable
	gr_ciopts.cb_rcap_2.disable
	gr_ciopts.cb_rcap_3.disable
	gr_ciopts.cb_rcap_4.disable
	gr_ciopts.cb_rcap_5.disable
	gr_ciopts.cb_rcap_6.disable
	gr_ciopts.cb_rcap_7.disable
	gr_ciopts.cb_rcap_8.disable
	gr_ciopts.tx_rcap.disable	
	gr_ciopts.bu_rarea_d.disable
	gr_ciopts.bu_rarea_1.disable
	gr_ciopts.bu_rarea_2.disable
	gr_ciopts.bu_rarea_3.disable
	gr_ciopts.bu_rarea_4.disable
	gr_ciopts.bu_rarea_5.disable
	gr_ciopts.bu_rarea_6.disable
	gr_ciopts.bu_rarea_7.disable
	gr_ciopts.bu_rarea_8.disable
	gr_ciopts.bu_rbar_d.disable
	gr_ciopts.bu_rbar_1.disable
	gr_ciopts.bu_rbar_2.disable
	gr_ciopts.bu_rbar_3.disable
	gr_ciopts.bu_rbar_4.disable
	gr_ciopts.bu_rbar_5.disable
	gr_ciopts.bu_rbar_6.disable
	gr_ciopts.bu_rbar_7.disable
	gr_ciopts.bu_rbar_8.disable
	gr_ciopts.bu_rspike_d.disable
	gr_ciopts.bu_rspike_1.disable
	gr_ciopts.bu_rspike_2.disable
	gr_ciopts.bu_rspike_3.disable
	gr_ciopts.bu_rspike_4.disable
	gr_ciopts.bu_rspike_5.disable
	gr_ciopts.bu_rspike_6.disable
	gr_ciopts.bu_rspike_7.disable
	gr_ciopts.bu_rspike_8.disable
	gr_ciopts.bu_rcaps_d.disable
	gr_ciopts.bu_rcaps_1.disable
	gr_ciopts.bu_rcaps_2.disable
	gr_ciopts.bu_rcaps_3.disable
	gr_ciopts.bu_rcaps_4.disable
	gr_ciopts.bu_rcaps_5.disable
	gr_ciopts.bu_rcaps_6.disable
	gr_ciopts.bu_rcaps_7.disable
	gr_ciopts.bu_rcaps_8.disable	
	gr_ciopts.bu_rcapsm_d.disable
	gr_ciopts.bu_rcapsm_1.disable
	gr_ciopts.bu_rcapsm_2.disable
	gr_ciopts.bu_rcapsm_3.disable
	gr_ciopts.bu_rcapsm_4.disable
	gr_ciopts.bu_rcapsm_5.disable
	gr_ciopts.bu_rcapsm_6.disable
	gr_ciopts.bu_rcapsm_7.disable
	gr_ciopts.bu_rcapsm_8.disable
	gr_ciopts.bu_rscat_d.disable
	gr_ciopts.bu_rscat_1.disable
	gr_ciopts.bu_rscat_2.disable	
	gr_ciopts.bu_rscat_3.disable
	gr_ciopts.bu_rscat_4.disable
	gr_ciopts.bu_rscat_5.disable
	gr_ciopts.bu_rscat_6.disable
	gr_ciopts.bu_rscat_7.disable
	gr_ciopts.bu_rscat_8.disable
	gr_ciopts.bu_rline_d.disable
	gr_ciopts.bu_rline_1.disable
	gr_ciopts.bu_rline_2.disable
	gr_ciopts.bu_rline_3.disable
	gr_ciopts.bu_rline_4.disable
	gr_ciopts.bu_rline_5.disable
	gr_ciopts.bu_rline_6.disable
	gr_ciopts.bu_rline_7.disable
	gr_ciopts.bu_rline_8.disable
	gr_ciopts.bu_rconn_d.disable	
	gr_ciopts.bu_rconn_1.disable
	gr_ciopts.bu_rconn_2.disable
	gr_ciopts.bu_rconn_3.disable
	gr_ciopts.bu_rconn_4.disable
	gr_ciopts.bu_rconn_5.disable
	gr_ciopts.bu_rconn_6.disable
	gr_ciopts.bu_rconn_7.disable
	gr_ciopts.bu_rconn_8.disable
	gr_ciopts.bu_rconnm_d.disable
	gr_ciopts.bu_rconnm_1.disable
	gr_ciopts.bu_rconnm_2.disable
	gr_ciopts.bu_rconnm_3.disable
	gr_ciopts.bu_rconnm_4.disable
	gr_ciopts.bu_rconnm_5.disable
	gr_ciopts.bu_rconnm_6.disable
	gr_ciopts.bu_rconnm_7.disable
	gr_ciopts.bu_rconnm_8.disable
	gr_ciopts.tb_note.disable
END

LIST gr_ciopts_plotType
BEGIN
	"Range rspike w/cap"
	"Range rarea"
	"Range rbar"
	"Range rspike"
	"Range rspike w/symbol"
	"Range rscatter"
	"Range rline"
	"Range rconnect"
END

LIST gr_ciopts_plotType_values
BEGIN
	""
	"rarea"
	"rbar"
	"rspike"
	"rcapsym"
	"rscatter"
	"rline"
	"rconnected"
END

LIST gr_ciopts_plotList
BEGIN
	"All Plots"
	"Plot 1"
	"Plot 2"
	"Plot 3"
	"Plot 4"
	"Plot 5"
	"Plot 6"
	"Plot 7"
	"Plot 8"
END

LIST gr_ciopts_plotList_values
BEGIN
	"plot"
	"plot1"
	"plot2"
	"plot3"
	"plot4"
	"plot5"
	"plot6"
	"plot7"
	"plot8"
END

PROGRAM gr_ciopts_plot_type_sel
BEGIN
	call program gr_ciopts_plotList_sel
END

SCRIPT gr_ciopts_hide_buttons
BEGIN
	gr_ciopts.bu_rcap_d.hide
	gr_ciopts.bu_rcap_1.hide
	gr_ciopts.bu_rcap_2.hide
	gr_ciopts.bu_rcap_3.hide
	gr_ciopts.bu_rcap_4.hide
	gr_ciopts.bu_rcap_5.hide
	gr_ciopts.bu_rcap_6.hide
	gr_ciopts.bu_rcap_7.hide
	gr_ciopts.bu_rcap_8.hide
	gr_ciopts.cb_rcap_d.hide
	gr_ciopts.cb_rcap_1.hide
	gr_ciopts.cb_rcap_2.hide
	gr_ciopts.cb_rcap_3.hide
	gr_ciopts.cb_rcap_4.hide
	gr_ciopts.cb_rcap_5.hide
	gr_ciopts.cb_rcap_6.hide
	gr_ciopts.cb_rcap_7.hide
	gr_ciopts.cb_rcap_8.hide
	gr_ciopts.tx_rcap.hide

	gr_ciopts.bu_rarea_d.hide
	gr_ciopts.bu_rarea_1.hide
	gr_ciopts.bu_rarea_2.hide
	gr_ciopts.bu_rarea_3.hide
	gr_ciopts.bu_rarea_4.hide
	gr_ciopts.bu_rarea_5.hide
	gr_ciopts.bu_rarea_6.hide
	gr_ciopts.bu_rarea_7.hide
	gr_ciopts.bu_rarea_8.hide

	gr_ciopts.bu_rbar_d.hide
	gr_ciopts.bu_rbar_1.hide
	gr_ciopts.bu_rbar_2.hide
	gr_ciopts.bu_rbar_3.hide
	gr_ciopts.bu_rbar_4.hide
	gr_ciopts.bu_rbar_5.hide
	gr_ciopts.bu_rbar_6.hide
	gr_ciopts.bu_rbar_7.hide
	gr_ciopts.bu_rbar_8.hide

	gr_ciopts.bu_rspike_d.hide
	gr_ciopts.bu_rspike_1.hide
	gr_ciopts.bu_rspike_2.hide
	gr_ciopts.bu_rspike_3.hide
	gr_ciopts.bu_rspike_4.hide
	gr_ciopts.bu_rspike_5.hide
	gr_ciopts.bu_rspike_6.hide
	gr_ciopts.bu_rspike_7.hide
	gr_ciopts.bu_rspike_8.hide

	gr_ciopts.bu_rcaps_d.hide
	gr_ciopts.bu_rcaps_1.hide
	gr_ciopts.bu_rcaps_2.hide
	gr_ciopts.bu_rcaps_3.hide
	gr_ciopts.bu_rcaps_4.hide
	gr_ciopts.bu_rcaps_5.hide
	gr_ciopts.bu_rcaps_6.hide
	gr_ciopts.bu_rcaps_7.hide
	gr_ciopts.bu_rcaps_8.hide
	gr_ciopts.bu_rcapsm_d.hide
	gr_ciopts.bu_rcapsm_1.hide
	gr_ciopts.bu_rcapsm_2.hide
	gr_ciopts.bu_rcapsm_3.hide
	gr_ciopts.bu_rcapsm_4.hide
	gr_ciopts.bu_rcapsm_5.hide
	gr_ciopts.bu_rcapsm_6.hide
	gr_ciopts.bu_rcapsm_7.hide
	gr_ciopts.bu_rcapsm_8.hide

	gr_ciopts.bu_rscat_d.hide
	gr_ciopts.bu_rscat_1.hide
	gr_ciopts.bu_rscat_2.hide
	gr_ciopts.bu_rscat_3.hide
	gr_ciopts.bu_rscat_4.hide
	gr_ciopts.bu_rscat_5.hide
	gr_ciopts.bu_rscat_6.hide
	gr_ciopts.bu_rscat_7.hide
	gr_ciopts.bu_rscat_8.hide

	gr_ciopts.bu_rline_d.hide
	gr_ciopts.bu_rline_1.hide
	gr_ciopts.bu_rline_2.hide
	gr_ciopts.bu_rline_3.hide
	gr_ciopts.bu_rline_4.hide
	gr_ciopts.bu_rline_5.hide
	gr_ciopts.bu_rline_6.hide
	gr_ciopts.bu_rline_7.hide
	gr_ciopts.bu_rline_8.hide

	gr_ciopts.bu_rconn_d.hide
	gr_ciopts.bu_rconn_1.hide
	gr_ciopts.bu_rconn_2.hide
	gr_ciopts.bu_rconn_3.hide
	gr_ciopts.bu_rconn_4.hide
	gr_ciopts.bu_rconn_5.hide
	gr_ciopts.bu_rconn_6.hide
	gr_ciopts.bu_rconn_7.hide
	gr_ciopts.bu_rconn_8.hide
	gr_ciopts.bu_rconnm_d.hide
	gr_ciopts.bu_rconnm_1.hide
	gr_ciopts.bu_rconnm_2.hide
	gr_ciopts.bu_rconnm_3.hide
	gr_ciopts.bu_rconnm_4.hide
	gr_ciopts.bu_rconnm_5.hide
	gr_ciopts.bu_rconnm_6.hide
	gr_ciopts.bu_rconnm_7.hide
	gr_ciopts.bu_rconnm_8.hide
END

PROGRAM gr_ciopts_plotList_sel
BEGIN
	call script gr_ciopts_hide_buttons
	if gr_ciopts.lb_plot.iseq("plot") {
		if gr_ciopts.cb_plot_type.iseq("") {
			call gr_ciopts.bu_rcap_d.show
			call gr_ciopts.cb_rcap_d.show
			call gr_ciopts.tx_rcap.show
		}
		if gr_ciopts.cb_plot_type.iseq("rarea") {
			call gr_ciopts.bu_rarea_d.show
		}
		if gr_ciopts.cb_plot_type.iseq("rbar") {
			call gr_ciopts.bu_rbar_d.show
		}
		if gr_ciopts.cb_plot_type.iseq("rspike") {
			call gr_ciopts.bu_rspike_d.show
		}
		if gr_ciopts.cb_plot_type.iseq("rcapsym") {
			call gr_ciopts.bu_rcaps_d.show
			call gr_ciopts.bu_rcapsm_d.show
		}
		if gr_ciopts.cb_plot_type.iseq("rscatter") {
			call gr_ciopts.bu_rscat_d.show
		}
		if gr_ciopts.cb_plot_type.iseq("rline") {
			call gr_ciopts.bu_rline_d.show
		}
		if gr_ciopts.cb_plot_type.iseq("rconnected") {
			call gr_ciopts.bu_rconn_d.show
			call gr_ciopts.bu_rconnm_d.show
		}
	}
	if gr_ciopts.lb_plot.iseq("plot1") {
		if gr_ciopts.cb_plot_type.iseq("") {
			call gr_ciopts.bu_rcap_1.show
			call gr_ciopts.cb_rcap_1.show
			call gr_ciopts.tx_rcap.show
		}
		if gr_ciopts.cb_plot_type.iseq("rarea") {
			call gr_ciopts.bu_rarea_1.show
		}
		if gr_ciopts.cb_plot_type.iseq("rbar") {
			call gr_ciopts.bu_rbar_1.show
		}
		if gr_ciopts.cb_plot_type.iseq("rspike") {
			call gr_ciopts.bu_rspike_1.show
		}
		if gr_ciopts.cb_plot_type.iseq("rcapsym") {
			call gr_ciopts.bu_rcaps_1.show
			call gr_ciopts.bu_rcapsm_1.show
		}
		if gr_ciopts.cb_plot_type.iseq("rscatter") {
			call gr_ciopts.bu_rscat_1.show
		}
		if gr_ciopts.cb_plot_type.iseq("rline") {
			call gr_ciopts.bu_rline_1.show
		}
		if gr_ciopts.cb_plot_type.iseq("rconnected") {
			call gr_ciopts.bu_rconn_1.show
			call gr_ciopts.bu_rconnm_1.show
		}
	}
	if gr_ciopts.lb_plot.iseq("plot2") {
		if gr_ciopts.cb_plot_type.iseq("") {
			call gr_ciopts.bu_rcap_2.show
			call gr_ciopts.cb_rcap_2.show
			call gr_ciopts.tx_rcap.show
		}
		if gr_ciopts.cb_plot_type.iseq("rscatter") {
			call gr_ciopts.bu_rscat_2.show
		}
		if gr_ciopts.cb_plot_type.iseq("rline") {
			call gr_ciopts.bu_rline_2.show
		}
		if gr_ciopts.cb_plot_type.iseq("rarea") {
			call gr_ciopts.bu_rarea_2.show
		}
		if gr_ciopts.cb_plot_type.iseq("rbar") {
			call gr_ciopts.bu_rbar_2.show
		}
		if gr_ciopts.cb_plot_type.iseq("rspike") {
			call gr_ciopts.bu_rspike_2.show
		}
		if gr_ciopts.cb_plot_type.iseq("rcapsym") {
			call gr_ciopts.bu_rcaps_2.show
			call gr_ciopts.bu_rcapsm_2.show
		}
		if gr_ciopts.cb_plot_type.iseq("rscatter") {
			call gr_ciopts.bu_rscat_2.show
		}
		if gr_ciopts.cb_plot_type.iseq("rline") {
			call gr_ciopts.bu_rline_2.show
		}
		if gr_ciopts.cb_plot_type.iseq("rconnected") {
			call gr_ciopts.bu_rconn_2.show
			call gr_ciopts.bu_rconnm_2.show
		}
	}
	if gr_ciopts.lb_plot.iseq("plot3") {
		if gr_ciopts.cb_plot_type.iseq("") {
			call gr_ciopts.bu_rcap_3.show
			call gr_ciopts.cb_rcap_3.show
			call gr_ciopts.tx_rcap.show
		}
		if gr_ciopts.cb_plot_type.iseq("rarea") {
			call gr_ciopts.bu_rarea_3.show
		}
		if gr_ciopts.cb_plot_type.iseq("rbar") {
			call gr_ciopts.bu_rbar_3.show
		}
		if gr_ciopts.cb_plot_type.iseq("rspike") {
			call gr_ciopts.bu_rspike_3.show
		}
		if gr_ciopts.cb_plot_type.iseq("rcapsym") {
			call gr_ciopts.bu_rcaps_3.show
			call gr_ciopts.bu_rcapsm_3.show
		}
		if gr_ciopts.cb_plot_type.iseq("rscatter") {
			call gr_ciopts.bu_rscat_3.show
		}
		if gr_ciopts.cb_plot_type.iseq("rline") {
			call gr_ciopts.bu_rline_3.show
		}
		if gr_ciopts.cb_plot_type.iseq("rconnected") {
			call gr_ciopts.bu_rconn_3.show
			call gr_ciopts.bu_rconnm_3.show
		}
	}
	if gr_ciopts.lb_plot.iseq("plot4") {
		if gr_ciopts.cb_plot_type.iseq("") {
			call gr_ciopts.bu_rcap_4.show
			call gr_ciopts.cb_rcap_4.show
			call gr_ciopts.tx_rcap.show
		}
		if gr_ciopts.cb_plot_type.iseq("rarea") {
			call gr_ciopts.bu_rarea_4.show
		}
		if gr_ciopts.cb_plot_type.iseq("rbar") {
			call gr_ciopts.bu_rbar_4.show
		}
		if gr_ciopts.cb_plot_type.iseq("rspike") {
			call gr_ciopts.bu_rspike_4.show
		}
		if gr_ciopts.cb_plot_type.iseq("rcapsym") {
			call gr_ciopts.bu_rcaps_4.show
			call gr_ciopts.bu_rcapsm_4.show
		}
		if gr_ciopts.cb_plot_type.iseq("rscatter") {
			call gr_ciopts.bu_rscat_4.show
		}
		if gr_ciopts.cb_plot_type.iseq("rline") {
			call gr_ciopts.bu_rline_4.show
		}
		if gr_ciopts.cb_plot_type.iseq("rconnected") {
			call gr_ciopts.bu_rconn_4.show
			call gr_ciopts.bu_rconnm_4.show
		}
	}
	if gr_ciopts.lb_plot.iseq("plot5") {
		if gr_ciopts.cb_plot_type.iseq("") {
			call gr_ciopts.bu_rcap_5.show
			call gr_ciopts.cb_rcap_5.show
			call gr_ciopts.tx_rcap.show
		}
		if gr_ciopts.cb_plot_type.iseq("rarea") {
			call gr_ciopts.bu_rarea_5.show
		}
		if gr_ciopts.cb_plot_type.iseq("rbar") {
			call gr_ciopts.bu_rbar_5.show
		}
		if gr_ciopts.cb_plot_type.iseq("rspike") {
			call gr_ciopts.bu_rspike_5.show
		}
		if gr_ciopts.cb_plot_type.iseq("rcapsym") {
			call gr_ciopts.bu_rcaps_5.show
			call gr_ciopts.bu_rcapsm_5.show
		}
		if gr_ciopts.cb_plot_type.iseq("rscatter") {
			call gr_ciopts.bu_rscat_5.show
		}
		if gr_ciopts.cb_plot_type.iseq("rline") {
			call gr_ciopts.bu_rline_5.show
		}
		if gr_ciopts.cb_plot_type.iseq("rconnected") {
			call gr_ciopts.bu_rconn_5.show
			call gr_ciopts.bu_rconnm_5.show
		}
	}
	if gr_ciopts.lb_plot.iseq("plot6") {
		if gr_ciopts.cb_plot_type.iseq("") {
			call gr_ciopts.bu_rcap_6.show
			call gr_ciopts.cb_rcap_6.show
			call gr_ciopts.tx_rcap.show
		}
		if gr_ciopts.cb_plot_type.iseq("rarea") {
			call gr_ciopts.bu_rarea_6.show
		}
		if gr_ciopts.cb_plot_type.iseq("rbar") {
			call gr_ciopts.bu_rbar_6.show
		}
		if gr_ciopts.cb_plot_type.iseq("rspike") {
			call gr_ciopts.bu_rspike_6.show
		}
		if gr_ciopts.cb_plot_type.iseq("rcapsym") {
			call gr_ciopts.bu_rcaps_6.show
			call gr_ciopts.bu_rcapsm_6.show
		}
		if gr_ciopts.cb_plot_type.iseq("rscatter") {
			call gr_ciopts.bu_rscat_6.show
		}
		if gr_ciopts.cb_plot_type.iseq("rline") {
			call gr_ciopts.bu_rline_6.show
		}
		if gr_ciopts.cb_plot_type.iseq("rconnected") {
			call gr_ciopts.bu_rconn_6.show
			call gr_ciopts.bu_rconnm_6.show
		}
	}
	if gr_ciopts.lb_plot.iseq("plot7") {
		if gr_ciopts.cb_plot_type.iseq("") {
			call gr_ciopts.bu_rcap_7.show
			call gr_ciopts.cb_rcap_7.show
			call gr_ciopts.tx_rcap.show
		}
		if gr_ciopts.cb_plot_type.iseq("rarea") {
			call gr_ciopts.bu_rarea_7.show
		}
		if gr_ciopts.cb_plot_type.iseq("rbar") {
			call gr_ciopts.bu_rbar_7.show
		}
		if gr_ciopts.cb_plot_type.iseq("rspike") {
			call gr_ciopts.bu_rspike_7.show
		}
		if gr_ciopts.cb_plot_type.iseq("rcapsym") {
			call gr_ciopts.bu_rcaps_7.show
			call gr_ciopts.bu_rcapsm_7.show
		}
		if gr_ciopts.cb_plot_type.iseq("rscatter") {
			call gr_ciopts.bu_rscat_7.show
		}
		if gr_ciopts.cb_plot_type.iseq("rline") {
			call gr_ciopts.bu_rline_7.show
		}
		if gr_ciopts.cb_plot_type.iseq("rconnected") {
			call gr_ciopts.bu_rconn_7.show
			call gr_ciopts.bu_rconnm_7.show
		}
	}
	if gr_ciopts.lb_plot.iseq("plot8") {
		if gr_ciopts.cb_plot_type.iseq("") {
			call gr_ciopts.bu_rcap_8.show
			call gr_ciopts.cb_rcap_8.show
			call gr_ciopts.tx_rcap.show
		}
		if gr_ciopts.cb_plot_type.iseq("rarea") {
			call gr_ciopts.bu_rarea_8.show
		}
		if gr_ciopts.cb_plot_type.iseq("rbar") {
			call gr_ciopts.bu_rbar_8.show
		}
		if gr_ciopts.cb_plot_type.iseq("rspike") {
			call gr_ciopts.bu_rspike_8.show
		}
		if gr_ciopts.cb_plot_type.iseq("rcapsym") {
			call gr_ciopts.bu_rcaps_8.show
			call gr_ciopts.bu_rcapsm_8.show
		}
		if gr_ciopts.cb_plot_type.iseq("rscatter") {
			call gr_ciopts.bu_rscat_8.show
		}
		if gr_ciopts.cb_plot_type.iseq("rline") {
			call gr_ciopts.bu_rline_8.show
		}
		if gr_ciopts.cb_plot_type.iseq("rconnected") {
			call gr_ciopts.bu_rconn_8.show
			call gr_ciopts.bu_rconnm_8.show
		}
	}
END

PROGRAM gr_ciopts_showLineDialog
BEGIN
	if gr_ciopts.cb_plot_type.iseq("rconnected") {
		if gr_ciopts.lb_plot.iseq("plot") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rconnDLG_d, allowsubmit
			call gr_ciopts_rconnDLG_d.settitle		///
				"All plots line properties"
			call gr_ciopts_rconnDLG_d.setExitString	///
				gr_ciopts_rconndResults
			call gr_ciopts_rconnDLG_d.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rconnDLG_d.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rconnDLG_1, allowsubmit
			call gr_ciopts_rconnDLG_1.settitle		///
				"Plot 1 line properties"
			call gr_ciopts_rconnDLG_1.setExitString	///
				gr_ciopts_rconn1Results
			call gr_ciopts_rconnDLG_1.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rconnDLG_1.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rconnDLG_2, allowsubmit
			call gr_ciopts_rconnDLG_2.settitle		///
				"Plot 2 line properties"
			call gr_ciopts_rconnDLG_2.setExitString	///
				gr_ciopts_rconn2Results
			call gr_ciopts_rconnDLG_2.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rconnDLG_2.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rconnDLG_3, allowsubmit
			call gr_ciopts_rconnDLG_3.settitle		///
				"Plot 3 line properties"
			call gr_ciopts_rconnDLG_3.setExitString	///
				gr_ciopts_rconn3Results
			call gr_ciopts_rconnDLG_3.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rconnDLG_3.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rconnDLG_4, allowsubmit
			call gr_ciopts_rconnDLG_4.settitle		///
				"Plot 4 line properties"
			call gr_ciopts_rconnDLG_4.setExitString	///
				gr_ciopts_rconn4Results
			call gr_ciopts_rconnDLG_4.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rconnDLG_4.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rconnDLG_5, allowsubmit
			call gr_ciopts_rconnDLG_5.settitle		///
				"Plot 5 line properties"
			call gr_ciopts_rconnDLG_5.setExitString	///
				gr_ciopts_rconn5Results
			call gr_ciopts_rconnDLG_5.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rconnDLG_5.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rconnDLG_6, allowsubmit
			call gr_ciopts_rconnDLG_6.settitle		///
				"Plot 6 line properties"
			call gr_ciopts_rconnDLG_6.setExitString	///
				gr_ciopts_rconn6Results
			call gr_ciopts_rconnDLG_6.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rconnDLG_6.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rconnDLG_7, allowsubmit
			call gr_ciopts_rconnDLG_7.settitle		///
				"Plot 7 line properties"
			call gr_ciopts_rconnDLG_7.setExitString	///
				gr_ciopts_rconn7Results
			call gr_ciopts_rconnDLG_7.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rconnDLG_7.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rconnDLG_8, allowsubmit
			call gr_ciopts_rconnDLG_8.settitle		///
				"Plot 8 line properties"
			call gr_ciopts_rconnDLG_8.setExitString	///
				gr_ciopts_rconn8Results
			call gr_ciopts_rconnDLG_8.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rconnDLG_8.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
	}
	if gr_ciopts.cb_plot_type.iseq("rline") {
		if gr_ciopts.lb_plot.iseq("plot") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rlineDLG_d, allowsubmit
			call gr_ciopts_rlineDLG_d.settitle		///
				"All plots line properties"
			call gr_ciopts_rlineDLG_d.setExitString	///
				gr_ciopts_rlinedResults
			call gr_ciopts_rlineDLG_d.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rlineDLG_d.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rlineDLG_1, allowsubmit
			call gr_ciopts_rlineDLG_1.settitle		///
				"Plot 1 line properties"
			call gr_ciopts_rlineDLG_1.setExitString	///
				gr_ciopts_rline1Results
			call gr_ciopts_rlineDLG_1.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rlineDLG_1.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rlineDLG_2, allowsubmit
			call gr_ciopts_rlineDLG_2.settitle		///
				"Plot 2 line properties"
			call gr_ciopts_rlineDLG_2.setExitString	///
				gr_ciopts_rline2Results
			call gr_ciopts_rlineDLG_2.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rlineDLG_2.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rlineDLG_3, allowsubmit
			call gr_ciopts_rlineDLG_3.settitle		///
				"Plot 3 line properties"
			call gr_ciopts_rlineDLG_3.setExitString	///
				gr_ciopts_rline3Results
			call gr_ciopts_rlineDLG_3.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rlineDLG_3.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rlineDLG_4, allowsubmit
			call gr_ciopts_rlineDLG_4.settitle		///
				"Plot 4 line properties"
			call gr_ciopts_rlineDLG_4.setExitString	///
				gr_ciopts_rline4Results
			call gr_ciopts_rlineDLG_4.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rlineDLG_4.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rlineDLG_5, allowsubmit
			call gr_ciopts_rlineDLG_5.settitle		///
				"Plot 5 line properties"
			call gr_ciopts_rlineDLG_5.setExitString	///
				gr_ciopts_rline5Results
			call gr_ciopts_rlineDLG_5.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rlineDLG_5.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rlineDLG_6, allowsubmit
			call gr_ciopts_rlineDLG_6.settitle		///
				"Plot 6 line properties"
			call gr_ciopts_rlineDLG_6.setExitString	///
				gr_ciopts_rline6Results
			call gr_ciopts_rlineDLG_6.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rlineDLG_6.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rlineDLG_7, allowsubmit
			call gr_ciopts_rlineDLG_7.settitle		///
				"Plot 7 line properties"
			call gr_ciopts_rlineDLG_7.setExitString	///
				gr_ciopts_rline7Results
			call gr_ciopts_rlineDLG_7.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rlineDLG_7.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			call create CHILD gr_line_options AS		///
				gr_ciopts_rlineDLG_8, allowsubmit
			call gr_ciopts_rlineDLG_8.settitle		///
				"Plot 8 line properties"
			call gr_ciopts_rlineDLG_8.setExitString	///
				gr_ciopts_rline8Results
			call gr_ciopts_rlineDLG_8.setExitAction	///
				"program gr_ciopts_checkLineResults"
			call gr_ciopts_rlineDLG_8.setSubmitAction	///
				"program gr_ciopts_LineSubmit"
		}
	}
END

PROGRAM gr_ciopts_checkLineResults
BEGIN
	if gr_ciopts.cb_plot_type.iseq("rconnected") {
		if gr_ciopts.lb_plot.iseq("plot") {
			if gr_ciopts_rconndResults.iseq("") {
				call gr_ciopts.bu_rconn_d.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rconn_d.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			if gr_ciopts_rconn1Results.iseq("") {
				call gr_ciopts.bu_rconn_1.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rconn_1.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			if gr_ciopts_rconn2Results.iseq("") {
				call gr_ciopts.bu_rconn_2.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rconn_2.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			if gr_ciopts_rconn3Results.iseq("") {
				call gr_ciopts.bu_rconn_3.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rconn_3.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			if gr_ciopts_rconn4Results.iseq("") {
				call gr_ciopts.bu_rconn_4.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rconn_4.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			if gr_ciopts_rconn5Results.iseq("") {
				call gr_ciopts.bu_rconn_5.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rconn_5.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			if gr_ciopts_rconn6Results.iseq("") {
				call gr_ciopts.bu_rconn_6.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rconn_6.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			if gr_ciopts_rconn7Results.iseq("") {
				call gr_ciopts.bu_rconn_7.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rconn_7.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			if gr_ciopts_rconn8Results.iseq("") {
				call gr_ciopts.bu_rconn_8.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rconn_8.setlabel	///
					"Line properties *"
			}
		}
	}
	if gr_ciopts.cb_plot_type.iseq("rline") {
		if gr_ciopts.lb_plot.iseq("plot") {
			if gr_ciopts_rlinedResults.iseq("") {
				call gr_ciopts.bu_rline_d.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rline_d.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			if gr_ciopts_rline1Results.iseq("") {
				call gr_ciopts.bu_rline_1.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rline_1.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			if gr_ciopts_rline2Results.iseq("") {
				call gr_ciopts.bu_rline_2.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rline_2.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			if gr_ciopts_rline3Results.iseq("") {
				call gr_ciopts.bu_rline_3.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rline_3.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			if gr_ciopts_rline4Results.iseq("") {
				call gr_ciopts.bu_rline_4.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rline_4.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			if gr_ciopts_rline5Results.iseq("") {
				call gr_ciopts.bu_rline_5.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rline_5.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			if gr_ciopts_rline6Results.iseq("") {
				call gr_ciopts.bu_rline_6.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rline_6.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			if gr_ciopts_rline7Results.iseq("") {
				call gr_ciopts.bu_rline_7.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rline_7.setlabel	///
					"Line properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			if gr_ciopts_rline8Results.iseq("") {
				call gr_ciopts.bu_rline_8.setlabel	///
					"Line properties  "
			}
			else {
				call gr_ciopts.bu_rline_8.setlabel	///
					"Line properties *"
			}
		}
	}
END

PROGRAM gr_ciopts_LineSubmit
BEGIN
	call program gr_ciopts_checkLineResults
	call Submit
END

PROGRAM gr_ciopts_showMarkerDialog
BEGIN
	if gr_ciopts.cb_plot_type.iseq("rconnected") {
		if gr_ciopts.lb_plot.iseq("plot") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rconnmDLG_d, allowsubmit
			call gr_ciopts_rconnmDLG_d.settitle		///
				"All plots marker properties"
			call gr_ciopts_rconnmDLG_d.setExitString	///
				gr_ciopts_rconnmdResults
			call gr_ciopts_rconnmDLG_d.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rconnmDLG_d.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rconnmDLG_1, allowsubmit
			call gr_ciopts_rconnmDLG_1.settitle		///
				"Plot 1 marker properties"
			call gr_ciopts_rconnmDLG_1.setExitString	///
				gr_ciopts_rconnm1Results
			call gr_ciopts_rconnmDLG_1.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rconnmDLG_1.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rconnmDLG_2, allowsubmit
			call gr_ciopts_rconnmDLG_2.settitle		///
				"Plot 2 marker properties"
			call gr_ciopts_rconnmDLG_2.setExitString	///
				gr_ciopts_rconnm2Results
			call gr_ciopts_rconnmDLG_2.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rconnmDLG_2.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rconnmDLG_3, allowsubmit
			call gr_ciopts_rconnmDLG_3.settitle		///
				"Plot 3 marker properties"
			call gr_ciopts_rconnmDLG_3.setExitString	///
				gr_ciopts_rconnm3Results
			call gr_ciopts_rconnmDLG_3.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rconnmDLG_3.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rconnmDLG_4, allowsubmit
			call gr_ciopts_rconnmDLG_4.settitle		///
				"Plot 4 marker properties"
			call gr_ciopts_rconnmDLG_4.setExitString	///
				gr_ciopts_rconnm4Results
			call gr_ciopts_rconnmDLG_4.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rconnmDLG_4.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rconnmDLG_5, allowsubmit
			call gr_ciopts_rconnmDLG_5.settitle		///
				"Plot 5 marker properties"
			call gr_ciopts_rconnmDLG_5.setExitString	///
				gr_ciopts_rconnm5Results
			call gr_ciopts_rconnmDLG_5.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rconnmDLG_5.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rconnmDLG_6, allowsubmit
			call gr_ciopts_rconnmDLG_6.settitle		///
				"Plot 6 marker properties"
			call gr_ciopts_rconnmDLG_6.setExitString	///
				gr_ciopts_rconnm6Results
			call gr_ciopts_rconnmDLG_6.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rconnmDLG_6.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rconnmDLG_7, allowsubmit
			call gr_ciopts_rconnmDLG_7.settitle		///
				"Plot 7 marker properties"
			call gr_ciopts_rconnmDLG_7.setExitString	///
				gr_ciopts_rconnm7Results
			call gr_ciopts_rconnmDLG_7.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rconnmDLG_7.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rconnmDLG_8, allowsubmit
			call gr_ciopts_rconnmDLG_8.settitle		///
				"Plot 8 marker properties"
			call gr_ciopts_rconnmDLG_8.setExitString	///
				gr_ciopts_rconnm8Results
			call gr_ciopts_rconnmDLG_8.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rconnmDLG_8.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
	}
	if gr_ciopts.cb_plot_type.iseq("rscatter") {
		if gr_ciopts.lb_plot.iseq("plot") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rscatDLG_d, allowsubmit
			call gr_ciopts_rscatDLG_d.settitle		///
				"All plots marker properties"
			call gr_ciopts_rscatDLG_d.setExitString	///
				gr_ciopts_rscatdResults
			call gr_ciopts_rscatDLG_d.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rscatDLG_d.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rscatDLG_1, allowsubmit
			call gr_ciopts_rscatDLG_1.settitle		///
				"Plot 1 marker properties"
			call gr_ciopts_rscatDLG_1.setExitString	///
				gr_ciopts_rscat1Results
			call gr_ciopts_rscatDLG_1.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rscatDLG_1.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rscatDLG_2, allowsubmit
			call gr_ciopts_rscatDLG_2.settitle		///
				"Plot 2 marker properties"
			call gr_ciopts_rscatDLG_2.setExitString	///
				gr_ciopts_rscat2Results
			call gr_ciopts_rscatDLG_2.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rscatDLG_2.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rscatDLG_3, allowsubmit
			call gr_ciopts_rscatDLG_3.settitle		///
				"Plot 3 marker properties"
			call gr_ciopts_rscatDLG_3.setExitString	///
				gr_ciopts_rscat3Results
			call gr_ciopts_rscatDLG_3.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rscatDLG_3.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rscatDLG_4, allowsubmit
			call gr_ciopts_rscatDLG_4.settitle		///
				"Plot 4 marker properties"
			call gr_ciopts_rscatDLG_4.setExitString	///
				gr_ciopts_rscat4Results
			call gr_ciopts_rscatDLG_4.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rscatDLG_4.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rscatDLG_5, allowsubmit
			call gr_ciopts_rscatDLG_5.settitle		///
				"Plot 5 marker properties"
			call gr_ciopts_rscatDLG_5.setExitString	///
				gr_ciopts_rscat5Results
			call gr_ciopts_rscatDLG_5.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rscatDLG_5.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rscatDLG_6, allowsubmit
			call gr_ciopts_rscatDLG_6.settitle		///
				"Plot 6 marker properties"
			call gr_ciopts_rscatDLG_6.setExitString	///
				gr_ciopts_rscat6Results
			call gr_ciopts_rscatDLG_6.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rscatDLG_6.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rscatDLG_7, allowsubmit
			call gr_ciopts_rscatDLG_7.settitle		///
				"Plot 7 marker properties"
			call gr_ciopts_rscatDLG_7.setExitString	///
				gr_ciopts_rscat7Results
			call gr_ciopts_rscatDLG_7.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rscatDLG_7.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rscatDLG_8, allowsubmit
			call gr_ciopts_rscatDLG_8.settitle		///
				"Plot 8 marker properties"
			call gr_ciopts_rscatDLG_8.setExitString	///
				gr_ciopts_rscat8Results
			call gr_ciopts_rscatDLG_8.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rscatDLG_8.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
	}
	if gr_ciopts.cb_plot_type.iseq("rcapsym") {
		if gr_ciopts.lb_plot.iseq("plot") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rcapsmDLG_d, allowsubmit
			call gr_ciopts_rcapsmDLG_d.settitle		///
				"All plots marker properties"
			call gr_ciopts_rcapsmDLG_d.setExitString	///
				gr_ciopts_rcapsmdResults
			call gr_ciopts_rcapsmDLG_d.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rcapsmDLG_d.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rcapsmDLG_1, allowsubmit
			call gr_ciopts_rcapsmDLG_1.settitle		///
				"Plot 1 marker properties"
			call gr_ciopts_rcapsmDLG_1.setExitString	///
				gr_ciopts_rcapsm1Results
			call gr_ciopts_rcapsmDLG_1.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rcapsmDLG_1.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rcapsmDLG_2, allowsubmit
			call gr_ciopts_rcapsmDLG_2.settitle		///
				"Plot 2 marker properties"
			call gr_ciopts_rcapsmDLG_2.setExitString	///
				gr_ciopts_rcapsm2Results
			call gr_ciopts_rcapsmDLG_2.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rcapsmDLG_2.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rcapsmDLG_3, allowsubmit
			call gr_ciopts_rcapsmDLG_3.settitle		///
				"Plot 3 marker properties"
			call gr_ciopts_rcapsmDLG_3.setExitString	///
				gr_ciopts_rcapsm3Results
			call gr_ciopts_rcapsmDLG_3.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rcapsmDLG_3.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rcapsmDLG_4, allowsubmit
			call gr_ciopts_rcapsmDLG_4.settitle		///
				"Plot 4 marker properties"
			call gr_ciopts_rcapsmDLG_4.setExitString	///
				gr_ciopts_rcapsm4Results
			call gr_ciopts_rcapsmDLG_4.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rcapsmDLG_4.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rcapsmDLG_5, allowsubmit
			call gr_ciopts_rcapsmDLG_5.settitle		///
				"Plot 5 marker properties"
			call gr_ciopts_rcapsmDLG_5.setExitString	///
				gr_ciopts_rcapsm5Results
			call gr_ciopts_rcapsmDLG_5.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rcapsmDLG_5.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rcapsmDLG_6, allowsubmit
			call gr_ciopts_rcapsmDLG_6.settitle		///
				"Plot 6 marker properties"
			call gr_ciopts_rcapsmDLG_6.setExitString	///
				gr_ciopts_rcapsm6Results
			call gr_ciopts_rcapsmDLG_6.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rcapsmDLG_6.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rcapsmDLG_7, allowsubmit
			call gr_ciopts_rcapsmDLG_7.settitle		///
				"Plot 7 marker properties"
			call gr_ciopts_rcapsmDLG_7.setExitString	///
				gr_ciopts_rcapsm7Results
			call gr_ciopts_rcapsmDLG_7.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rcapsmDLG_7.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			call create CHILD gr_marker_options AS		///
				gr_ciopts_rcapsmDLG_8, allowsubmit
			call gr_ciopts_rcapsmDLG_8.settitle		///
				"Plot 8 marker properties"
			call gr_ciopts_rcapsmDLG_8.setExitString	///
				gr_ciopts_rcapsm8Results
			call gr_ciopts_rcapsmDLG_8.setExitAction	///
				"program gr_ciopts_checkMarkerResults"
			call gr_ciopts_rcapsmDLG_8.setSubmitAction	///
				"program gr_ciopts_MarkerSubmit"
		}
	}
END

PROGRAM gr_ciopts_checkMarkerResults
BEGIN
	if gr_ciopts.cb_plot_type.iseq("rconnected") {
		if gr_ciopts.lb_plot.iseq("plot") {
			if gr_ciopts_rconnmdResults.iseq("") {
				call gr_ciopts.bu_rconnm_d.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rconnm_d.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			if gr_ciopts_rconnm1Results.iseq("") {
				call gr_ciopts.bu_rconnm_1.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rconnm_1.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			if gr_ciopts_rconnm2Results.iseq("") {
				call gr_ciopts.bu_rconnm_2.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rconnm_2.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			if gr_ciopts_rconnm3Results.iseq("") {
				call gr_ciopts.bu_rconnm_3.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rconnm_3.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			if gr_ciopts_rconnm4Results.iseq("") {
				call gr_ciopts.bu_rconnm_4.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rconnm_4.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			if gr_ciopts_rconnm5Results.iseq("") {
				call gr_ciopts.bu_rconnm_5.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rconnm_5.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			if gr_ciopts_rconnm6Results.iseq("") {
				call gr_ciopts.bu_rconnm_6.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rconnm_6.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			if gr_ciopts_rconnm7Results.iseq("") {
				call gr_ciopts.bu_rconnm_7.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rconnm_7.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			if gr_ciopts_rconnm8Results.iseq("") {
				call gr_ciopts.bu_rconnm_8.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rconnm_8.setlabel	///
					"Marker properties *"
			}
		}
	}
	if gr_ciopts.cb_plot_type.iseq("rscatter") {
		if gr_ciopts.lb_plot.iseq("plot") {
			if gr_ciopts_rscatdResults.iseq("") {
				call gr_ciopts.bu_rscat_d.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rscat_d.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			if gr_ciopts_rscat1Results.iseq("") {
				call gr_ciopts.bu_rscat_1.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rscat_1.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			if gr_ciopts_rscat2Results.iseq("") {
				call gr_ciopts.bu_rscat_2.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rscat_2.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			if gr_ciopts_rscat3Results.iseq("") {
				call gr_ciopts.bu_rscat_3.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rscat_3.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			if gr_ciopts_rscat4Results.iseq("") {
				call gr_ciopts.bu_rscat_4.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rscat_4.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			if gr_ciopts_rscat5Results.iseq("") {
				call gr_ciopts.bu_rscat_5.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rscat_5.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			if gr_ciopts_rscat6Results.iseq("") {
				call gr_ciopts.bu_rscat_6.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rscat_6.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			if gr_ciopts_rscat7Results.iseq("") {
				call gr_ciopts.bu_rscat_7.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rscat_7.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			if gr_ciopts_rscat8Results.iseq("") {
				call gr_ciopts.bu_rscat_8.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rscat_8.setlabel	///
					"Marker properties *"
			}
		}
	}
	if gr_ciopts.cb_plot_type.iseq("rcapsym") {
		if gr_ciopts.lb_plot.iseq("plot") {
			if gr_ciopts_rcapsmdResults.iseq("") {
				call gr_ciopts.bu_rcapsm_d.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rcapsm_d.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			if gr_ciopts_rcapsm1Results.iseq("") {
				call gr_ciopts.bu_rcapsm_1.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rcapsm_1.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			if gr_ciopts_rcapsm2Results.iseq("") {
				call gr_ciopts.bu_rcapsm_2.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rcapsm_2.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			if gr_ciopts_rcapsm3Results.iseq("") {
				call gr_ciopts.bu_rcapsm_3.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rcapsm_3.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			if gr_ciopts_rcapsm4Results.iseq("") {
				call gr_ciopts.bu_rcapsm_4.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rcapsm_4.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			if gr_ciopts_rcapsm5Results.iseq("") {
				call gr_ciopts.bu_rcapsm_5.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rcapsm_5.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			if gr_ciopts_rcapsm6Results.iseq("") {
				call gr_ciopts.bu_rcapsm_6.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rcapsm_6.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			if gr_ciopts_rcapsm7Results.iseq("") {
				call gr_ciopts.bu_rcapsm_7.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rcapsm_7.setlabel	///
					"Marker properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			if gr_ciopts_rcapsm8Results.iseq("") {
				call gr_ciopts.bu_rcapsm_8.setlabel	///
					"Marker properties  "
			}
			else {
				call gr_ciopts.bu_rcapsm_8.setlabel	///
					"Marker properties *"
			}
		}
	}
END

PROGRAM gr_ciopts_MarkerSubmit
BEGIN
	call program gr_ciopts_checkMarkerResults
	call Submit
END

PROGRAM gr_ciopts_showAreaDialog
BEGIN
	if gr_ciopts.lb_plot.iseq("plot") {
		call create CHILD gr_rarea_options AS			///
			gr_ciopts_rareaDLG_d, allowsubmit
		call gr_ciopts_rareaDLG_d.settitle "All plots rarea properties"
		call gr_ciopts_rareaDLG_d.setExitString		///
			gr_ciopts_rareadResults
		call gr_ciopts_rareaDLG_d.setExitAction		///
			"program gr_ciopts_checkAreaResults"
		call gr_ciopts_rareaDLG_d.setSubmitAction		///
			"program gr_ciopts_rareaSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot1") {
		call create CHILD gr_rarea_options AS			///
			gr_ciopts_rareaDLG_1, allowsubmit
		call gr_ciopts_rareaDLG_1.settitle "Plot 1 rarea properties"
		call gr_ciopts_rareaDLG_1.setExitString		///
			gr_ciopts_rarea1Results
		call gr_ciopts_rareaDLG_1.setExitAction		///
			"program gr_ciopts_checkAreaResults"
		call gr_ciopts_rareaDLG_1.setSubmitAction		///
			"program gr_ciopts_rareaSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot2") {
		call create CHILD gr_rarea_options AS			///
			gr_ciopts_rareaDLG_2, allowsubmit
		call gr_ciopts_rareaDLG_2.settitle "Plot 2 rarea properties"
		call gr_ciopts_rareaDLG_2.setExitString		///
			gr_ciopts_rarea2Results
		call gr_ciopts_rareaDLG_2.setExitAction		///
			"program gr_ciopts_checkAreaResults"
		call gr_ciopts_rareaDLG_2.setSubmitAction		///
			"program gr_ciopts_rareaSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot3") {
		call create CHILD gr_rarea_options AS			///
			gr_ciopts_rareaDLG_3, allowsubmit
		call gr_ciopts_rareaDLG_3.settitle "Plot 3 rarea properties"
		call gr_ciopts_rareaDLG_3.setExitString		///
			gr_ciopts_rarea3Results
		call gr_ciopts_rareaDLG_3.setExitAction		///
			"program gr_ciopts_checkAreaResults"
		call gr_ciopts_rareaDLG_3.setSubmitAction		///
			"program gr_ciopts_rareaSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot4") {
		call create CHILD gr_rarea_options AS			///
			gr_ciopts_rareaDLG_4, allowsubmit
		call gr_ciopts_rareaDLG_4.settitle "Plot 4 rarea properties"
		call gr_ciopts_rareaDLG_4.setExitString		///
			gr_ciopts_rarea4Results
		call gr_ciopts_rareaDLG_4.setExitAction		///
			"program gr_ciopts_checkAreaResults"
		call gr_ciopts_rareaDLG_4.setSubmitAction		///
			"program gr_ciopts_rareaSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot5") {
		call create CHILD gr_rarea_options AS			///
			gr_ciopts_rareaDLG_5, allowsubmit
		call gr_ciopts_rareaDLG_5.settitle "Plot 5 rarea properties"
		call gr_ciopts_rareaDLG_5.setExitString		///
			gr_ciopts_rarea5Results
		call gr_ciopts_rareaDLG_5.setExitAction		///
			"program gr_ciopts_checkAreaResults"
		call gr_ciopts_rareaDLG_5.setSubmitAction		///
			"program gr_ciopts_rareaSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot6") {
		call create CHILD gr_rarea_options AS			///
			gr_ciopts_rareaDLG_6, allowsubmit
		call gr_ciopts_rareaDLG_6.settitle "Plot 6 rarea properties"
		call gr_ciopts_rareaDLG_6.setExitString		///
			gr_ciopts_rarea6Results
		call gr_ciopts_rareaDLG_6.setExitAction		///
			"program gr_ciopts_checkAreaResults"
		call gr_ciopts_rareaDLG_6.setSubmitAction		///
			"program gr_ciopts_rareaSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot7") {
		call create CHILD gr_rarea_options AS			///
			gr_ciopts_rareaDLG_7, allowsubmit
		call gr_ciopts_rareaDLG_7.settitle			///
			"Plot 7 rarea properties"
		call gr_ciopts_rareaDLG_7.setExitString		///
			gr_ciopts_rarea7Results
		call gr_ciopts_rareaDLG_7.setExitAction		///
			"program gr_ciopts_checkAreaResults"
		call gr_ciopts_rareaDLG_7.setSubmitAction		///
			"program gr_ciopts_rareaSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot8") {
		call create CHILD gr_rarea_options AS			///
			gr_ciopts_rareaDLG_8, allowsubmit
		call gr_ciopts_rareaDLG_8.settitle "Plot 8 rarea properties"
		call gr_ciopts_rareaDLG_8.setExitString		///
			gr_ciopts_rarea8Results
		call gr_ciopts_rareaDLG_8.setExitAction		///
			"program gr_ciopts_checkAreaResults"
		call gr_ciopts_rareaDLG_8.setSubmitAction		///
			"program gr_ciopts_rareaSubmit"
	}
END

PROGRAM gr_ciopts_checkAreaResults
BEGIN
	if gr_ciopts.lb_plot.iseq("plot") {
		if gr_ciopts_rareadResults.iseq("") {
			call gr_ciopts.bu_rarea_d.setlabel "Area properties  "
		}
		else {
			call gr_ciopts.bu_rarea_d.setlabel "Area properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot1") {
		if gr_ciopts_rarea1Results.iseq("") {
			call gr_ciopts.bu_rarea_1.setlabel "Area properties  "
		}
		else {
			call gr_ciopts.bu_rarea_1.setlabel "Area properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot2") {
		if gr_ciopts_rarea2Results.iseq("") {
			call gr_ciopts.bu_rarea_2.setlabel "Area properties  "
		}
		else {
			call gr_ciopts.bu_rarea_2.setlabel "Area properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot3") {
		if gr_ciopts_rarea3Results.iseq("") {
			call gr_ciopts.bu_rarea_3.setlabel "Area properties  "
		}
		else {
			call gr_ciopts.bu_rarea_3.setlabel "Area properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot4") {
		if gr_ciopts_rarea4Results.iseq("") {
			call gr_ciopts.bu_rarea_4.setlabel "Area properties  "
		}
		else {
			call gr_ciopts.bu_rarea_4.setlabel "Area properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot5") {
		if gr_ciopts_rarea5Results.iseq("") {
			call gr_ciopts.bu_rarea_5.setlabel "Area properties  "
		}
		else {
			call gr_ciopts.bu_rarea_5.setlabel "Area properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot6") {
		if gr_ciopts_rarea6Results.iseq("") {
			call gr_ciopts.bu_rarea_6.setlabel "Area properties  "
		}
		else {
			call gr_ciopts.bu_rarea_6.setlabel "Area properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot7") {
		if gr_ciopts_rarea7Results.iseq("") {
			call gr_ciopts.bu_rarea_7.setlabel "Area properties  "
		}
		else {
			call gr_ciopts.bu_rarea_7.setlabel "Area properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot8") {
		if gr_ciopts_rarea8Results.iseq("") {
			call gr_ciopts.bu_rarea_8.setlabel "Area properties  "
		}
		else {
			call gr_ciopts.bu_rarea_8.setlabel "Area properties *"
		}
	}
END

PROGRAM gr_ciopts_rareaSubmit
BEGIN
	call program gr_ciopts_checkAreaResults
	call Submit
END

PROGRAM gr_ciopts_showBarDialog
BEGIN
	if gr_ciopts.lb_plot.iseq("plot") {
		call create CHILD gr_rbar_options AS			///
			gr_ciopts_rbarDLG_d, allowsubmit
		call gr_ciopts_rbarDLG_d.settitle "All plots rbar properties"
		call gr_ciopts_rbarDLG_d.setExitString			///
			gr_ciopts_rbardResults
		call gr_ciopts_rbarDLG_d.setExitAction			///
			"program gr_ciopts_checkBarResults"
		call gr_ciopts_rbarDLG_d.setSubmitAction		///
			"program gr_ciopts_rbarSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot1") {
		call create CHILD gr_rbar_options AS			///
			gr_ciopts_rbarDLG_1, allowsubmit
		call gr_ciopts_rbarDLG_1.settitle "Plot 1 rbar properties"
		call gr_ciopts_rbarDLG_1.setExitString			///
			gr_ciopts_rbar1Results
		call gr_ciopts_rbarDLG_1.setExitAction			///
			"program gr_ciopts_checkBarResults"
		call gr_ciopts_rbarDLG_1.setSubmitAction		///
			"program gr_ciopts_rbarSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot2") {
		call create CHILD gr_rbar_options AS			///
			gr_ciopts_rbarDLG_2, allowsubmit
		call gr_ciopts_rbarDLG_2.settitle "Plot 2 rbar properties"
		call gr_ciopts_rbarDLG_2.setExitString			///
			gr_ciopts_rbar2Results
		call gr_ciopts_rbarDLG_2.setExitAction			///
			"program gr_ciopts_checkBarResults"
		call gr_ciopts_rbarDLG_2.setSubmitAction		///
			"program gr_ciopts_rbarSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot3") {
		call create CHILD gr_rbar_options AS			///
			gr_ciopts_rbarDLG_3, allowsubmit
		call gr_ciopts_rbarDLG_3.settitle "Plot 3 rbar properties"
		call gr_ciopts_rbarDLG_3.setExitString			///
			gr_ciopts_rbar3Results
		call gr_ciopts_rbarDLG_3.setExitAction			///
			"program gr_ciopts_checkBarResults"
		call gr_ciopts_rbarDLG_3.setSubmitAction		///
			"program gr_ciopts_rbarSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot4") {
		call create CHILD gr_rbar_options AS			///
			gr_ciopts_rbarDLG_4, allowsubmit
		call gr_ciopts_rbarDLG_4.settitle "Plot 4 rbar properties"
		call gr_ciopts_rbarDLG_4.setExitString			///
			gr_ciopts_rbar4Results
		call gr_ciopts_rbarDLG_4.setExitAction			///
			"program gr_ciopts_checkBarResults"
		call gr_ciopts_rbarDLG_4.setSubmitAction		///
			"program gr_ciopts_rbarSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot5") {
		call create CHILD gr_rbar_options AS			///
			gr_ciopts_rbarDLG_5, allowsubmit
		call gr_ciopts_rbarDLG_5.settitle "Plot 5 rbar properties"
		call gr_ciopts_rbarDLG_5.setExitString			///
			gr_ciopts_rbar5Results
		call gr_ciopts_rbarDLG_5.setExitAction			///
			"program gr_ciopts_checkBarResults"
		call gr_ciopts_rbarDLG_5.setSubmitAction		///
			"program gr_ciopts_rbarSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot6") {
		call create CHILD gr_rbar_options AS			///
			gr_ciopts_rbarDLG_6, allowsubmit
		call gr_ciopts_rbarDLG_6.settitle "Plot 6 rbar properties"
		call gr_ciopts_rbarDLG_6.setExitString			///
			gr_ciopts_rbar6Results
		call gr_ciopts_rbarDLG_6.setExitAction			///
			"program gr_ciopts_checkBarResults"
		call gr_ciopts_rbarDLG_6.setSubmitAction		///
			"program gr_ciopts_rbarSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot7") {
		call create CHILD gr_rbar_options AS			///
			gr_ciopts_rbarDLG_7, allowsubmit
		call gr_ciopts_rbarDLG_7.settitle "Plot 7 rbar properties"
		call gr_ciopts_rbarDLG_7.setExitString			///
			gr_ciopts_rbar7Results
		call gr_ciopts_rbarDLG_7.setExitAction			///
			"program gr_ciopts_checkBarResults"
		call gr_ciopts_rbarDLG_7.setSubmitAction		///
			"program gr_ciopts_rbarSubmit"
	}
	if gr_ciopts.lb_plot.iseq("plot8") {
		call create CHILD gr_rbar_options AS gr_ciopts_rbarDLG_8, ///
			allowsubmit
		call gr_ciopts_rbarDLG_8.settitle "Plot 8 rbar properties"
		call gr_ciopts_rbarDLG_8.setExitString			///
			gr_ciopts_rbar8Results
		call gr_ciopts_rbarDLG_8.setExitAction			///
			"program gr_ciopts_checkBarResults"
		call gr_ciopts_rbarDLG_8.setSubmitAction		///
			"program gr_ciopts_rbarSubmit"
	}
END

PROGRAM gr_ciopts_checkBarResults
BEGIN
	if gr_ciopts.lb_plot.iseq("plot") {
		if gr_ciopts_rbardResults.iseq("") {
			call gr_ciopts.bu_rbar_d.setlabel "Bar properties  "
		}
		else {
			call gr_ciopts.bu_rbar_d.setlabel "Bar properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot1") {
		if gr_ciopts_rbar1Results.iseq("") {
			call gr_ciopts.bu_rbar_1.setlabel "Bar properties  "
		}
		else {
			call gr_ciopts.bu_rbar_1.setlabel "Bar properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot2") {
		if gr_ciopts_rbar2Results.iseq("") {
			call gr_ciopts.bu_rbar_2.setlabel "Bar properties  "
		}
		else {
			call gr_ciopts.bu_rbar_2.setlabel "Bar properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot3") {
		if gr_ciopts_rbar3Results.iseq("") {
			call gr_ciopts.bu_rbar_3.setlabel "Bar properties  "
		}
		else {
			call gr_ciopts.bu_rbar_3.setlabel "Bar properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot4") {
		if gr_ciopts_rbar4Results.iseq("") {
			call gr_ciopts.bu_rbar_4.setlabel "Bar properties  "
		}
		else {
			call gr_ciopts.bu_rbar_4.setlabel "Bar properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot5") {
		if gr_ciopts_rbar5Results.iseq("") {
			call gr_ciopts.bu_rbar_5.setlabel "Bar properties  "
		}
		else {
			call gr_ciopts.bu_rbar_5.setlabel "Bar properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot6") {
		if gr_ciopts_rbar6Results.iseq("") {
			call gr_ciopts.bu_rbar_6.setlabel "Bar properties  "
		}
		else {
			call gr_ciopts.bu_rbar_6.setlabel "Bar properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot7") {
		if gr_ciopts_rbar7Results.iseq("") {
			call gr_ciopts.bu_rbar_7.setlabel "Bar properties  "
		}
		else {
			call gr_ciopts.bu_rbar_7.setlabel "Bar properties *"
		}
	}
	if gr_ciopts.lb_plot.iseq("plot8") {
		if gr_ciopts_rbar8Results.iseq("") {
			call gr_ciopts.bu_rbar_8.setlabel "Bar properties  "
		}
		else {
			call gr_ciopts.bu_rbar_8.setlabel "Bar properties *"
		}
	}
END

PROGRAM gr_ciopts_rbarSubmit
BEGIN
	call program gr_ciopts_checkBarResults
	call Submit
END

PROGRAM gr_ciopts_showSpikeDialog
BEGIN
	if gr_ciopts.cb_plot_type.iseq("") {
		if gr_ciopts.lb_plot.iseq("plot") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapDLG_d, allowsubmit
			call gr_ciopts_rcapDLG_d.settitle		///
				"All plots rcap properties"
			call gr_ciopts_rcapDLG_d.setExitString	///
				gr_ciopts_rcapdResults
			call gr_ciopts_rcapDLG_d.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapDLG_d.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapDLG_1, allowsubmit
			call gr_ciopts_rcapDLG_1.settitle		///
				"Plot 1 rcap properties"
			call gr_ciopts_rcapDLG_1.setExitString	///
				gr_ciopts_rcap1Results
			call gr_ciopts_rcapDLG_1.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapDLG_1.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapDLG_2, allowsubmit
			call gr_ciopts_rcapDLG_2.settitle		///
				"Plot 2 rcap properties"
			call gr_ciopts_rcapDLG_2.setExitString	///
				gr_ciopts_rcap2Results
			call gr_ciopts_rcapDLG_2.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapDLG_2.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapDLG_3, allowsubmit
			call gr_ciopts_rcapDLG_3.settitle		///
				"Plot 3 rcap properties"
			call gr_ciopts_rcapDLG_3.setExitString	///
				gr_ciopts_rcap3Results
			call gr_ciopts_rcapDLG_3.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapDLG_3.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapDLG_4, allowsubmit
			call gr_ciopts_rcapDLG_4.settitle		///
				"Plot 4 rcap properties"
			call gr_ciopts_rcapDLG_4.setExitString	///
				gr_ciopts_rcap4Results
			call gr_ciopts_rcapDLG_4.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapDLG_4.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapDLG_5, allowsubmit
			call gr_ciopts_rcapDLG_5.settitle		///
				"Plot 5 rcap properties"
			call gr_ciopts_rcapDLG_5.setExitString	///
				gr_ciopts_rcap5Results
			call gr_ciopts_rcapDLG_5.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapDLG_5.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapDLG_6, allowsubmit
			call gr_ciopts_rcapDLG_6.settitle		///
				"Plot 6 rcap properties"
			call gr_ciopts_rcapDLG_6.setExitString	///
				gr_ciopts_rcap6Results
			call gr_ciopts_rcapDLG_6.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapDLG_6.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapDLG_7, allowsubmit
			call gr_ciopts_rcapDLG_7.settitle		///
				"Plot 7 rcap properties"
			call gr_ciopts_rcapDLG_7.setExitString	///
				gr_ciopts_rcap7Results
			call gr_ciopts_rcapDLG_7.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapDLG_7.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapDLG_8, allowsubmit
			call gr_ciopts_rcapDLG_8.settitle		///
				"Plot 8 rcap properties"
			call gr_ciopts_rcapDLG_8.setExitString	///
				gr_ciopts_rcap8Results
			call gr_ciopts_rcapDLG_8.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapDLG_8.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
	}
	if gr_ciopts.cb_plot_type.iseq("rspike") {
		if gr_ciopts.lb_plot.iseq("plot") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rspikeDLG_d, allowsubmit
			call gr_ciopts_rspikeDLG_d.settitle		///
				"All plots rspike properties"
			call gr_ciopts_rspikeDLG_d.setExitString	///
				gr_ciopts_rspikedResults
			call gr_ciopts_rspikeDLG_d.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rspikeDLG_d.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rspikeDLG_1, allowsubmit
			call gr_ciopts_rspikeDLG_1.settitle		///
				"Plot 1 rspike properties"
			call gr_ciopts_rspikeDLG_1.setExitString	///
				gr_ciopts_rspike1Results
			call gr_ciopts_rspikeDLG_1.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rspikeDLG_1.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rspikeDLG_2, allowsubmit
			call gr_ciopts_rspikeDLG_2.settitle		///
				"Plot 2 rspike properties"
			call gr_ciopts_rspikeDLG_2.setExitString	///
				gr_ciopts_rspike2Results
			call gr_ciopts_rspikeDLG_2.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rspikeDLG_2.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rspikeDLG_3, allowsubmit
			call gr_ciopts_rspikeDLG_3.settitle		///
				"Plot 3 rspike properties"
			call gr_ciopts_rspikeDLG_3.setExitString	///
				gr_ciopts_rspike3Results
			call gr_ciopts_rspikeDLG_3.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rspikeDLG_3.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rspikeDLG_4, allowsubmit
			call gr_ciopts_rspikeDLG_4.settitle		///
				"Plot 4 rspike properties"
			call gr_ciopts_rspikeDLG_4.setExitString	///
				gr_ciopts_rspike4Results
			call gr_ciopts_rspikeDLG_4.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rspikeDLG_4.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rspikeDLG_5, allowsubmit
			call gr_ciopts_rspikeDLG_5.settitle		///
				"Plot 5 rspike properties"
			call gr_ciopts_rspikeDLG_5.setExitString	///
				gr_ciopts_rspike5Results
			call gr_ciopts_rspikeDLG_5.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rspikeDLG_5.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rspikeDLG_6, allowsubmit
			call gr_ciopts_rspikeDLG_6.settitle		///
				"Plot 6 rspike properties"
			call gr_ciopts_rspikeDLG_6.setExitString	///
				gr_ciopts_rspike6Results
			call gr_ciopts_rspikeDLG_6.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rspikeDLG_6.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rspikeDLG_7, allowsubmit
			call gr_ciopts_rspikeDLG_7.settitle		///
				"Plot 7 rspike properties"
			call gr_ciopts_rspikeDLG_7.setExitString	///
				gr_ciopts_rspike7Results
			call gr_ciopts_rspikeDLG_7.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rspikeDLG_7.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rspikeDLG_8, allowsubmit
			call gr_ciopts_rspikeDLG_8.settitle		///
				"Plot 8 rspike properties"
			call gr_ciopts_rspikeDLG_8.setExitString	///
				gr_ciopts_rspike8Results
			call gr_ciopts_rspikeDLG_8.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rspikeDLG_8.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
	}
	if gr_ciopts.cb_plot_type.iseq("rcapsym") {
		if gr_ciopts.lb_plot.iseq("plot") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapsDLG_d, allowsubmit
			call gr_ciopts_rcapsDLG_d.settitle		///
				"All plots rcaps properties"
			call gr_ciopts_rcapsDLG_d.setExitString	///
				gr_ciopts_rcapsdResults
			call gr_ciopts_rcapsDLG_d.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapsDLG_d.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapsDLG_1, allowsubmit
			call gr_ciopts_rcapsDLG_1.settitle		///
				"Plot 1 rcaps properties"
			call gr_ciopts_rcapsDLG_1.setExitString	///
				gr_ciopts_rcaps1Results
			call gr_ciopts_rcapsDLG_1.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapsDLG_1.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapsDLG_2, allowsubmit
			call gr_ciopts_rcapsDLG_2.settitle		///
				"Plot 2 rcaps properties"
			call gr_ciopts_rcapsDLG_2.setExitString	///
				gr_ciopts_rcaps2Results
			call gr_ciopts_rcapsDLG_2.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapsDLG_2.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapsDLG_3, allowsubmit
			call gr_ciopts_rcapsDLG_3.settitle		///
				"Plot 3 rcaps properties"
			call gr_ciopts_rcapsDLG_3.setExitString	///
				gr_ciopts_rcaps3Results
			call gr_ciopts_rcapsDLG_3.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapsDLG_3.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapsDLG_4, allowsubmit
			call gr_ciopts_rcapsDLG_4.settitle		///
				"Plot 4 rcaps properties"
			call gr_ciopts_rcapsDLG_4.setExitString	///
				gr_ciopts_rcaps4Results
			call gr_ciopts_rcapsDLG_4.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapsDLG_4.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapsDLG_5, allowsubmit
			call gr_ciopts_rcapsDLG_5.settitle		///
				"Plot 5 rcaps properties"
			call gr_ciopts_rcapsDLG_5.setExitString	///
				gr_ciopts_rcaps5Results
			call gr_ciopts_rcapsDLG_5.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapsDLG_5.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapsDLG_6, allowsubmit
			call gr_ciopts_rcapsDLG_6.settitle		///
				"Plot 6 rcaps properties"
			call gr_ciopts_rcapsDLG_6.setExitString	///
				gr_ciopts_rcaps6Results
			call gr_ciopts_rcapsDLG_6.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapsDLG_6.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapsDLG_7, allowsubmit
			call gr_ciopts_rcapsDLG_7.settitle		///
				"Plot 7 rcaps properties"
			call gr_ciopts_rcapsDLG_7.setExitString	///
				gr_ciopts_rcaps7Results
			call gr_ciopts_rcapsDLG_7.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapsDLG_7.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			call create CHILD gr_rspike_options AS		///
				gr_ciopts_rcapsDLG_8, allowsubmit
			call gr_ciopts_rcapsDLG_8.settitle		///
				"Plot 8 rcaps properties"
			call gr_ciopts_rcapsDLG_8.setExitString	///
				gr_ciopts_rcaps8Results
			call gr_ciopts_rcapsDLG_8.setExitAction	///
				"program gr_ciopts_checkSpikeResults"
			call gr_ciopts_rcapsDLG_8.setSubmitAction	///
				"program gr_ciopts_SpikeSubmit"
		}
	}
END

PROGRAM gr_ciopts_checkSpikeResults
BEGIN
	if gr_ciopts.cb_plot_type.iseq("") {
		if gr_ciopts.lb_plot.iseq("plot") {
			if gr_ciopts_rcapdResults.iseq("") {
				call gr_ciopts.bu_rcap_d.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcap_d.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			if gr_ciopts_rcap1Results.iseq("") {
				call gr_ciopts.bu_rcap_1.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcap_1.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			if gr_ciopts_rcap2Results.iseq("") {
				call gr_ciopts.bu_rcap_2.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcap_2.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			if gr_ciopts_rcap3Results.iseq("") {
				call gr_ciopts.bu_rcap_3.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcap_3.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			if gr_ciopts_rcap4Results.iseq("") {
				call gr_ciopts.bu_rcap_4.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcap_4.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			if gr_ciopts_rcap5Results.iseq("") {
				call gr_ciopts.bu_rcap_5.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcap_5.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			if gr_ciopts_rcap6Results.iseq("") {
				call gr_ciopts.bu_rcap_6.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcap_6.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			if gr_ciopts_rcap7Results.iseq("") {
				call gr_ciopts.bu_rcap_7.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcap_7.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			if gr_ciopts_rcap8Results.iseq("") {
				call gr_ciopts.bu_rcap_8.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcap_8.setlabel	///
					"Spike properties *"
			}
		}
	}
	if gr_ciopts.cb_plot_type.iseq("rspike") {
		if gr_ciopts.lb_plot.iseq("plot") {
			if gr_ciopts_rspikedResults.iseq("") {
				call gr_ciopts.bu_rspike_d.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rspike_d.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			if gr_ciopts_rspike1Results.iseq("") {
				call gr_ciopts.bu_rspike_1.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rspike_1.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			if gr_ciopts_rspike2Results.iseq("") {
				call gr_ciopts.bu_rspike_2.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rspike_2.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			if gr_ciopts_rspike3Results.iseq("") {
				call gr_ciopts.bu_rspike_3.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rspike_3.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			if gr_ciopts_rspike4Results.iseq("") {
				call gr_ciopts.bu_rspike_4.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rspike_4.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			if gr_ciopts_rspike5Results.iseq("") {
				call gr_ciopts.bu_rspike_5.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rspike_5.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			if gr_ciopts_rspike6Results.iseq("") {
				call gr_ciopts.bu_rspike_6.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rspike_6.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			if gr_ciopts_rspike7Results.iseq("") {
				call gr_ciopts.bu_rspike_7.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rspike_7.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			if gr_ciopts_rspike8Results.iseq("") {
				call gr_ciopts.bu_rspike_8.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rspike_8.setlabel	///
					"Spike properties *"
			}
		}
	}
	if gr_ciopts.cb_plot_type.iseq("rcapsym") {
		if gr_ciopts.lb_plot.iseq("plot") {
			if gr_ciopts_rcapsdResults.iseq("") {
				call gr_ciopts.bu_rcaps_d.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcaps_d.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot1") {
			if gr_ciopts_rcaps1Results.iseq("") {
				call gr_ciopts.bu_rcaps_1.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcaps_1.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot2") {
			if gr_ciopts_rcaps2Results.iseq("") {
				call gr_ciopts.bu_rcaps_2.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcaps_2.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot3") {
			if gr_ciopts_rcaps3Results.iseq("") {
				call gr_ciopts.bu_rcaps_3.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcaps_3.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot4") {
			if gr_ciopts_rcaps4Results.iseq("") {
				call gr_ciopts.bu_rcaps_4.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcaps_4.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot5") {
			if gr_ciopts_rcaps5Results.iseq("") {
				call gr_ciopts.bu_rcaps_5.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcaps_5.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot6") {
			if gr_ciopts_rcaps6Results.iseq("") {
				call gr_ciopts.bu_rcaps_6.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcaps_6.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot7") {
			if gr_ciopts_rcaps7Results.iseq("") {
				call gr_ciopts.bu_rcaps_7.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcaps_7.setlabel	///
					"Spike properties *"
			}
		}
		if gr_ciopts.lb_plot.iseq("plot8") {
			if gr_ciopts_rcaps8Results.iseq("") {
				call gr_ciopts.bu_rcaps_8.setlabel	///
					"Spike properties  "
			}
			else {
				call gr_ciopts.bu_rcaps_8.setlabel	///
					"Spike properties *"
			}
		}
	}
END

PROGRAM gr_ciopts_SpikeSubmit
BEGIN
	call program gr_ciopts_checkSpikeResults
	call Submit
END

PROGRAM gr_ciopts_rcap_output
BEGIN
	if (gr_ciopts_rcapdResults | gr_ciopts.cb_rcap_d) {
		call gr_ciopts_rcapOutput.append " ciopts("
		call gr_ciopts_rcapOutput.append class			///
			gr_ciopts_rcapdResults.value
		if (gr_ciopts_rcapdResults & gr_ciopts.cb_rcap_d) {
			call gr_ciopts_rcapOutput.append " "
		}
		if (gr_ciopts.cb_rcap_d) {
			call gr_ciopts_rcapOutput.append "msize("
			call gr_ciopts_rcapOutput.append class		///
				gr_ciopts.cb_rcap_d.value
			call gr_ciopts_rcapOutput.append ")"
		}
		call gr_ciopts_rcapOutput.append ")"
	}
	if (gr_ciopts_rcap1Results | gr_ciopts.cb_rcap_1) {
		call gr_ciopts_rcapOutput.append " ci1opts("
		call gr_ciopts_rcapOutput.append class			///
			gr_ciopts_rcap1Results.value
		if (gr_ciopts_rcap1Results & gr_ciopts.cb_rcap_1) {
			call gr_ciopts_rcapOutput.append " "
		}
		if (gr_ciopts.cb_rcap_1) {
			call gr_ciopts_rcapOutput.append "msize("
			call gr_ciopts_rcapOutput.append class		///
				gr_ciopts.cb_rcap_1.value
			call gr_ciopts_rcapOutput.append ")"
		}
		call gr_ciopts_rcapOutput.append ")"
	}
	if (gr_ciopts_rcap2Results | gr_ciopts.cb_rcap_2) {
		call gr_ciopts_rcapOutput.append " ci2opts("
		call gr_ciopts_rcapOutput.append class		///
			gr_ciopts_rcap2Results.value
		if (gr_ciopts_rcap2Results & gr_ciopts.cb_rcap_2) {
			call gr_ciopts_rcapOutput.append " "
		}
		if (gr_ciopts.cb_rcap_2) {
			call gr_ciopts_rcapOutput.append "msize("
			call gr_ciopts_rcapOutput.append class		///
				gr_ciopts.cb_rcap_2.value
			call gr_ciopts_rcapOutput.append ")"
		}
		call gr_ciopts_rcapOutput.append ")"
	}
	if (gr_ciopts_rcap3Results | gr_ciopts.cb_rcap_3) {
		call gr_ciopts_rcapOutput.append " ci3opts("
		call gr_ciopts_rcapOutput.append class		///
			gr_ciopts_rcap3Results.value
		if (gr_ciopts_rcap3Results & gr_ciopts.cb_rcap_3) {
			call gr_ciopts_rcapOutput.append " "
		}
		if (gr_ciopts.cb_rcap_3) {
			call gr_ciopts_rcapOutput.append "msize("
			call gr_ciopts_rcapOutput.append class		///
				gr_ciopts.cb_rcap_3.value
			call gr_ciopts_rcapOutput.append ")"
		}
		call gr_ciopts_rcapOutput.append ")"
	}
	if (gr_ciopts_rcap4Results | gr_ciopts.cb_rcap_4) {
		call gr_ciopts_rcapOutput.append " ci4opts("
		call gr_ciopts_rcapOutput.append class		///
			gr_ciopts_rcap4Results.value
		if (gr_ciopts_rcap4Results & gr_ciopts.cb_rcap_4) {
			call gr_ciopts_rcapOutput.append " "
		}
		if (gr_ciopts.cb_rcap_4) {
			call gr_ciopts_rcapOutput.append "msize("
			call gr_ciopts_rcapOutput.append class		///
				gr_ciopts.cb_rcap_4.value
			call gr_ciopts_rcapOutput.append ")"
		}
		call gr_ciopts_rcapOutput.append ")"
	}
	if (gr_ciopts_rcap5Results | gr_ciopts.cb_rcap_5) {
		call gr_ciopts_rcapOutput.append " ci5opts("
		call gr_ciopts_rcapOutput.append class		///
			gr_ciopts_rcap5Results.value
		if (gr_ciopts_rcap5Results & gr_ciopts.cb_rcap_5) {
			call gr_ciopts_rcapOutput.append " "
		}
		if (gr_ciopts.cb_rcap_5) {
			call gr_ciopts_rcapOutput.append "msize("
			call gr_ciopts_rcapOutput.append class		///
				gr_ciopts.cb_rcap_5.value
			call gr_ciopts_rcapOutput.append ")"
		}
		call gr_ciopts_rcapOutput.append ")"
	}
	if (gr_ciopts_rcap6Results | gr_ciopts.cb_rcap_6) {
		call gr_ciopts_rcapOutput.append " ci6opts("
		call gr_ciopts_rcapOutput.append class		///
			gr_ciopts_rcap6Results.value
		if (gr_ciopts_rcap6Results & gr_ciopts.cb_rcap_6) {
			call gr_ciopts_rcapOutput.append " "
		}
		if (gr_ciopts.cb_rcap_6) {
			call gr_ciopts_rcapOutput.append "msize("
			call gr_ciopts_rcapOutput.append class		///
				gr_ciopts.cb_rcap_6.value
			call gr_ciopts_rcapOutput.append ")"
		}
		call gr_ciopts_rcapOutput.append ")"
	}
	if (gr_ciopts_rcap7Results | gr_ciopts.cb_rcap_7) {
		call gr_ciopts_rcapOutput.append " ci7opts("
		call gr_ciopts_rcapOutput.append class		///
			gr_ciopts_rcap7Results.value
		if (gr_ciopts_rcap7Results & gr_ciopts.cb_rcap_7) {
			call gr_ciopts_rcapOutput.append " "
		}
		if (gr_ciopts.cb_rcap_7) {
			call gr_ciopts_rcapOutput.append "msize("
			call gr_ciopts_rcapOutput.append class		///
				gr_ciopts.cb_rcap_7.value
			call gr_ciopts_rcapOutput.append ")"
		}
		call gr_ciopts_rcapOutput.append ")"
	}
	if (gr_ciopts_rcap8Results | gr_ciopts.cb_rcap_8) {
		call gr_ciopts_rcapOutput.append " ci8opts("
		call gr_ciopts_rcapOutput.append class		///
			gr_ciopts_rcap8Results.value
		if (gr_ciopts_rcap8Results & gr_ciopts.cb_rcap_8) {
			call gr_ciopts_rcapOutput.append " "
		}
		if (gr_ciopts.cb_rcap_8) {
			call gr_ciopts_rcapOutput.append "msize("
			call gr_ciopts_rcapOutput.append class		///
				gr_ciopts.cb_rcap_8.value
			call gr_ciopts_rcapOutput.append ")"
		}
		call gr_ciopts_rcapOutput.append ")"
	}
END

PROGRAM gr_ciopts_rarea_output
BEGIN
	if (gr_ciopts_rareadResults) {
		call gr_ciopts_rareaOutput.append " ciopts("
		call gr_ciopts_rareaOutput.append class		///
			gr_ciopts_rareadResults.value
		call gr_ciopts_rareaOutput.append ")"
	}
	if (gr_ciopts_rarea1Results) {
		call gr_ciopts_rareaOutput.append " ci1opts("
		call gr_ciopts_rareaOutput.append class		///
			gr_ciopts_rarea1Results.value
		call gr_ciopts_rareaOutput.append ")"
	}
	if (gr_ciopts_rarea2Results) {
		call gr_ciopts_rareaOutput.append " ci2opts("
		call gr_ciopts_rareaOutput.append class		///
			gr_ciopts_rarea2Results.value
		call gr_ciopts_rareaOutput.append ")"
	}
	if (gr_ciopts_rarea3Results) {
		call gr_ciopts_rareaOutput.append " ci3opts("
		call gr_ciopts_rareaOutput.append class		///
			gr_ciopts_rarea3Results.value
		call gr_ciopts_rareaOutput.append ")"
	}
	if (gr_ciopts_rarea4Results) {
		call gr_ciopts_rareaOutput.append " ci4opts("
		call gr_ciopts_rareaOutput.append class		///
			gr_ciopts_rarea4Results.value
		call gr_ciopts_rareaOutput.append ")"
	}
	if (gr_ciopts_rarea5Results) {
		call gr_ciopts_rareaOutput.append " ci5opts("
		call gr_ciopts_rareaOutput.append class		///
			gr_ciopts_rarea5Results.value
		call gr_ciopts_rareaOutput.append ")"
	}
	if (gr_ciopts_rarea6Results) {
		call gr_ciopts_rareaOutput.append " ci6opts("
		call gr_ciopts_rareaOutput.append class		///
			gr_ciopts_rarea6Results.value
		call gr_ciopts_rareaOutput.append ")"
	}
	if (gr_ciopts_rarea7Results) {
		call gr_ciopts_rareaOutput.append " ci7opts("
		call gr_ciopts_rareaOutput.append class		///
			gr_ciopts_rarea7Results.value
		call gr_ciopts_rareaOutput.append ")"
	}
	if (gr_ciopts_rarea8Results) {
		call gr_ciopts_rareaOutput.append " ci8opts("
		call gr_ciopts_rareaOutput.append class		///
			gr_ciopts_rarea8Results.value
		call gr_ciopts_rareaOutput.append ")"
	}
END

PROGRAM gr_ciopts_rbar_output
BEGIN
	if (gr_ciopts_rbardResults) {
		call gr_ciopts_rbarOutput.append " ciopts("
		call gr_ciopts_rbarOutput.append class			///
			gr_ciopts_rbardResults.value
		call gr_ciopts_rbarOutput.append ")"
	}
	if (gr_ciopts_rbar1Results) {
		call gr_ciopts_rbarOutput.append " ci1opts("
		call gr_ciopts_rbarOutput.append class			///
			gr_ciopts_rbar1Results.value
		call gr_ciopts_rbarOutput.append ")"
	}
	if (gr_ciopts_rbar2Results) {
		call gr_ciopts_rbarOutput.append " ci2opts("
		call gr_ciopts_rbarOutput.append class			///
			gr_ciopts_rbar2Results.value
		call gr_ciopts_rbarOutput.append ")"
	}
	if (gr_ciopts_rbar3Results) {
		call gr_ciopts_rbarOutput.append " ci3opts("
		call gr_ciopts_rbarOutput.append class			///
			gr_ciopts_rbar3Results.value
		call gr_ciopts_rbarOutput.append ")"
	}
	if (gr_ciopts_rbar4Results) {
		call gr_ciopts_rbarOutput.append " ci4opts("
		call gr_ciopts_rbarOutput.append class			///
			gr_ciopts_rbar4Results.value
		call gr_ciopts_rbarOutput.append ")"
	}
	if (gr_ciopts_rbar5Results) {
		call gr_ciopts_rbarOutput.append " ci5opts("
		call gr_ciopts_rbarOutput.append class			///
			gr_ciopts_rbar5Results.value
		call gr_ciopts_rbarOutput.append ")"
	}
	if (gr_ciopts_rbar6Results) {
		call gr_ciopts_rbarOutput.append " ci6opts("
		call gr_ciopts_rbarOutput.append class			///
			gr_ciopts_rbar6Results.value
		call gr_ciopts_rbarOutput.append ")"
	}
	if (gr_ciopts_rbar7Results) {
		call gr_ciopts_rbarOutput.append " ci7opts("
		call gr_ciopts_rbarOutput.append class			///
			gr_ciopts_rbar7Results.value
		call gr_ciopts_rbarOutput.append ")"
	}
	if (gr_ciopts_rbar8Results) {
		call gr_ciopts_rbarOutput.append " ci8opts("
		call gr_ciopts_rbarOutput.append class			///
			gr_ciopts_rbar8Results.value
		call gr_ciopts_rbarOutput.append ")"
	}
END

PROGRAM gr_ciopts_rspike_output
BEGIN
	if (gr_ciopts_rspikedResults) {
		call gr_ciopts_rspikeOutput.append " ciopts("
		call gr_ciopts_rspikeOutput.append class		///
			gr_ciopts_rspikedResults.value
		call gr_ciopts_rspikeOutput.append ")"
	}
	if (gr_ciopts_rspike1Results) {
		call gr_ciopts_rspikeOutput.append " ci1opts("
		call gr_ciopts_rspikeOutput.append class		///
			gr_ciopts_rspike1Results.value
		call gr_ciopts_rspikeOutput.append ")"
	}
	if (gr_ciopts_rspike2Results) {
		call gr_ciopts_rspikeOutput.append " ci2opts("
		call gr_ciopts_rspikeOutput.append class		///
			gr_ciopts_rspike2Results.value
		call gr_ciopts_rspikeOutput.append ")"
	}
	if (gr_ciopts_rspike3Results) {
		call gr_ciopts_rspikeOutput.append " ci3opts("
		call gr_ciopts_rspikeOutput.append class		///
			gr_ciopts_rspike3Results.value
		call gr_ciopts_rspikeOutput.append ")"
	}
	if (gr_ciopts_rspike4Results) {
		call gr_ciopts_rspikeOutput.append " ci4opts("
		call gr_ciopts_rspikeOutput.append class		///
			gr_ciopts_rspike4Results.value
		call gr_ciopts_rspikeOutput.append ")"
	}
	if (gr_ciopts_rspike5Results) {
		call gr_ciopts_rspikeOutput.append " ci5opts("
		call gr_ciopts_rspikeOutput.append class		///
			gr_ciopts_rspike5Results.value
		call gr_ciopts_rspikeOutput.append ")"
	}
	if (gr_ciopts_rspike6Results) {
		call gr_ciopts_rspikeOutput.append " ci6opts("
		call gr_ciopts_rspikeOutput.append class		///
			gr_ciopts_rspike6Results.value
		call gr_ciopts_rspikeOutput.append ")"
	}
	if (gr_ciopts_rspike7Results) {
		call gr_ciopts_rspikeOutput.append " ci7opts("
		call gr_ciopts_rspikeOutput.append class		///
			gr_ciopts_rspike7Results.value
		call gr_ciopts_rspikeOutput.append ")"
	}
	if (gr_ciopts_rspike8Results) {
		call gr_ciopts_rspikeOutput.append " ci8opts("
		call gr_ciopts_rspikeOutput.append class		///
			gr_ciopts_rspike8Results.value
		call gr_ciopts_rspikeOutput.append ")"
	}
END

PROGRAM gr_ciopts_rcapsym_output
BEGIN
	if (gr_ciopts_rcapsdResults | gr_ciopts_rcapsmdResults) {
		call gr_ciopts_rcapsymOutput.append " ciopts("
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcapsdResults.value
		if (gr_ciopts_rcapsdResults & gr_ciopts_rcapsmdResults) {
			call gr_ciopts_rcapsymOutput.append " "
		}
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcapsmdResults.value
		call gr_ciopts_rcapsymOutput.append ")"
	}
	if (gr_ciopts_rcaps1Results | gr_ciopts_rcapsm1Results) {
		call gr_ciopts_rcapsymOutput.append " ci1opts("
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcaps1Results.value
		if (gr_ciopts_rcaps1Results & gr_ciopts_rcapsm1Results) {
			call gr_ciopts_rcapsymOutput.append " "
		}
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcapsm1Results.value
		call gr_ciopts_rcapsymOutput.append ")"
	}
	if (gr_ciopts_rcaps2Results | gr_ciopts_rcapsm2Results) {
		call gr_ciopts_rcapsymOutput.append " ci2opts("
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcaps2Results.value
		if (gr_ciopts_rcaps2Results & gr_ciopts_rcapsm2Results) {
			call gr_ciopts_rcapsymOutput.append " "
		}
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcapsm2Results.value
		call gr_ciopts_rcapsymOutput.append ")"
	}
	if (gr_ciopts_rcaps3Results | gr_ciopts_rcapsm3Results) {
		call gr_ciopts_rcapsymOutput.append " ci3opts("
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcaps3Results.value
		if (gr_ciopts_rcaps3Results & gr_ciopts_rcapsm3Results) {
			call gr_ciopts_rcapsymOutput.append " "
		}
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcapsm3Results.value
		call gr_ciopts_rcapsymOutput.append ")"
	}
	if (gr_ciopts_rcaps4Results | gr_ciopts_rcapsm4Results) {
		call gr_ciopts_rcapsymOutput.append " ci4opts("
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcaps4Results.value
		if (gr_ciopts_rcaps4Results & gr_ciopts_rcapsm4Results) {
			call gr_ciopts_rcapsymOutput.append " "
		}
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcapsm4Results.value
		call gr_ciopts_rcapsymOutput.append ")"
	}
	if (gr_ciopts_rcaps5Results | gr_ciopts_rcapsm5Results) {
		call gr_ciopts_rcapsymOutput.append " ci5opts("
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcaps5Results.value
		if (gr_ciopts_rcaps5Results & gr_ciopts_rcapsm5Results) {
			call gr_ciopts_rcapsymOutput.append " "
		}
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcapsm5Results.value
		call gr_ciopts_rcapsymOutput.append ")"
	}
	if (gr_ciopts_rcaps6Results | gr_ciopts_rcapsm6Results) {
		call gr_ciopts_rcapsymOutput.append " ci6opts("
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcaps6Results.value
		if (gr_ciopts_rcaps6Results & gr_ciopts_rcapsm6Results) {
			call gr_ciopts_rcapsymOutput.append " "
		}
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcapsm6Results.value
		call gr_ciopts_rcapsymOutput.append ")"
	}
	if (gr_ciopts_rcaps7Results | gr_ciopts_rcapsm7Results) {
		call gr_ciopts_rcapsymOutput.append " ci7opts("
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcaps7Results.value
		if (gr_ciopts_rcaps7Results & gr_ciopts_rcapsm7Results) {
			call gr_ciopts_rcapsymOutput.append " "
		}
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcapsm7Results.value
		call gr_ciopts_rcapsymOutput.append ")"
	}
	if (gr_ciopts_rcaps8Results | gr_ciopts_rcapsm8Results) {
		call gr_ciopts_rcapsymOutput.append " ci8opts("
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcaps8Results.value
		if (gr_ciopts_rcaps8Results & gr_ciopts_rcapsm8Results) {
			call gr_ciopts_rcapsymOutput.append " "
		}
		call gr_ciopts_rcapsymOutput.append class		///
			gr_ciopts_rcapsm8Results.value
		call gr_ciopts_rcapsymOutput.append ")"
	}
END

PROGRAM gr_ciopts_rscatter_output
BEGIN
	if (gr_ciopts_rscatdResults) {
		call gr_ciopts_rscatterOutput.append " ciopts("
		call gr_ciopts_rscatterOutput.append class		///
			gr_ciopts_rscatdResults.value
		call gr_ciopts_rscatterOutput.append ")"
	}
	if (gr_ciopts_rscat1Results) {
		call gr_ciopts_rscatterOutput.append " ci1opts("
		call gr_ciopts_rscatterOutput.append class		///
			gr_ciopts_rscat1Results.value
		call gr_ciopts_rscatterOutput.append ")"
	}
	if (gr_ciopts_rscat2Results) {
		call gr_ciopts_rscatterOutput.append " ci2opts("
		call gr_ciopts_rscatterOutput.append class		///
			gr_ciopts_rscat2Results.value
		call gr_ciopts_rscatterOutput.append ")"
	}
	if (gr_ciopts_rscat3Results) {
		call gr_ciopts_rscatterOutput.append " ci3opts("
		call gr_ciopts_rscatterOutput.append class		///
			gr_ciopts_rscat3Results.value
		call gr_ciopts_rscatterOutput.append ")"
	}
	if (gr_ciopts_rscat4Results) {
		call gr_ciopts_rscatterOutput.append " ci4opts("
		call gr_ciopts_rscatterOutput.append class		///
			gr_ciopts_rscat4Results.value
		call gr_ciopts_rscatterOutput.append ")"
	}
	if (gr_ciopts_rscat5Results) {
		call gr_ciopts_rscatterOutput.append " ci5opts("
		call gr_ciopts_rscatterOutput.append class		///
			gr_ciopts_rscat5Results.value
		call gr_ciopts_rscatterOutput.append ")"
	}
	if (gr_ciopts_rscat6Results) {
		call gr_ciopts_rscatterOutput.append " ci6opts("
		call gr_ciopts_rscatterOutput.append class		///
			gr_ciopts_rscat6Results.value
		call gr_ciopts_rscatterOutput.append ")"
	}
	if (gr_ciopts_rscat7Results) {
		call gr_ciopts_rscatterOutput.append " ci7opts("
		call gr_ciopts_rscatterOutput.append class		///
			gr_ciopts_rscat7Results.value
		call gr_ciopts_rscatterOutput.append ")"
	}
	if (gr_ciopts_rscat8Results) {
		call gr_ciopts_rscatterOutput.append " ci8opts("
		call gr_ciopts_rscatterOutput.append class		///
			gr_ciopts_rscat8Results.value
		call gr_ciopts_rscatterOutput.append ")"
	}
END

PROGRAM gr_ciopts_rline_output
BEGIN
	if (gr_ciopts_rlinedResults) {
		call gr_ciopts_rlineOutput.append " ciopts("
		call gr_ciopts_rlineOutput.append class		///
			gr_ciopts_rlinedResults.value
		call gr_ciopts_rlineOutput.append ")"
	}
	if (gr_ciopts_rline1Results) {
		call gr_ciopts_rlineOutput.append " ci1opts("
		call gr_ciopts_rlineOutput.append class		///
			gr_ciopts_rline1Results.value
		call gr_ciopts_rlineOutput.append ")"
	}
	if (gr_ciopts_rline2Results) {
		call gr_ciopts_rlineOutput.append " ci2opts("
		call gr_ciopts_rlineOutput.append class		///
			gr_ciopts_rline2Results.value
		call gr_ciopts_rlineOutput.append ")"
	}
	if (gr_ciopts_rline3Results) {
		call gr_ciopts_rlineOutput.append " ci3opts("
		call gr_ciopts_rlineOutput.append class		///
			gr_ciopts_rline3Results.value
		call gr_ciopts_rlineOutput.append ")"
	}
	if (gr_ciopts_rline4Results) {
		call gr_ciopts_rlineOutput.append " ci4opts("
		call gr_ciopts_rlineOutput.append class		///
			gr_ciopts_rline4Results.value
		call gr_ciopts_rlineOutput.append ")"
	}
	if (gr_ciopts_rline5Results) {
		call gr_ciopts_rlineOutput.append " ci5opts("
		call gr_ciopts_rlineOutput.append class		///
			gr_ciopts_rline5Results.value
		call gr_ciopts_rlineOutput.append ")"
	}
	if (gr_ciopts_rline6Results) {
		call gr_ciopts_rlineOutput.append " ci6opts("
		call gr_ciopts_rlineOutput.append class		///
			gr_ciopts_rline6Results.value
		call gr_ciopts_rlineOutput.append ")"
	}
	if (gr_ciopts_rline7Results) {
		call gr_ciopts_rlineOutput.append " ci7opts("
		call gr_ciopts_rlineOutput.append class		///
			gr_ciopts_rline7Results.value
		call gr_ciopts_rlineOutput.append ")"
	}
	if (gr_ciopts_rline8Results) {
		call gr_ciopts_rlineOutput.append " ci8opts("
		call gr_ciopts_rlineOutput.append class		///
			gr_ciopts_rline8Results.value
		call gr_ciopts_rlineOutput.append ")"
	}
END

PROGRAM gr_ciopts_rconnect_output
BEGIN
	if (gr_ciopts_rconndResults | gr_ciopts_rconnmdResults) {
		call gr_ciopts_rconnectOutput.append " ciopts("
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconndResults.value
		if (gr_ciopts_rconndResults & gr_ciopts_rconnmdResults) {
			call gr_ciopts_rconnectOutput.append " "
		}
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconnmdResults.value
		call gr_ciopts_rconnectOutput.append ")"
	}
	if (gr_ciopts_rconn1Results | gr_ciopts_rconnm1Results) {
		call gr_ciopts_rconnectOutput.append " ci1opts("
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconn1Results.value
		if (gr_ciopts_rconn1Results & gr_ciopts_rconnm1Results) {
			call gr_ciopts_rconnectOutput.append " "
		}
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconnm1Results.value
		call gr_ciopts_rconnectOutput.append ")"
	}
	if (gr_ciopts_rconn2Results | gr_ciopts_rconnm2Results) {
		call gr_ciopts_rconnectOutput.append " ci2opts("
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconn2Results.value
		if (gr_ciopts_rconn2Results & gr_ciopts_rconnm2Results) {
			call gr_ciopts_rconnectOutput.append " "
		}
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconnm2Results.value
		call gr_ciopts_rconnectOutput.append ")"
	}
	if (gr_ciopts_rconn3Results | gr_ciopts_rconnm3Results) {
		call gr_ciopts_rconnectOutput.append " ci3opts("
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconn3Results.value
		if (gr_ciopts_rconn3Results & gr_ciopts_rconnm3Results) {
			call gr_ciopts_rconnectOutput.append " "
		}
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconnm3Results.value
		call gr_ciopts_rconnectOutput.append ")"
	}
	if (gr_ciopts_rconn4Results | gr_ciopts_rconnm4Results) {
		call gr_ciopts_rconnectOutput.append " ci4opts("
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconn4Results.value
		if (gr_ciopts_rconn4Results & gr_ciopts_rconnm4Results) {
			call gr_ciopts_rconnectOutput.append " "
		}
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconnm4Results.value
		call gr_ciopts_rconnectOutput.append ")"
	}
	if (gr_ciopts_rconn5Results | gr_ciopts_rconnm5Results) {
		call gr_ciopts_rconnectOutput.append " ci5opts("
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconn5Results.value
		if (gr_ciopts_rconn5Results & gr_ciopts_rconnm5Results) {
			call gr_ciopts_rconnectOutput.append " "
		}
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconnm5Results.value
		call gr_ciopts_rconnectOutput.append ")"
	}
	if (gr_ciopts_rconn6Results | gr_ciopts_rconnm6Results) {
		call gr_ciopts_rconnectOutput.append " ci6opts("
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconn6Results.value
		if (gr_ciopts_rconn6Results & gr_ciopts_rconnm6Results) {
			call gr_ciopts_rconnectOutput.append " "
		}
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconnm6Results.value
		call gr_ciopts_rconnectOutput.append ")"
	}
	if (gr_ciopts_rconn7Results | gr_ciopts_rconnm7Results) {
		call gr_ciopts_rconnectOutput.append " ci7opts("
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconn7Results.value
		if (gr_ciopts_rconn7Results & gr_ciopts_rconnm7Results) {
			call gr_ciopts_rconnectOutput.append " "
		}
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconnm7Results.value
		call gr_ciopts_rconnectOutput.append ")"
	}
	if (gr_ciopts_rconn8Results | gr_ciopts_rconnm8Results) {
		call gr_ciopts_rconnectOutput.append " ci8opts("
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconn8Results.value
		if (gr_ciopts_rconn8Results & gr_ciopts_rconnm8Results) {
			call gr_ciopts_rconnectOutput.append " "
		}
		call gr_ciopts_rconnectOutput.append class		///
			gr_ciopts_rconnm8Results.value
		call gr_ciopts_rconnectOutput.append ")"
	}
END

PROGRAM gr_ciopts_output
BEGIN
	call gr_ciopts_rcapOutput.setvalue ""
	call gr_ciopts_rareaOutput.setvalue ""
	call gr_ciopts_rbarOutput.setvalue ""
	call gr_ciopts_rspikeOutput.setvalue ""
	call gr_ciopts_rcapsymOutput.setvalue ""
	call gr_ciopts_rscatterOutput.setvalue ""
	call gr_ciopts_rlineOutput.setvalue ""
	call gr_ciopts_rconnectOutput.setvalue ""

	if gr_ciopts.cb_plot_type.iseq("") {
		if (gr_ciopts_rcapdResults |				///
		gr_ciopts_rcap1Results | gr_ciopts_rcap2Results |	///
		gr_ciopts_rcap3Results | gr_ciopts_rcap4Results |	///
		gr_ciopts_rcap5Results | gr_ciopts_rcap6Results |	///
		gr_ciopts_rcap7Results | gr_ciopts_rcap8Results |	///
		gr_ciopts.cb_rcap_d | gr_ciopts.cb_rcap_1 |		///
		gr_ciopts.cb_rcap_2 | gr_ciopts.cb_rcap_3 |		///
		gr_ciopts.cb_rcap_4 | gr_ciopts.cb_rcap_5 |		///
		gr_ciopts.cb_rcap_6 | gr_ciopts.cb_rcap_7 |		///
		gr_ciopts.cb_rcap_8) {
			call program gr_ciopts_rcap_output
		}
	}

	if gr_ciopts.cb_plot_type.iseq("rarea") {
		if (gr_ciopts_rareadResults |				///
		gr_ciopts_rarea1Results | gr_ciopts_rarea2Results |	///
		gr_ciopts_rarea3Results | gr_ciopts_rarea4Results |	///
		gr_ciopts_rarea5Results | gr_ciopts_rarea6Results |	///
		gr_ciopts_rarea7Results | gr_ciopts_rarea8Results) {
			call program gr_ciopts_rarea_output
		}
	}

	if gr_ciopts.cb_plot_type.iseq("rbar") {
		if (gr_ciopts_rbardResults | gr_ciopts_rbar1Results |	///
		gr_ciopts_rbar2Results | gr_ciopts_rbar3Results |	///
		gr_ciopts_rbar4Results | gr_ciopts_rbar5Results |	///
		gr_ciopts_rbar6Results | gr_ciopts_rbar7Results |	///
		gr_ciopts_rbar8Results) {
			call program gr_ciopts_rbar_output
		}
	}

	if gr_ciopts.cb_plot_type.iseq("rspike") {
		if (gr_ciopts_rspikedResults |				///
		gr_ciopts_rspike1Results | gr_ciopts_rspike2Results |	///
		gr_ciopts_rspike3Results | gr_ciopts_rspike4Results |	///
		gr_ciopts_rspike5Results | gr_ciopts_rspike6Results |	///
		gr_ciopts_rspike7Results | gr_ciopts_rspike8Results) {
			call program gr_ciopts_rspike_output
		}
	}
	if gr_ciopts.cb_plot_type.iseq("rcapsym") {
		if (gr_ciopts_rcapsdResults |				///
		gr_ciopts_rcaps1Results | gr_ciopts_rcaps2Results |	///
		gr_ciopts_rcaps3Results | gr_ciopts_rcaps4Results |	///
		gr_ciopts_rcaps5Results | gr_ciopts_rcaps6Results |	///
		gr_ciopts_rcaps7Results | gr_ciopts_rcaps8Results |	///
		gr_ciopts_rcapsmdResults | gr_ciopts_rcapsm1Results |	///
		gr_ciopts_rcapsm2Results | gr_ciopts_rcapsm3Results |	///
		gr_ciopts_rcapsm4Results | gr_ciopts_rcapsm5Results |	///
		gr_ciopts_rcapsm6Results | gr_ciopts_rcapsm7Results |	///
		gr_ciopts_rcapsm8Results) {
			call program gr_ciopts_rcapsym_output
		}
	}

	if gr_ciopts.cb_plot_type.iseq("rscatter") {
		if (gr_ciopts_rscatdResults |				///
		gr_ciopts_rscat1Results | gr_ciopts_rscat2Results |	///
		gr_ciopts_rscat3Results | gr_ciopts_rscat4Results |	///
		gr_ciopts_rscat5Results | gr_ciopts_rscat6Results |	///
		gr_ciopts_rscat7Results | gr_ciopts_rscat8Results) {
			call program gr_ciopts_rscatter_output
		}
	}
	if gr_ciopts.cb_plot_type.iseq("rline") {
		if (gr_ciopts_rlinedResults |				///
		gr_ciopts_rline1Results | gr_ciopts_rline2Results |	///
		gr_ciopts_rline3Results | gr_ciopts_rline4Results |	///
		gr_ciopts_rline5Results | gr_ciopts_rline6Results |	///
		gr_ciopts_rline7Results | gr_ciopts_rline8Results) {
			call program gr_ciopts_rline_output
		}
	}

	if gr_ciopts.cb_plot_type.iseq("rconnected") {
		if (gr_ciopts_rconndResults |				///
		gr_ciopts_rconn1Results | gr_ciopts_rconn2Results |	///
		gr_ciopts_rconn3Results | gr_ciopts_rconn4Results |	///
		gr_ciopts_rconn5Results | gr_ciopts_rconn6Results |	///
		gr_ciopts_rconn7Results | gr_ciopts_rconn8Results |	///
		gr_ciopts_rconnmdResults |				///
		gr_ciopts_rconnm1Results |				///
		gr_ciopts_rconnm2Results |				///
		gr_ciopts_rconnm3Results |				///
		gr_ciopts_rconnm4Results |				///
		gr_ciopts_rconnm5Results |				///
		gr_ciopts_rconnm6Results |				///
		gr_ciopts_rconnm7Results | gr_ciopts_rconnm8Results) {
			call program gr_ciopts_rconnect_output
		}
	}

	if gr_ciopts.cb_plot_type.isneq("") {
		optionarg gr_ciopts.cb_plot_type
	}

	put gr_ciopts_rcapOutput
	put gr_ciopts_rareaOutput
	put gr_ciopts_rbarOutput
	put gr_ciopts_rspikeOutput
	put gr_ciopts_rcapsymOutput
	put gr_ciopts_rscatterOutput
	put gr_ciopts_rlineOutput
	put gr_ciopts_rconnectOutput
END
