Automatic Visually Distinct Plot Markers
Mathematica 6 automatically picks visually distinct plot markers to distinguish different datasets.
In[1]:=  |  ListPlot[Table[BesselJ[n, x], {n, 4}, {x, 0, 15, .2}],
PlotMarkers -> Automatic, Joined -> True] |
Out[1]=  |  |