Falling Mass

\setlength{\unitlength}{1mm}
\begin{picture}(60,30)
  \put(0,29){$A$} \put(5,30){\line(1,0){20}} 
  \put(28,30){\circle*{2}} 
  \put(28,30){\vector(0,-1){10}}
  \put(30,29){Masse f\"allt aus}
  \put(30,25){Ruhelage}
  \put(0, 9){$B$} 
  \put(5,10){\line(1,0){20}}
  \put(0,5){\line(1,0){40}}
  \multiput(1,5)(1,0){40}{\line(-2,-5){2}}
  \put(15,10){\line(0,1){20}} \put(16,19){$h$}
\end{picture}