(*  Read the file as pairs of values (x,y) *)
(*  One day I will figure out how to say HERE *)

xy = ReadList [ "/Users/jburkardt/public_html/math_src/graphics_examples/scatter_plot.txt", {Number,Number} ]

(*  Create the image *)

g1 = ListPlot [ xy, PlotStyle->PointSize[0.02], DisplayFunction->Identity, PlotLabel->"Scatter Plot",
FrameLabel->{"<--- X --->","<--- Y --->"},Frame->{True,True,True,True},GridLines->{Automatic,Automatic},PlotRange->{{0.0,1.0},{0.0,1.0}}];

(* Display the image *)

Show [ g1 ]

(* Export the image. *)
(* I have to say HERE using a huge string *)

Export["/Users/jburkardt/public_html/math_src/graphics_examples/scatter_plot.png", g1, "PNG" ]