\renewcommand{\betweenticks}{100}
\renewcommand{\shownumbers}{0}

\definecolor{gA}{gray}{0.5}
\definecolor{gB}{gray}{0.7}
\definecolor{gC}{gray}{0.9}

\newpsstyle{diagframestyle}{linewidth=2pt,linecolor=black}
\newpsstyle{stA}{linestyle=solid,hatchsep=6pt,fillstyle=vlines*}
\newpsstyle{stB}{linestyle=solid,hatchsep=6pt,fillstyle=hlines*}
\newpsstyle{stC}{linestyle=solid,hatchsep=6pt,fillstyle=crosshatch*}

\bardiagrambegin{17.3}{1000}{0.5cm}{1.5}{6}{0.5cm}{0.01cm}
       \newpsstyle{levellinestyle}{linewidth=0.5pt,linecolor=gray,linestyle=dashed}
       \renewcommand{\barlabelangle}{0}
       
       \barspergroup{3}
       
       \drawlevellines
       \baritem[style=stA]{Here}{161}{gA}
         \subtopbaritem[style=stA]{}{250}{gB}
         \subtopbaritem[style=stA]{}{150}{gC}
	\subbaritem[style=stB]{}{381}{gA}
         \subtopbaritem[style=stB]{}{200}{gB}
         \subtopbaritem[style=stB]{}{150}{gC}
	\subbaritem[style=stC]{}{281}{gA}
         \subtopbaritem[style=stC]{}{200}{gB}
         \subtopbaritem[style=stC]{}{50}{gC}
       %
       \baritem[style=stA]{There}{221}{gA}
         \subtopbaritem[style=stA]{}{150}{gB}
         \subtopbaritem[style=stA]{}{130}{gC}
	\subbaritem[style=stB]{}{281}{gA}
         \subtopbaritem[style=stB]{}{300}{gB}
         \subtopbaritem[style=stB]{}{150}{gC}
	\subbaritem[style=stC]{}{121}{gA}
         \subtopbaritem[style=stC]{}{211}{gB}
         \subtopbaritem[style=stC]{}{350}{gC}
       %
       \baritem[style=stA]{Elsewhere}{432}{gA}
         \subtopbaritem[style=stA]{}{50}{gB}
         \subtopbaritem[style=stA]{}{230}{gC}
	\subbaritem[style=stB]{}{201}{gA}
         \subtopbaritem[style=stB]{}{130}{gB}
         \subtopbaritem[style=stB]{}{90}{gC}
	\subbaritem[style=stC]{}{191}{gA}
         \subtopbaritem[style=stC]{}{88}{gB}
         \subtopbaritem[style=stC]{}{222}{gC}
       %
       % we can call
       \diagLegendoptions{white}{white}{0pt}
       % to produce a legend without a frame
%
       \diagLegendbegin{0.5}{980}{3.5}
         \diagLegenditem[style=stA]{19.12.2002}{white}
         \diagLegenditem[style=stB]{06.05.2003}{white}
	 \diagLegenditem[style=stC]{01.02.2004}{white}
       \diagLegendend
       %
       \diagLegendbegin{7}{980}{3.5}
         \diagLegenditem{first try}{gA}
         \diagLegenditem{second try}{gB}
	 \diagLegenditem{third try}{gC}
       \diagLegendend
\bardiagramend{}{\large Number of smth}
