I feel certain that Ziegler's Fig. 2.1 below (to which I assume you are referring?) 
was just drawn "by hand" 
in a generic drawing program,
such as Adobe Illustrator, or xfig.
<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
![Fig. 2.1][1]
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<sub>(p.643 = 27th page of notes linked by Camilo)</sub><br />

This is probably not what you want, but Mathematica (via Combinatorica) can draw Hasse diagrams.
See, e.g., [this link][2] for how to accomplish this.
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
![alt text][3]


  [1]: http://cs.smith.edu/~orourke/MathOverflow/Ziegler.Fig2.1.jpg
  [2]: http://demonstrations.wolfram.com/HasseDiagramOfPowerSets/
  [3]: http://cs.smith.edu/~orourke/MathOverflow/HasseDiagram.jpg