<< DiscreteMath`Combinatorica`

data  =  
        Import["C:\\My Documents\\Mathematica stuff\\snowflakes \
(Mathematica)\\snowreduced.txt",  "Table"];

data // MatrixForm

pairs  =  {};
Do[
Do[
If[
          (Subscript[data, [[i, j]]]) == 1,  AppendTo[pairs,  {i - 1, j - 1}]]
, {i,  
          2,  24}]
, {j,  2,  
        24}]
pairs

g  =  FromOrderedPairs[pairs]

$TextStyle  =  {FontSize  ->  20,  
          FontColor  ->  RGBColor[1, 0, 0],  
          FontWeight  ->  "Bold"};

fig  =  
        ShowLabeledGraph[HasseDiagram[g],  
          ImageSize  ->  500];

Export["C:\\My Documents\\Mathematica stuff\\snowflakes \
(Mathematica)\\lattice.gif",  fig];