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 = 80.0
set vari RESID_BEG real local = 0.0
set vari RESID_END real local = 300.0
set vari FRAME_STEP real local = 10.0
set vari RESID_STEP real local = 0.1
set vari LABEL_LOW real local = 40.
set vari LABEL_HIGH real local = 200.0

 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 0.2 \
         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 140 hist rms
 analysis color 170 hist minima
 analysis color 200 line maxima
analysis color 130 rms label range 6.0 200. \
	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