subroutine char SEGMENTS
set vari VALUE_BASE real local = 0.0
set vari RESID_BASE real local = 0.0
set vari VALUE_MIN real local = 0.0
set vari VALUE_MAX real local = 1.5
set vari RESID_BEG real local = 0.0
set vari RESID_END real local = 300.0
set vari FRAME_STEP real local = 0.1
set vari RESID_STEP real local = 0.075
set vari LABEL_LOW real local = -0.40
set vari LABEL_HIGH real local = 0.4

 set dial 1 graph object 1 tran 
 set dial 4 graph object 1 scal
 set dial 5 graph object 1 char

image erase
 graph

 analysis scale x-axis 1. scale y-axis 3. \
         center x-axis  RESID_BASE cent y-axis VALUE_BASE \
         step x-axis RESID_STEP * 10.0 step y-axis FRAME_STEP \
         range x-axis 0. 30. range y-axis VALUE_MIN VALUE_MAX

 analysis color 80 frame
 analysis show
 analysis step x-axis RESID_STEP range x-axis RESID_BEG RESID_END
 analysis show
 analysis color 110 hist average
 analysis color 155 hist rms
 analysis color 195 hist minima
 analysis color 220 hist maxima
!analysis color 130 rms label range -200. 1.4 \
!	select segment name SEGMENTS end
 analysis color 220 average label range LABEL_LOW LABEL_HIGH \
	select segment name SEGMENTS end
 analysis color 180 average label modul 25  \
	select segment name SEGMENTS  end
 analysis show
 exit
return