(* :Example:

In[1]:=<<Graphics`MultipleListPlot`

In[2]:=<<Graphics`symbols`

In[3]:=list1=Table[Sin[x],{x,-10 Pi,10 Pi,Pi/10}];

In[4]:=list2=Table[Random[Real],{100}];

In[5]:=$DotShapes={MakeSymbol[plusdiamond[0.006]],MakeSymbol[exagon[0.005]]}

In[6]:=MultipleListPlot[list1,list2,Prolog->{PointSize[0.001],AbsoluteThickness[0.1]}]

(* The Prolog option being specified to have smaller lines and points, because as you
can check my preferred size is much smaller than the one suggested in the original version
of MultipleListPlot. *)

*)