macro h_org HID=0 chopt=colz
	 
	 IF ([HID] = 0) THEN
		 HID = $exec(kumac/read_cid)
	 ENDIF
	 ht [HID] [chopt]
	 exec h_org#information [HID]
 return
 
 macro information HID=101
 
		 
*	 TITLE = $HTITLE([HID])
*	 mess Title : [TITLE]
 
* info1-1  = ENTRIES
** info1-2  = Number of Entries
*	 info1-2  = Entries
*	 info2-1  = MEAN 
*	 info2-2  = Mean Value
*	 info3-1  = RMS
*	 info3-2  = Standard deviation
*	 info4-1  = EVENTS
*	 info4-2  = Number of equivalent events
*	 info5-1  = OVERFLOW
*	 info5-2  = Content of Overflow channel
** info5-2  = Overflow
*	 info6-1  = UNDERFLOW
*	 info6-2  = Content of Underflow channel
** info6-2  = Underflow
* 	 info7-1  = MIN
*	 info7-2  = Minimum bin content
*	 info8-1  = MAX
*	 info8-2  = Maximum bin content
*	 info9-1  = SUM
*	 info9-2  = Total Histogram content
	 
	 info10-1 = XBINS
	 info11-1 = YBINS
	 info10-2 = XBINS
	 info11-2 = YBINS
	 
* info12-1 = XMIN
*	 info13-1 = XMAX
*	 info14-1 = YMIN
*	 info15-1 = YMAX
*	 info12-2 = XMIN
*	 info13-2 = XMAX
*	 info14-2 = YMIN
*	 info15-2 = YMAX
*	 
	 NT = $GRAFINFO('NT')
	 WNXMAX = $GRAFINFO('WNXMAX')
	 WNXMIN = $GRAFINFO('WNXMIN')
	 WNYMAX = $GRAFINFO('WNYMAX')
	 WNYMIN = $GRAFINFO('WNYMIN')
	 posi_x = ( [WNXMAX] - [WNXMIN] ) * 0.05 + [WNXMIN]
	 posi_y = ( [WNYMAX] - [WNYMIN] ) * 1.0 + [WNYMIN]
	 step_y = ( [WNYMAX] - [WNYMIN] ) * 0.05
	 
	 XZONES = $GRAFINFO('XZONES')
	 2dflag = $HINFO([HID],'2DHISTO')
	 
	 IF ([2dflag] .eq. 0) THEN
		 LoopMax = 10
	 ELSE
		 LoopMax = 11
	 ENDIF
	 
	 Org_CHHE = $GRAFINFO(CHHE)
	 
	 sel [NT]
	 set chhe 0.3/[XZONES].
	 DO i = 10, [LoopMax]
		 info[i]-3  = $HINFO([HID],[info[i]-1])
		 posi_y = [posi_y]-[step_y] 
		 itx [posi_x] [posi_y] [info[i]-2] :  [info[i]-3]	 
	 ENDDO 
	 
	 set chhe [Org_CHHE]
	 hsta
	
 return