Hist[data_] := Module[ 
	{nbin, ndata, datalength, contents},
	(*  Module to do a simple histogram.		    *)
	(*  Input is a vector of data that will be          *)
	(*  histogrammed between 0-100 in 10 bins.          *)

	(*  Initialize local counters and histogram values  *)

	nbin = 12;
	datalength = Length[data];
	contents = Table[0, {nbin, 12}];

	(*  Loop over each data point and test to see if it is:

		i)	Underflow
		ii)	Overflow
		iii)	In range 0-100			    *)

	Do[
		{
		    Which[
			data[[ndata]]<0, nbin=1,
			data[[ndata]]>100, nbin=12,
			True, nbin = Floor[data[[ndata]]/10.] + 2
			];
		    ++contents[[nbin]]
		    },
		{ndata, 1, datalength}
	    ];

	(*  Now generate the bar chart.  This requires that 
		Graphics`Graphics` has been loaded in		*)

	BarChart[contents];
	]
